lpt in Netzwerk auswählen funzt nicht...
07.11.2005 10:15:34
ray
ich möchte mit folgenden code einen netzwerkdrucker auswählen. Leider funzt es nicht. (Server ist als Domain config)
Sub NeNumberX2()
Dim Ne As String, Printer$, i%
Printer = "\\PINNAU1\SchmierpapierDruck auf Ne"
On Error Resume Next
For i = 1 To 99
Ne = Format(i, "00")
'MsgBox "Ne" & i
Err.Number = 0
Application.ActivePrinter = Printer & Ne & ":"
If Err.Number = 0 Then
'MsgBox "Printer installed: " & Printer & Ne & ":"
Application.Run "lpt"
Exit For
End If
Next
End Sub
Sub lpt()
Sheets("HP").PrintOut From:=1, To:=1, Copies:=1, Collate:=True
End Sub
Problem ist, das die Eieruhr sehr lange zu sehen ist und nix ausgedruckt wird.
Hat jemand eine Idee?
Viele Grüße aus Hamburg, stark bewölkt, 12 Grad, Montag....
ray