Prüfen, ob der Drucker installiert ist?
03.08.2005 14:43:52
Selma
über die Schaltfläche drucke ich die akteulle Seite.
Vor dem Drucken soll geprüft werden, ob der Drucker: "\\LAPTOP\PDF-Drucker auf Le00:" installiert ist.
Wenn NICHT, dann den Drucker installieren und im Anschluss das Blatt drucken.
Wenn der Drucker existiert, dann einfach drucken.
Mein jetziger Code:
Private Sub CommandButton1_Click()
Application.ActivePrinter = "\\LAPTOP\PDF-Drucker auf Le00:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
'ActiveWindow.SmallScroll Down:=-18
End Sub
Wie mache ich das?
Danke im Voraus...
VG
Selma