Help With Print Job

[DaveDmd]

I have this code but it sends evry page individually to the printer,
anyone have any ideas how to modify this so all the sheets can be sent at the same time for one print job instead of 30...
thanks...

Application.ScreenUpdating = False
Application.ActivePrinter = "Adobe PDF on Ne04:"
Dim cel As Range, rng As Range, tmpWs As Worksheet
Set rng = Sheets("HiddenInfo").Range("AO2:AO37")
For Each cel In rng
If cel.Value <> "" Then
On Error Resume Next
Set tmpWs = Sheets(cel.Text)
If Not tmpWs Is Nothing Then
Sheets(cel.Text).PrintOut copies:=1
Set tmpWs = Nothing
End If
On Error GoTo 0
End If
Next cel
Application.ScreenUpdating = True
End Sub