Saving as PDF once macro end of table

Hello All!

I've found such great help here before, I hoping I am lucky enough to again.


I have a macro that generates 3 tickets per sheet until it reaches the end of the table . It is currently set up to print each page as it cycles through. (I hope that makes sense)

I'd like to save all sheets to one PDF. I've figured out how to save each individually sheet as a PDF but can not figure out how to combine all. Please see code below and excel file. Thanks

 Sub PrintAll()
Dim ws As Worksheet
Dim Tbl As ListObject
Dim LastRow As Long
Set ws = Sheets("BILL - Monthly GSB_18")
LastRow = ws.ListObjects("Table1").Range.Columns(1).Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    For i = 1 To LastRow Step 3
        Range("A1").Value = i
        Range("A18").Value = i + 1
        Range("A35").Value = i + 2
        'MsgBox "review and print"
        ActiveSheet.PrintOut Copies:=1
    Next i
End Sub

Hello VitaVela,

I don't think you can expect a response from any Forum Member, since; Your post does not comply with Rule 2 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Click on Edit to open your thread, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 6)

Regards.