I see that you've posted this question in several places. Is it a VB program that you're having problems with, or is this a system issue.
Regarding multiple postings, check out faq222-2244, which also gives tips on forum courtesy
If this is a VB problem use the Set Printer statement:
Dim prtDev As Printer
For Each prtDev In Printers
If prtDev.DeviceName = "\\Server\HP LaserJet 4Si" Then
Set Printer = prtDev
End If
Next
'print first bit
For Each prtDev In Printers
If prtDev.DeviceName = "DMP" Then
Set Printer = prtDev
End If
Next
'print next bit
You will have to do a debug.print inside the loop first time to find the proper names of your printers
________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first
'People who live in windowed environments shouldn't cast pointers.'