Thema: Befehl für Standard Drucker in Makro


Seite durchsuchen:
Home


zurück zur Übersicht

Diskussionsgruppe: 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

 Von: 1DCF647E Datum: 01.01.2007, 11:56

alle Antworten zu dieser Frage


Antwort 1 von fedjo vom 01.01.2007, 12:38
Hallo,

besuch doch mal die Seit:

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

fedjo

Antwort 2 von 1DCF647E vom 01.01.2007, 12:57
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

Antworten der Gruppe: Tabellenkalkulation
www.supportnet.de



Office 365 stellt vertraute Microsoft Office-Tools für die Zusammenarbeit und Produktivität über die Cloud bereit. So können alle ganz einfach von nahezu überall zusammenarbeiten und auf E-Mails, Webkonferenzen, Dokumente und Kalender zugreifen.

07101 07102 07103 07104 07105 07106 07107