Print selection code doesn

szakharov7723

Board Regular
Joined
Jun 22, 2018
Messages
85
Office Version
  1. 2019
Platform
  1. Windows
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.

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

Excel Facts

Copy formula down without changing references
If you have =SUM(F2:F49) in F50; type Alt+' in F51 to copy =SUM(F2:F49) to F51, leaving the formula in edit mode. Change SUM to COUNT.
Re: Print selection code doesn't work properly

Well I didn't finish the post, but stupid Tab triggered with no cursor and selected the post thread while I was pressing Enter. In general question in body is the same I just didn't finish the title and now I cannot edit it.
 
Upvote 0
Re: Print selection code doesn't work properly

Have you tried stepping through your code to see if it selects the entire range you want to print? If it doesn't, here's an alternative you can try:
Code:
Sub PrintSelection()
ActiveSheet.PageSetup.PrintArea = Selection.Address
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
End Sub
 
Upvote 0
Re: Print selection code doesn't work properly

What happens with...

Code:
Sub PrintSelection()
    With ActiveSheet.PageSetup
        .PrintArea = ActiveSheet.Range("A1").CurrentRegion.Address
        .Zoom = 100
    End With
    ActiveSheet.PrintOut
End Sub
 
Upvote 0
Re: Print selection code doesn't work properly

Yes, I stopped the code before print and I see that it selects it.
 
Upvote 0
Re: Print selection code doesn't work properly

It would just print some blank pages (probably because I have invisible formuals there) And funniest thing... still will print only 1 page of real data ( which I have on more than 1 page of print)
 
Upvote 0
Re: Print selection code doesn't work properly

By
It would just
do you mean it did just... when I tested it.... probably just the grammar but not reading right to me.
 
Last edited:
Upvote 0
Re: Print selection code doesn't work properly

not really, but it wouldn't change the meaning. So yes that's what happened
 
Upvote 0
Re: Print selection code doesn't work properly

but it wouldn't change the meaning

Yes it would, one implies that it hadn't been tested.

Afraid I have nothing to add currently as the code I posted printed out 3 pages with my data so unless you can provide any other info I don't know why it isn't printing the full area.
 
Last edited:
Upvote 0
Re: Print selection code doesn't work properly

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

Forum statistics

Threads
1,224,814
Messages
6,181,128
Members
453,021
Latest member
Justyna P

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top