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]

Try

Sheets("2021").PageSetup.PrintArea = "AO2:AT" & LastRow

 

[Jasesair]

Same result unfortunately. It's allowing for me to click on 'next page' but continues to just show the first page.

 

[MARK858]

What do you get with

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

and what is the row number of the last cell with data in column AO on sheet 2021?

 

[Jasesair]

Same result unfortunately.

AO last row with data is row 58. It is currently print previewing only to row 37.

 

[MARK858]

...and with?

Sub PrintJuniors2021()
    Dim LastRow As Long
    Application.ScreenUpdating = False
    Sheets("2021").Columns("AN:BQ").Hidden = False
    LastRow = Sheets("2021").Range("AO" & Rows.Count).End(xlUp).Row
    Sheets("2021").PageSetup.PrintArea = Sheets("2021").Range("AO2:AT" & LastRow).Address
    With Sheets("2021").PageSetup
        .Orientation = xlLandscape
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 2
    End With
    Sheets("2021").PrintPreview
    'Sheets("2021").Columns("AN:BQ").Hidden = True
End Sub

 

[Jasesair]

That fits all rows (up to row 58) onto the one page. The size is obviously reduced to produce this.

 

[MARK858]

What do you get with the below?

Sub PrintJuniors2021()
    Dim LastRow As Long
    Application.ScreenUpdating = False
    Sheets("2021").Columns("AN:BQ").Hidden = False
    LastRow = Sheets("2021").Range("AO" & Rows.Count).End(xlUp).Row
    Sheets("2021").PageSetup.PrintArea = ""

    With Sheets("2021").PageSetup
    .PrintArea = Sheets("2021").Range("AO2:AT" & LastRow).Address
        .Orientation = xlLandscape
        .Zoom = False
    End With
    Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
    Sheets("2021").Columns("AN:BQ").Hidden = True
End Sub

 

[Jasesair]

I'm getting six blank landscape pages now.

 

[MARK858]

I'm getting six blank landscape pages now.

What is your PrintArea showing? and remove the .Zoom = False line