VBA: Page breaking new PDF

[silvandree]

Hello everyone.
I'm developing a spreadsheet with some VBA codes. And one important part of it is the "SaveAsPDF" routine.
However, in one of my sheets, there are 22 tables of varying height. Then, I'd like to know how can I insert page breaks after each table in the generated PDF, using the VBA language.

Thank you very much!

 

[Warship]

Welcome.
Try:

Sub AddPgBreak()
'http://www.mrexcel.com/forum/excel-questions/817412-visual-basic-applications-page-breaking-new-pdf.html
    Dim tbl As ListObject, TR As Long
    With Worksheets("Sheet1")
        For Each tbl In .ListObjects
            If tbl.ShowTotals = True Then
                TR = 1
            Else
                TR = 0
            End If
            .HPageBreaks.Add Before:=Rows(tbl.ListRows(tbl.ListRows.Count).Range.Row + 1 + TR)
        Next tbl
        'SaveAs PDF here
        .ResetAllPageBreaks   'remove all breaks
    End With
End Sub