Olá pessoal, desculpa da demora, mas finalmente consegui resolver o problema, eu coloquei o seguinte código:
For Each D In Printers
PRIN = PRIN & Num & " - " & D.DeviceName & Chr(13)
Num = Num + 1
If Left(D.DeviceName, 5) = "Gener" Then Exit For
Next
If Num > 0 Then
Set D = Printers(Num - 1)
Else
Set D = Printers(Num)
End If
Set Printer = D
sendo q "gener" é o nome da impressora da retirada de mercadoria, e na entrega de mercadoria fiz a mesma coisa só q no lugar de "Gener" eu coloquei "Epson".
Obrigado a todos que deram suas opinioes. Valeu...
