in Zusammenhang mit einem kleinen VBA-Projekt habe ich eine Reihe von Fragen zur Drucksteuerung per VBA, auf die ich bisher keine Antwort gefunden habe. Die erste betrifft das automatisch bei jedem initierten Druckaufrag ausgegebene Messagefenster "Ausdruck". Läßt sich die Druckbestätigung irgendwie unterdrücken? Application.DisplayAlerts = False hilft hier leider nicht weiter. Das Script steuert automatisch den Druck von individualisierten Formularen aus einer DB mit 12.000 Zeilen. Pro Druck-Routine können uU schon mehrere Stunden vergehen. Das Flackern der Druckinfo über den Monitor ist in diesem Fall sehr störend.
Frage 2 betrifft die Einstellung des Druckers. Für
Drucker = Application.ActivePrinter
If Drucker <> "Modell xyz"
Soll nach
Msgbox "Bitte setzen Sie die Einstellungen auf min 600 DPI und Präsentationsmodus"
über
SendKeys "%e%z"
SendKeys "{tab}"
Application.Dialogs(xlDialogPrint).Show
der Einstelldialog für den Printer aufgerufen werden und dem Anwender so die Eingabe der gewünschten Parameter erleichtert werden.
Da aus dem Exel-AddIn aber aus vier verschiedenen Tabellenblättern gedruckt werden soll, müßte die Einstellung für jedes Tabellenblatt wiederholt werden, da sich Excel standardmäßig wohl nur die Parameter je wks merkt. Gibt es hier eine Möglichkeit, die Einstellung auf einmal für alle Tabellenblätter vorzunehmen? Über "Ausdruck ganze Arbeitsmappe" oder "Ausdruck der markierten Tabellenblätter" geht es jedenfalls nicht.
Hat jemand eine Anregung?
Vielen Dank!
Björn