Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon 1DCF647E vom 01.01.2019, 11:56 Options
Befehl für Standard Drucker in Makro
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
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
Antwort 1 von fedjo vom 01.01.2019, 12:38 Options
Antwort 2 von 1DCF647E vom 01.01.2019, 12:57 Options
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
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
Ähnliche Themen
Makros - zweiten Drucker als Symbol in die Symbolleiste einfügen
Mikoop 24.11.2006 - 4090 Hits - 1 Antwort
Excel Druck Makro mit bestimmten Drucker
Ric 07.02.2007 - 121 Hits - 1 Antwort
Makro Drucker wählen
Winniki 05.05.2008 - 48 Hits -
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
