I was able to find one script that should work:
Code:
Sub Print()
'
' Macro2 Macro
' Macro recorded 7/16/2009 by Administrator
'
'
Dim actprinter$
Dim actprinter2$
For i = 0 To 10
On Error Resume Next
actprinter = "PDF Writer on Ne" & Format$(i, "00") & ":"
Application.ActivePrinter = actprinter
'exit if we succeed
If Err.Number = 0 Then Exit For
Next i
If Not Application.ActivePrinter Like "PDF Writer*" Then
For i = 0 To 10
On Error Resume Next
actprinter2 = "Adobe PDF on Ne" & Format$(i, "00") & ":"
Application.ActivePrinter = actprinter2
'exit if we succeed
If Err.Number = 0 Then Exit For
Next i
Exit Sub
End If
Selection.PrintOut Copies:=1, ActivePrinter:=actprinter, Collate _
:=True
End Sub
Bookmarks