Need to append printing to Adobe using Macro

We have a macro set up to change the value of a cell, then print the worksheet.  The problem is that we are wanting to print it to Adobe and everytime it prints...it ask for a file name which defeats the purpose of the macro.  

Here is the script we are using:

 Sub Print_Summary_Sheets()
' Steps through Units in Run - Single Events tab and copies resulting output from PLL and IRPA Calc tab
' and prints each corresponding "Results Summary - Single Event" sheet to current printer
For i = 4 To 10
    Worksheets("Run - Single Event").Cells(6, 3).Value = Worksheets("Risk").Cells(i, 1).Value
    Sheets("Results Summary - Single Event").Select
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Next i

End Sub
Start Free Trial