Druckerdialog
03.08.2006 16:04:34
stefanseevetal
Im Rahmen der Ausführung eines Makros möchte ich gerne, dass ein Druckermenü erscheint, in dem ich einen Drucker auswählen kann. Anschließend wird automatisch mit diesem Drucker das Tabellenblatt ausgedruckt.
Ist das möglich? Hat da jemand eine Idee?
Ich habe im Forum schon den folgenden Code gefunden und versucht ihn auf meine Bedürfnisse anzupassen, aber da funzt irgendwas bei mir noch nicht richtig:
Sub ListeDrucken()
Dim sPrinter As String
sPrinter = Application.ActivePrinter
Application.Dialogs(xlDialogPrinterSetup).Show
Application.ActivePrinter = sPrinter
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:=sPrinter
End Sub
Danke und Gruß,
Stefanseevetal