Supportnet / Forum / Tabellenkalkulation

Hallo Alle, in folgende Makro will ich in den letzten Befehl, den = "EPSON Stylus DX4800 Series in "Satndard Drucker" ändern Wie der Befehl dazu? Danke für Antwort, viele Grüße Euer Ralf Sub Kopyspeichern() ´ ´ Kopyspeichern Makro If UCase(Cells(16, 3)) = "" And UCase(Cells(16, 6)) = "" Then Exit Sub Sheets("Rechnung").Select Application.ActivePrinter = "PDFCreator auf Ne00:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "PDFCreator auf Ne00:", Collate:=True Application.ActivePrinter = "EPSON Stylus DX4800 Series auf Ne02:" Sheets("Eingabe").Select End Sub

Hallo,

besuch doch mal die Seit:

http://www.herber.de/forum/archiv/700to704/t702723.htm

fedjo

Hallo fedjo ,

Habe dort gefunden, ausprobiert, es funktioniert.

habe Makro wie folgt geändert:

If UCase(Cells(16, 3)) = "" And UCase(Cells(16, 6)) = "" Then Exit Sub

Sheets("Rechnung").Select
aktiverDrucker = Application.ActivePrinter
Application.ActivePrinter = "PDFCreator auf Ne00:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"PDFCreator auf Ne00:", Collate:=True
Application.ActivePrinter = aktiverDrucker

Sheets("Eingabe").Select

Nochmal Danke für Deinen Tipp

Ralf

• Befehl in Makro (Excel)
• Excel Druck Makro mit bestimmten Drucker
• Makro Drucker wählen