Problem printing multiple sheets to one PDF file

[Bean Dinner]

Using Excel 2007 in Windows 10, but had the same problem in Vista. Have a workbook with about 50 sheets, half are data sheets, half are charts based on the data. To print only the charts, I hide all data sheets, right-click on a chart sheet and select all sheets. In print preview, I see 68 pages, & can scroll through all 68. But when I click print, either to a printer or to PDF, instead of printing or saving all in one 68-page batch, they print or save in smaller batches of varying page counts. To get one PDF file of all 68 pages, I have to save several times and then merge the files. Any ideas why, and what I can do?

 

[CalcSux78]

Welcome to the forum....

Here's some code from Siddharth Rout that may help.

Option Explicit

Sub Sample()
    Dim ws As Worksheet, wsTemp As Worksheet
    Dim chrt As Shape
    Dim tp As Long
    Dim NewFileName As String

    On Error GoTo Whoa

    Application.ScreenUpdating = False

    NewFileName = Application.GetSaveAsFilename( _
        fileFilter:="PDF Files (*.pdf), *.pdf")


    Set ws = Sheets("Status and SLA trends")
    Set wsTemp = Sheets.Add

    tp = 10

    With wsTemp
        For Each chrt In ws.Shapes
            chrt.Copy
            wsTemp.Range("A1").PasteSpecial
            Selection.Top = tp
            Selection.Left = 5
            tp = tp + Selection.Height + 50
        Next
    End With

    If NewFileName <> "False" Then
        wsTemp.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NewFileName, Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
    End If

    Application.DisplayAlerts = False
    wsTemp.Delete

LetsContinue:
    With Application
        .ScreenUpdating = True
        .DisplayAlerts = True
    End With
    Exit Sub
Whoa:
    MsgBox Err.Description
    Resume LetsContinue
End Sub