Help needed in pagesetup and Print

senthilkumar_rm · May 7, 2012

Dear Solvers,

I have a sheet which needs to be printed,I Have inserted two button for printing

say

Button -1 : A4 size print

Button -2 : A3 Size Print

Need to Write a macro for, If user chooses A4 print, Page has to align (fit) for A4 landscape and printed and if user chooses A3 Print, page has to align for A3 print

Help Required

Senthilkumar RM

Hui · May 7, 2012

The code for printing is quite simple

There are really only two lines to change

The Paper Size and the Print range

[pre]

Code:

Sub PrintA4()
With ActiveSheet.PageSetup
.PrintTitleRows = &#34;&#34;
.PrintTitleColumns = &#34;&#34;
End With

ActiveSheet.PageSetup.PrintArea = &#34;$A$1:$G$32&#34; &#39;Change to suit

With ActiveSheet.PageSetup
.LeftHeader = &#34;&#34;
.CenterHeader = &#34;&#34;
.RightHeader = &#34;&#34;
.LeftFooter = &#34;&#34;
.CenterFooter = &#34;&#34;
.RightFooter = &#34;&#34;
.LeftMargin = Application.InchesToPoints(0.7)
.RightMargin = Application.InchesToPoints(0.7)
.TopMargin = Application.InchesToPoints(0.75)
.BottomMargin = Application.InchesToPoints(0.75)
.HeaderMargin = Application.InchesToPoints(0.3)
.FooterMargin = Application.InchesToPoints(0.3)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA3 &#39;or xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = True
.EvenPage.LeftHeader.Text = &#34;&#34;
.EvenPage.CenterHeader.Text = &#34;&#34;
.EvenPage.RightHeader.Text = &#34;&#34;
.EvenPage.LeftFooter.Text = &#34;&#34;
.EvenPage.CenterFooter.Text = &#34;&#34;
.EvenPage.RightFooter.Text = &#34;&#34;
.FirstPage.LeftHeader.Text = &#34;&#34;
.FirstPage.CenterHeader.Text = &#34;&#34;
.FirstPage.RightHeader.Text = &#34;&#34;
.FirstPage.LeftFooter.Text = &#34;&#34;
.FirstPage.CenterFooter.Text = &#34;&#34;
.FirstPage.RightFooter.Text = &#34;&#34;
End With

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub

[/pre]

Copy the above code into 2 Subroutines

Edit as required

Link to the two buttons

senthilkumar_rm · May 8, 2012

Hi Hui,

Great !! It Working 100 % fine. Thanks

Good Learning as well for me

Help needed in pagesetup and Print

senthilkumar_rm

Member

Hui

Excel Ninja

senthilkumar_rm

Member