52106
11.10.2012
10304
3
0
VBA-Script für Druckschächte wählen in Word
Guten Tag,
ich benötige ein VBA-Script für Word 2010, wo man an einem beliebigen Drucker die Schächte für den Ausdruck einstellen kann.
Z. B. per UserForm sollte auszuwählen sein:
1. erste Seite: auf z. B. Schacht 1 oder 2
2. folge Seiten: auf z. B. Schacht 1 oder 2
hat jemand eine Idee oder kann mir behlflich sein?
Vielen Dank.
MFG
ich benötige ein VBA-Script für Word 2010, wo man an einem beliebigen Drucker die Schächte für den Ausdruck einstellen kann.
Z. B. per UserForm sollte auszuwählen sein:
1. erste Seite: auf z. B. Schacht 1 oder 2
2. folge Seiten: auf z. B. Schacht 1 oder 2
hat jemand eine Idee oder kann mir behlflich sein?
Vielen Dank.
MFG
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 192617
Url: https://administrator.de/contentid/192617
Ausgedruckt am: 24.11.2024 um 22:11 Uhr
3 Kommentare
Neuester Kommentar
Als Idee: Kannst du den Drucker nicht einfach doppelt einrichten? Zum Beispiel über den Umweg einer Freigabe.
Dann richtest du für beide eine jeweils andere Standardconfig mit dem entsprechendem Schacht ein.
Damit könntest du per Druckerauswahl das Fach entscheiden.
Und wenn es VBS sein muss, dann wählst du eben den Drucker per VBS aus.
Dann richtest du für beide eine jeweils andere Standardconfig mit dem entsprechendem Schacht ein.
Damit könntest du per Druckerauswahl das Fach entscheiden.
Und wenn es VBS sein muss, dann wählst du eben den Drucker per VBS aus.
Du könntest es auch über folgende Eigenschaften des Dokuments versuchen
Dabei gelten folgende mögliche Variablen:
wdPrinterAutomaticSheetFeed 7 Automatischer Papiereinzug.
wdPrinterDefaultBin 0 Standardschacht.
wdPrinterEnvelopeFeed 5 Briefumschlagzufuhr.
wdPrinterFormSource 15 Formularschacht.
wdPrinterLargeCapacityBin 11 Schacht für große Mengen.
wdPrinterLargeFormatBin 10 Schacht für große Formate.
wdPrinterLowerBin 2 Unterer Schacht.
wdPrinterManualEnvelopeFeed 6 Manuelle Briefumschlagzufuhr.
wdPrinterManualFeed 4 Manuelle Zufuhr.
wdPrinterMiddleBin 3 Mittlerer Schacht.
wdPrinterOnlyBin 1 Einziger Schacht des Druckers.
wdPrinterPaperCassette 14 Papierkassette.
wdPrinterSmallFormatBin 9 Schacht für kleine Formate.
wdPrinterTractorFeed 8 Traktoreinzug.
wdPrinterUpperBin 1 Oberer Schacht.
ActiveDocument.PageSetup.FirstPageTray = 2
ActiveDocument.PageSetup.OtherPagesTray = 0
Dabei gelten folgende mögliche Variablen:
wdPrinterAutomaticSheetFeed 7 Automatischer Papiereinzug.
wdPrinterDefaultBin 0 Standardschacht.
wdPrinterEnvelopeFeed 5 Briefumschlagzufuhr.
wdPrinterFormSource 15 Formularschacht.
wdPrinterLargeCapacityBin 11 Schacht für große Mengen.
wdPrinterLargeFormatBin 10 Schacht für große Formate.
wdPrinterLowerBin 2 Unterer Schacht.
wdPrinterManualEnvelopeFeed 6 Manuelle Briefumschlagzufuhr.
wdPrinterManualFeed 4 Manuelle Zufuhr.
wdPrinterMiddleBin 3 Mittlerer Schacht.
wdPrinterOnlyBin 1 Einziger Schacht des Druckers.
wdPrinterPaperCassette 14 Papierkassette.
wdPrinterSmallFormatBin 9 Schacht für kleine Formate.
wdPrinterTractorFeed 8 Traktoreinzug.
wdPrinterUpperBin 1 Oberer Schacht.
Das lässt sich auch einfach in den Seiteneigenschaften festlegen (Doppelklick neben das Lineal, oder Tab Seitenlayout auf den kleinen Pfeil neben "Seite einrichten" klicken, dann Tab Papier.
Dieses Script könnte Dir auch helfen:
http://www.vb-fun.de/vb/tipps/tip0067.shtml
Grüße Uwe
Dieses Script könnte Dir auch helfen:
http://www.vb-fun.de/vb/tipps/tip0067.shtml
Grüße Uwe