Standarddrucker definieren
DirkR
ich stöbere nun schon einige Zeit im Forum, aber finde nicht das Passende.
Ich habe eine Arbeitsmappe in der über CommandButton Tabellen gedruckt werden.
Leider kommt es in unserem Netzwerk oft vor, dass der Standarddrucker in den einzelnen Bereichen auf:"Microsoft Office Document Image Writer" definiert wird.
Dies fange ich mit folgendem Code ab:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Left(ActivePrinter, 11) = "FP_MultiDoc" Or _
Left(ActivePrinter, 10) = "FreePDF XP" Or _
Left(ActivePrinter, 38) = "Microsoft Office Document Image Writer" Then
Cancel = True
MsgBox "Bitte definieren Sie einen Standardrucker!", vbInformation, "Es ist kein _
Standarddrucker definiert"
End If
End Sub
Nun hätte ich gerne, dass anstelle der MsgBox ein Auswahlfenster mit den möglichen Druckern erscheint und ich diesen dann durch clicken als Standard definieren kann.
Ich hoffe auf eure Hilfe!!!
Gruß DirkR
Anzeige