Zum Inhalt springen
View in the app

A better way to browse. Learn more.

Fachinformatiker.de

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

[VBA] Auslesen von Druckparametern unter Word 2010

Empfohlene Antworten

Veröffentlicht

Hallo zusammen,

ich verzweifle gerade an etwas.

Da ich einige Probleme mit dem Drucken von Dokumenten hatte (PCL5/PCL6), habe ich mir ein virtuelles Druckobjekt angelegt, über das ich per global hook den Druck in eine Datei steuere und diese dann anschließend an den Drucker sende.

Hierbei tritt jedoch das Problem auf, dass die Einstellungen, welche unter Datei -> Drucken getroffen werden (Bereich drucken, Beidseitiges Drucken, Hoch-/Querformat) nicht übernommen werden.

Der Wechsel des Druckers sieht so aus:

        With Dialogs(wdDialogFilePrintSetup)

            t_printer = .printer

            .printer = pcl_printer

            ActivePrinter = pcl_printer

            .DoNotSetAsSysDefault = True

            .execute

        End With
Hier setze ich den Drucker auf den PCL fähigen virtuellen Drucker. Anschließend erstelle ich mir die Druckdatei:
ActiveDocument.PrintOut PrintToFile:=True, OutputFileName:="C:\print.prn"
Ich habe die Vermutung, dass durch die Veränderung des Druckers die Einstellungen verloren gehen. Wenn das der Fall ist, müsste ich ja irgendwie vor dem Wechsel des Druckers die getroffenen Einstellungen auslesen und zwischenspeichern. Das ganze habe ich schon versucht mit folgendem Code zu bewerkstellungen:
        With Dialogs(wdDialogFilePrint)

            c_test.add .Background

            c_test.add .AppendPrFile

            c_test.add .Range

            c_test.add .PrToFileName

            c_test.add .From

            c_test.add .To

            c_test.add .Type

            c_test.add .NumCopies

            c_test.add .Pages

            c_test.add .Order

            c_test.add .PrintToFile

            c_test.add .Collate

            c_test.add .FileName

            c_test.add .printer

            c_test.add .OutputPrinter

            c_test.add .DuplexPrint

        End With

Allerdings sehen hier nicht die aktuell ausgewählten Einstellungen, sondern irgendwas anderes. Ich habe auch schon versucht über ActiveDocument.PageSetup die entsprechenden Werte auszulesen, nur finde ich da leider auch nichts.

Ich hoffe mir kann da irgendwer helfen.

Vielen Dank schonmal!

Gruß Shadowman

Archiv

Dieses Thema wurde archiviert und kann nicht mehr beantwortet werden.

Configure browser push notifications

Chrome (Android)
  1. Tap the lock icon next to the address bar.
  2. Tap Permissions → Notifications.
  3. Adjust your preference.
Chrome (Desktop)
  1. Click the padlock icon in the address bar.
  2. Select Site settings.
  3. Find Notifications and adjust your preference.