Druckerport ermitteln
Reto Bleichenbacher
Ich habe das problem, dass in einem Makro auf einen speziellen
Netzwerkdrucker gedruckt werden muss.
Der Drucker heisst zwar immer gleich, aber der Anschluss ist nicht
immer derselbe. Die folgende Anweisung macht jetzt die Umleitung auf
den Spezialdrucker:
Application.ActivePrinter = "\\SERVER\DRUCKER auf Ne02:
Dadurch bin ich nicht flexibel bei Änderungen in der Konstellation von
Druckern. Aus Ne02 kann leicht Ne03 werden.
Nun möchte ich erreichen, dass der Anschluss Ne02: flexibel wird und
trotzdem auf den \\server\drucker gedruckt wird.
Besten Dank für Ideen
Reto Bleichenbacher
Marcel Heimann
Das selbe Problem hatte ich auch schon :-(
Da es in Excel scheinbar nicht möglich ist, eine Liste der installierten
Drucker abzufragen, hab ich das ganze mit On Error umgangen. Bei mir ging es
darum festzustellen, an welchem Port eine Faxsoftware installiert ist, aber
Du kannst das ganze ja auf Deine Anforderungen umstellen und erweitern:
Function Faxdrucker() As String
OldStdPrinter$ = Application.ActivePrinter ' Aktuellen Drucker merken
On Error GoTo Fehl
Try$ = "FAX und ISDN-Kommunikation auf Ne00:"
ActivePrinter = "FAX und ISDN-Kommunikation auf Ne00:"
If WarFehler = 0 Then GoTo PrintOK
WarFehler = 0
Try$ = "FAX und ISDN-Kommunikation auf Ne01:"
ActivePrinter = "FAX und ISDN-Kommunikation auf Ne01:"
If WarFehler = 0 Then GoTo PrintOK
WarFehler = 0
ShowMsg "Es konnte kein Faxdrucker gefunden werden!", 3
Faxdrucker = "Fehler"
Exit Function
PrintOK:
On Error GoTo 0
Faxdrucker = Try$
Application.ActivePrinter = OldStdPrinter$
Exit Function
Fehl:
If Err = 1005 Or Err = 1004 Then WarFehler = 1: Resume Next
MsgBox "Fehler: " + Str(Err)
End Function
Mfg
Marcel
Reto Bleichenbacher
Müsste mit anpassen gehen. Danke für den Tip.
Gruss Reto
"Marcel Heimann" <180...@okay.net> schrieb im Newsbeitrag
news:38988824...@news.thyssen.com...
> On Mon, 31 Jan 2000 10:03:49 ?, "Reto Bleichenbacher"
> MsgBox "Fehler: " Str(Err)
> End Function
>
> Mfg
> Marcel
>