Print selection code doesn

[szakharov7723]

Hello, I am trying to create a code to automatically select the range (that can vary horizontally) and print it.
I tried to use this code, but it prints only 1 page regardless the amount of pages needed to print all data in range.
And I don't even understand why it limits it to 1 page.

Sub PrintSelection()
'
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.PrintOut
End Sub

 

[szakharov7723]

Re: Print selection code doesn't work properly

no tbh I see no other special info about this case. Hopefully it has something to do with the printer settings.

 

[MARK858]

Re: Print selection code doesn't work properly

or gives the outcome of what will happen if you execute this code

Except it doesn't besides obviously I would already know what outcome it gives me before I posted it.

Anyway I already stated I can't go any further without more info or a copy of the workbook to look at.

 

[JoeMo]

Re: Print selection code doesn't work properly

Try selecting the area you want to print, then run the code from post #3 .