After setting the page(s), I would like to automatically change the
fit to to each page to whatever setting will give me the best
printout. When this prints now, it prints too small. I dont want to
limit the total number of pages to only one (as the range may be 10
lines, or 1000 lines), but fully fit each page to one page .



This code works for me (searches for the data and prints it out on
several pages if I need, or one if there's not a lot of data). Just
need to print a little larger.


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