Druckereinstellungen über VBA
29.12.2006 09:28:43
uwe
ich habe zwei Schaltflächen in ein Tool integriert. Die eine führt eine Druckfunktion aus, in der vorher das Seitenlayout angepasst wird, die andere erstellt eine PDF-Datei.
Zur Erstellung der PDF-Datei muss ich den PDF-Drucker auswählen. Dieser ist für jeden User der gleiche. Möchte ich jedoch das Tool in Excel ausdrucken, muss ich wieder den ursprünglichen Drucker (Standarddrucker) auswählen. Für meinen Fall habe ich den Drucker definiert. Sollte jedoch ein User einen anderen Drucker haben, würde er das Tool auf meinem Drucker ausdrucken.
Gibt es eine Möglichkeit, den Druckernamen nicht fest zu definieren, sondern lediglich anzugeben, dass der jeweilige Standarddrucker auszuwählen ist, den man in der Systemsteuerung/Druckerauswahl als Standard definiert hat?
Anbei das Makro für die PDF-Erstellung:
Sub PDF()
On Error GoTo Ende
Application.ActivePrinter = "eDocPrinter PDF Pro auf Ne02:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"eDocPrinter PDF Pro auf Ne02:", Collate:=True _
Application.ActivePrinter = _
"\\S.....\P...... 402.. 03.OG Raum 309 auf Ne05:" 'hier dürfte dann kein Druckername mehr stehen, sondern das Makro müsste den jeweiligen als Standard definierten Drucker einstellen.
Ende:
End Sub
Ich hoffe, Ihr könnt mir weiterhelfen.
Gruß
Uwe