xlprintersetup verwenden
10.02.2004 09:26:21
iven_s
ich möchte mittels VBA ein Tabellenblatt ausdrucken. Hierbei soll zwischen mehreren Druckern gewählt werden können. Mit folgendem Code komme ich leider nicht weiter, weil ich nicht weiß wie ich OK und ABBRECHEN des Dialogs abfangen kann.
Sub druckeinr()
Application.Dialogs(xlDialogPrinterSetup).Show
If Application.Dialogs(xlDialogPrinterSetup) = vbOK Then Call druck
'Wie muß diese Bedingung richtig erstellt werden?
End Sub
Sub druck()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Danke!
Gruß iven_s