Print 1 PDF when automating printing

[jrisebo]

I have the following code to update a cell and print. Problem is it creates a new PDF for each update. I want to just be one huge PDF

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