VB code for printing landscape and portrait..

[tony666]

Hello Everyone,

I have this VB code that prints 2 pages- first one portrait and second page Landscape. But for some reason It shrinks the output into 45% which is hard to read. Can anyone look at these and see what you can to do make them print as a justfied fully to each page instead of shrinking them. Codes as follow.

Thanks,


Sheets("FINAL STATEMENTS").Select
Range("A1:E67").Select
Range("A1").Activate
With ActiveSheet.PageSetup
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FitToPagesWide = 2
.FitToPagesTall = 2
End With
Selection.PrintOut Copies:=1, Preview:=False, Collate:=True
Range("A69:J124").Select
Range("A69").Activate
With ActiveSheet.PageSetup
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FitToPagesWide = 2
.FitToPagesTall = 2