MS Word - Makro für den Druck

Computer: Software & Programmierung Office Software
#1

Hallo,

folgende Ausgangsituation:
Ein HP-Drucker mit 3 Papierschächten.
Es liegen mehrseitige Schreiben vor, die sowohl auf Kopfbogen als auch auf Blankopapier gedruckt werden müssen.
Druck 1: Erste Seite auf Kopf (Fach 1)
weitere Seiten auf Blanko (Fach 2)-> Schreiben sind schon dafür formatiert (Abschnittswechsel etc.)

Druck 2: Alle Seiten auf Blanko (Fach 2)

Ist es möglich über ein Makro einen solchen Druck zu erzeugen? Mit „Makro aufzeichnen“ -> dann die Papierfächer zuweisen und wieder den Druckbefehl abgeben, funktioniert es leider nicht.

Ich wäre sehr dankbar für eure Hilfe.

#2

hi dan

bin nicht ganz sicher, was du genau bisher bemacht hast. unter datei->seite einrichten kannst du angeben, dass die erste seite auf einen anderen papierschacht als alle anderen seiten gedruckt werden soll. diese einstellung gilt pro dokument. damit kannst du komplett ohne makros o.ä. sicherstellen, dass bei bestimmten dokumenten die erste seite auf einem speziellen papier ausgedruckt wird.

löst das dein problem oder brauchst du was anderes?

lg
erwin

#3

Hallo,

und danke für die Antwort.

Aber das meine ich damit nicht. Ich mache es mal an einem Beispiel deutlich:
Ich habe z.B. ein dreiseitiges Dokument, dass wie folgt gedruckt werden soll:

  1. Seite: Kopfbogen
  2. Seite: Rückseite Kopfbogen
  3. Seite: Blanko

Der zweite Druck (für die Akten) sollte dann komplett auf Blanko-Papier gedruckt werden. Sprich:

  1. Seite: Blanko
  2. Seite: Rückseite Blanko
  3. Seite: Blanko

-> Dies alles sollte nach Möglichkeit mit einem Klick auf das Makro stattfinden. Aber wie gesagt, die Abschnittswechsel, Schachtanwahl usw. sind für den ersten Fall eingestellt.

Ich hoffe dadurch wird es etwas deutlicher. Die Frage ist ja ob es überhaupt möglich ist. Aber möglich ist doch fast alles oder? :smile:

#4

hi nochmal

schön langsam schnalle ich es: du hast ein dokument, dass du 2x ausdrucken möchtest, einmal mit unterschiedlichen drucksorten, einmal mit nur einer.

hauptproblem ist, dass du beidseitig drucken willst. die ersten beiden seiten sollen aus schacht a, die restlichen seiten aus schacht b kommen. beim zweiten druck soll alles aus schacht b kommen.

das dokument muss damit mind. 2 abschnitte haben. der erste abschnitt hat die ersten beiden seiten, der zweite abschnitt die restlichen seiten.

folgendes makro kann ich mir prinzipiell vorstellen:

sub SonderDruck()
ActiveDocument.Sections(1).PageSetup.FirstPageTray = wdPrinterLowerBin
ActiveDocument.Sections(1).PageSetup.OtherPagesTray = wdPrinterLowerBin
ActiveDocument.Sections(2).PageSetup.FirstPageTray = wdPrinterDefaultBin
ActiveDocument.Sections(2).PageSetup.OtherPagesTray = wdPrinterDefaultBin
ActiveDocument.PrintOut
ActiveDocument.Sections(1).PageSetup.FirstPageTray = wdPrinterDefaultBin
ActiveDocument.Sections(1).PageSetup.OtherPagesTray = wdPrinterDefaultBin
ActiveDocument.Sections(2).PageSetup.FirstPageTray = wdPrinterDefaultBin
ActiveDocument.Sections(2).PageSetup.OtherPagesTray = wdPrinterDefaultBin
ActiveDocument.PrintOut
End Sub

problem dabei: die angaben für den papierschacht sind nur sehr vage standardisiert und lauten teilweise pro druckermodell anders. teilweise gibt es überhaupt keine word-konstanten sondern nur den direkten numerischen code. was du bei dir also statt „wdPrinterDefaultBin“ und „wdPrinterLowerBin“ angeben musst, kann ich dir also nicht sagen. da musst du einmal das einstellen des papierschachtes mit dem makrorekorder aufzeichnen und schauen, was genau da verwendet wird.

ausserdem muss natürlich der beidseitige druck schon vorher ausgewählt worden sein.

die druckerproperties können übrigens nicht direkt aus dem makro heraus gesetzt werden. warum da so ist, kann ich nicht sagen. ich habe jedenfalls nur sehr umständliche lösungen dafür gefunden (aufrufen des druckerdialogs und ansteuern über sendkeys). damit habe ich bei uns eine lösung gefunden, bei der die seiten umfangreicher dokumente auf beliebige drucker und/oder schächte ausgedruckt werden können (also auch druckerwechsel innerhalb des dokuments). ist aber auch reichlich kompliziert und ein grosser aufwand, das für andere benutzer anzupassen.

ev. hilft dir die info ja schon mal weiter.

lg
erwin

1 Like
#5

Hallo,

Ja, du hast es genau erfasst :smile: Die Abschnittswechsel, der Duplexdruck und alles weitere sind wie gesagt schon eingestellt.

Habe per „Makro aufzeichnen“ auch die Bezeichnungen für die Trays herausbekommen und siehe da…es klappt! Vielen Dank für die schnelle und qualifizierte Antwort.

Den Stern hast du dir verdient.