Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

VBA-Script für Druckschächte wählen in Word

Frage Entwicklung VB for Applications

Mitglied: 52106

52106 (Level 1)

11.10.2012 um 11:29 Uhr, 6603 Aufrufe, 3 Kommentare

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

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

01.
ActiveDocument.PageSetup.FirstPageTray = 2 
02.
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.
Bitte warten ..
Mitglied: colinardo
11.10.2012 um 14:32 Uhr
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
Bitte warten ..
Ähnliche Inhalte
Neue Wissensbeiträge
Linux Netzwerk

Ping und das einstellbare Bytepattern

(1)

Erfahrungsbericht von LordGurke zum Thema Linux Netzwerk ...

Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

(3)

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Viren und Trojaner

CNC-Fräsen von MECANUMERIC werden (ggf.) mit Viren, Trojanern, Würmern ausgeliefert

(4)

Erfahrungsbericht von anteNope zum Thema Viren und Trojaner ...

Heiß diskutierte Inhalte
Microsoft Office
Office Druck fehler (18)

Frage von DaistwasimBusch zum Thema Microsoft Office ...

Netzwerkmanagement
Windows Server 2008 R2: "netsh reset" nicht verfügbar? (11)

Frage von RickTucker zum Thema Netzwerkmanagement ...

Festplatten, SSD, Raid
Uninitialisierte Festplatte - Daten retten (11)

Frage von peterla zum Thema Festplatten, SSD, Raid ...

Microsoft Office
Outlook 2016 in Ordneransicht starten - GPO (9)

Frage von D-Line zum Thema Microsoft Office ...