Abfrage-Problem
02.04.2006 22:26:49
nightswimming26
Ich habe folgendes Problem: Ich habe an zwei Arbeitsplätzen jeweils einen Standarddrucker und einen gemeinsam genutzten Drucker (pg39a_epson) über Printserver laufen. Folgender Code druckt mir die Dokumente auch problemlos aus:
If Environ("COMPUTERNAME") = "PG39A" Then
Application.ActivePrinter = "pg39a_epson auf Ne00:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"pg39a_epson auf Ne00:", Collate:=True
End If
If Environ("COMPUTERNAME") = "PG39" Then
Application.ActivePrinter = "pg39a_epson auf Ne00:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"pg39a_epson auf Ne00:", Collate:=True
End If
Dieses Makro wird über einen Commandbutton aktiviert. Nun möchte ich, dass ein User, der diesen Commandbutton von einem ganz anderen PC im netzwerk drückt, die Meldung
MsgBox ("Dieser Arbeitsplatz ist nicht mit dem voreingestellten Printer verbunden", vbcritical, "Fehler!")
bekommt.
Ich habe versucht, das Problem mit einem "On Error Goto ErrorHandler" Code zu lösen, er druckte dann zwar ordnungsgemäß das Dokument am richtigen Arbeitsplatz aus, gab mir aber trotzdem die MsgBox aus...
Also konkret: Ich möchte diese fehlermeldung erhalten, wenn ich an einem PC sitze, der nicht mit diesem Printer verbunden ist. Kann mir bitte jemand helfen?
Vielen Dank und viele Grüße
Christian