Thema Datum  Von Nutzer Rating
Antwort
22.05.2023 07:09:45 Gast
Solved
Blau Anzahl Drucke auslesen
 22.05.2023 19:22:16 xlKing
NotSolved
23.05.2023 14:19:23 Gast
NotSolved

Ansicht des Beitrags:
Von:
xlKing		 Datum:
22.05.2023 19:22:16		 Views:
141		 Rating:
     
Antwort:
  Ja
Thema:
Anzahl Drucke auslesen

Nicht direkt. An die Daten des Druckertreibers kommst du nur schwerlich ran. Ich wüsste grad nicht wie und ob überhaupt. Aber du kannst eine Abfrage zwischenschalten, wo du die gewünschte Anzahl der Druckexemplare eingibst. Diesen Wert kannst du dann weiterverarbeiten und schließlich im PrintOut-Befehl an den Parameter Copies übergeben.

Dim a As Long
a = InputBox("Wie viele Exemplare wollen Sie drucken?", "Dokument Drucken", 1)
ActiveDocument.PrintOut Copies:=a

Den Code kannst du in ein normales Makro schreiben, das du z.B. über einen Button auslöst. Oder du nimmst ihn ins BeforePrint-Ereignis. Dann wird die Zwischenfrage ausgeführt, sobald du auf Drucken gehst. Dazu ist allerdings etwas mehr Code nötig.

Was willst du denn eigentlich mit dem abgefragten Wert anstellen?

Mr. K.

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
22.05.2023 07:09:45 Gast
Solved
Blau Anzahl Drucke auslesen
 22.05.2023 19:22:16 xlKing
NotSolved
23.05.2023 14:19:23 Gast
NotSolved