Ermittlung Druckerport
28.10.2004 12:55:26
MM
mit folgendem Code (gefunden als unvollständiges Fragment im Forum) versuche ich auf einfache Weise den benutzten Druckerport zu ermitteln:
Sub test()
For d1 = 1 To 99
On Error GoTo drucker_err_weiter1:
m = "Tobit FaxWare auf Ne" + Format(d1, "00") + ":"
Application.ActivePrinter = m
m = Application.ActivePrinter
d1 = 99
drucker_err_weiter1:
Next d1
'in m steht der Drucker mit Port
End Sub
Beim 2. Durchlauf der Schleife erscheint die Meldung:
Laufzeitfehler 1004: Die Methode 'ActivePrinter' für das Objekt 'Application' ist fehlgeschlagen.
Der 2 Port wäre auch der richtige; ich weiß nicht, ob das mit der Meldung zu tun hat :(
Wer weiß Rat?
Vielen Dank,
MM