52106
Goto Top

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

Content-ID: 192617

Url: https://administrator.de/contentid/192617

Ausgedruckt am: 24.11.2024 um 22:11 Uhr

Gilneas
Gilneas 11.10.2012 um 13:08:33 Uhr
Goto Top
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.
colinardo
colinardo 11.10.2012 aktualisiert um 13:24:24 Uhr
Goto Top
Du könntest es auch über folgende Eigenschaften des Dokuments versuchen

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.
colinardo
colinardo 11.10.2012 um 14:32:29 Uhr
Goto Top
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