Thema: Problem mit Druckerauswahlmenü per code | Herbers Excel-Forum

Hallo,
in einer Excelmappe kann der User per Button folgende code aufrufen, um etwas aus diesr Mappe auszudrucken:
Application.Dialogs(xlDialogPrint).Show
Dies hat ein bestimmtes Format, worauf ich den Drucker extra einrichten mußte.
Problem:
Ich möchte nicht, dass andere Excelinstanzen ebenfalls auf den Oben ausgewählten Drucker umswitchen. Die Auswahl soll nur für dieses eine Mal gelten.
hat jemand eine idee?
Viele Grüße aus dem nasskalten Hamburg
Ray

Hallo Ray,
etwa wie folgt, der aktuelle Drucker wird in einer Varriablen gespeichert und nach dem Benden des Dialogs wieder zurückgesetzt.
Gruß
Franz

Sub Test()
Dim AktuellerDrucker As String, Auswahl As Long
AktuellerDrucker = Application.ActivePrinter
Auswahl = Application.Dialogs(xlDialogPrint).Show
ActivePrinter = AktuellerDrucker
End Sub

ot