Hi,
I want to print out a selected range to 1 sheet wide (columns) and however many pages it needs for to the lenth (rows). Here is what i am currently using:


Sheets("BAR INVENTORY").Select
With ActiveSheet.PageSetup
.PrintArea = "$EE$8:$EN$145"
.Orientation = xlPortrait
.Zoom = False
.FitToPagesWide = 1
'.FitToPagesTall = 1
End With
'
ActiveWindow.SelectedSheets.PrintOut

Thanks