Multiple printing to PDF

[jrisebo]

Im using the following code to print a sheet that changes a value each time. Its working fine. Only issue is that I have to save each print as a seperate PDF. How do I get them to be all in one file?

Private Sub CommandButton1_Click()



For x = 1 To 100 'increase the 100 to a larger number if you ever have more than 100 sheets

If Sheets("Sheet2").Range("T" & x).Value = "" Then Exit Sub

Sheets("Sheet2").Range("F4").Value = Sheets("Sheet2").Range("T" & x).Value

Sheets("Sheet2").Range("F3").Value = Sheets("Sheet2").Range("U" & x).Value

ActiveSheet.PrintOut Copies:=1, Collate:=True

Next

End Sub

 

[jrisebo]

I did find a way in my printer preferences to 'append' each time it prints to the original PDF, but I have to hit save for each time. I have 50 so incidents so I have to hit save 50 times. Annoying, but workable. Still would like to automate via the code.

 

[jrisebo]

I got this to do what I wanted, or close enough.

Private Sub CommandButton1_Click()

For x = 1 To 100 'increase the 100 to a larger number if you ever have more than 100 sheets

If Sheets("Sheet2").Range("T" & x).Value = "" Then Exit Sub

Sheets("Sheet2").Range("F4").Value = Sheets("Sheet2").Range("T" & x).Value

Sheets("Sheet2").Range("F3").Value = Sheets("Sheet2").Range("U" & x).Value

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\test" & x & ".pdf"

Next

End Sub