VBA Print Preview only displaying 1 page

[Jasesair]

Having a little trouble with the below code. It's only displaying one page when more data exists for a second print preview page.

Sub PrintJuniors2021()
Dim LastRow As Long
Application.ScreenUpdating = False
Columns("AN:BQ").EntireColumn.Hidden = False
LastRow = Sheets("2021").Range("AO" & Rows.Count).End(xlUp).Row
Sheets("2021").PageSetup.PrintArea = "AO2:AT107" & LastRow
With ActiveSheet.PageSetup
    .Orientation = xlLandscape
    End With
ActiveSheet.PrintPreview
Columns("AN:BQ").EntireColumn.Hidden = True
End Sub

 

[MARK858]

And, I'd really like to be able to automatically hide the columns after the macro has run?

Uncomment it in the code, it was only commented for testing purposes

That's it! Is there any way for force the Show Print Preview?

Can't help with that I'm afraid, as I get what I showed in post number 14.
You can try adding

Sheets("2021").PrintPreview

after the

Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint"

but no idea how it will react as can't replicate what you are seeing to test.

 

[Jasesair]

Unfortunately I'm back to where I started with the .PrintPreview only showing the first page.

 

[MARK858]

Thought it might

 

[Jasesair]

Hi Mark. Just for your info, I found the issue. I simply needed to remove:

Application.ScreenUpdating = False

It all functions perfectly to display the multiple pages!!! Thanks so much for your persistence and support.

 

[MARK858]

Hi Mark. Just for your info, I found the issue. I simply needed to remove:

Application.ScreenUpdating = False

It all functions perfectly to display the multiple pages!!! Thanks so much for your persistence and support.

Interesting, thanks for the feedback (although I would leave it there and just place

Application.ScreenUpdating = True

before the PrintPreview line).