I have a code that works perfectly except the image prints too small.
I have figured out the trick to change the size of the printout, but
need to implement this in my current procedure. I tried just dropping
it in but it didnt quite work, so either I am putting it in the wrong
place, or I need some additional code somewhere.


My current code:

Sub SetPrtAr_BigTest()
Dim lLastRow As Long
lLastRow = Range("I65536:K65536").End(xlUp).Row
Orientation = xlLandscape
ActiveSheet.PageSetup.PrintArea = Range("a6:N" & lLastRow).Address
End Sub


Piece I need added:

..FitToPagesWide = 1
..FitToPagesTall = 999


Thanx.