Verwalten der Druckoptionen von Publisher mithilfe von Skripts
Beispiele für VBScript-Skripts zum Abrufen und Konfigurieren der in Microsoft Publisher 2003 unter Drucken verfügbaren Optionen.
|
Zuordnen des Dialogfelds zum Publisher-Objektmodell
Die in den folgenden Skripts verwendeten Optionen entsprechen den Optionen auf der Registerkarte Drucken im Dialogfeld Optionen. Um auf diese Optionen in Microsoft Publisher 2003 zuzugreifen, klicken Sie auf Extras, Optionen und anschließend auf die Registerkarte Drucken. Eine Zuordnung zwischen den verfügbaren Optionen in diesem Dialogfeld und dem Microsoft Publisher-Objektmodell wird im Folgenden dargestellt.
Die auf dieser Seite aufgeführten Skripts wurden mit Microsoft Publisher 2003 getestet. Es ist anzunehmen, dass jede Version von Microsoft Publisher, die Visual Basic für Applikationen (VBA) unterstützt, zumindest einen Teil der Funktionen ausführen kann. Die Skripts wurden jedoch in keiner dieser Versionen getestet.
Beispielcode zum Abrufen von Werten
Beispielskript zum Abrufen der Konfigurationsinformationen auf der Registerkarte Drucken im Dialogfeld Optionen von Microsoft Publisher 2003.
On Error Resume Next
Set objPublisher = CreateObject("Publisher.Application")
Set objDoc = objPublisher.NewDocument
Set objOptions = objPublisher.Options
Wscript.Echo "Automatically display Print Troubleshooter: " & _
objOptions.DisplayPrintTroubleshooter
Wscript.Echo "Print line-by-line: " & objOptions.PrintLineByLine
Wscript.Echo "Automatically use envelope paper sizes: " & _
objOptions.UseEnvelopePaperSizes
Wscript.Echo "Print envelopes to this printer using these settings: " & _
objOptions.UseEnvelopePrintOptions
Wscript.Echo "Envelope print orientation: " & _
objOptions.EnvelopePrintOrientation
Wscript.Echo "Envelope print placement: " & objOptions.EnvelopePrintPlacement
objPublisher.Quit
Beispielcode zum Ändern von Werten
Beispielskript zum Aktivieren der Anzeige der Drucker-Problembehandlung in Microsoft Publisher.
Set objPublisher = CreateObject("Publisher.Application")
Set objDoc = objPublisher.NewDocument
Set objOptions = objPublisher.Options
objOptions.DisplayPrintTroubleshooter = TRUE
objPublisher.Quit
Die Beispielskripts werden nicht durch die Standardsupportprogramme und -dienste von Microsoft unterstützt. Die Beispielskripts werden im gegenwärtigen Zustand und ohne jegliche Gewährleistung zur Verfügung gestellt. Microsoft schließt darüber hinaus jede konkludente Gewährleistung aus, einschließlich und ohne Einschränkung jeglicher konkludenten Gewährleistung der Handelsüblichkeit oder Eignung für einen bestimmten Zweck. Alle Risiken, die aus der Verwendung oder Ausführung der Beispielskripts und der Dokumentation entstehen, unterliegen vollständig Ihrer Verantwortung. In keinem Fall können Microsoft, ihre Autoren oder andere an der Erstellung, Produktion oder Bereitstellung der Skripts Beteiligte für irgendwelche Schäden haftbar gemacht werden (einschließlich und ohne Einschränkung aller Schäden durch Geschäftsverluste, Geschäftsausfälle, den Verlust von Geschäftsinformationen oder andere finanzielle Verluste), die aus der Verwendung oder der Nichteignung zur Verwendung der Beispielskripts oder der Dokumentation entstehen, auch wenn Microsoft über die Möglichkeit solcher Schäden unterrichtet worden ist.