VBA Word 2003: Vorlage mit Makro zum Drucken mehrerer Kopien funktioniert nicht.

Question

Sub DateiDruckenStandard()   'Word Standard Schaltflaeche
  ActiveDocument.Application.PrintOut Copies:=2
End Sub

oder....

Sub DateiDruckenStandard()
  Application.PrintOut Copies:=2
End Sub

oder

Sub MehrfachDrucken()  'Neue Schaltflaeche
  ActiveDocument.Application.PrintOut Copies:=2
End Sub

Hallo liebe Office-Gurus,

ich habe eine Vorlage, in der ich ein Makro hinterlegt habe. Alle Dokumente, die auf dieser Vorlage basieren, sollen immer 2x ausgedruckt werden, d.h. 2 Kopien. Leider funktioniert das nicht bzw. nur sporadisch. Ich habe das Makro einer neuen Schaltfläch zugefügt. Dann habe ich auch ausprobiert, ob ich die vorhandene Schaltfläche umbiegen kann, damit beim Klicken mein Makro abgerufen wird. Beides funktioniert nicht bzw. nur manchmal beim ersten Test. Mache ich ein neues Dokument auf Basis dieser Vorlage auf, wird stets nur eine Kopie ausgedruckt.

Hat Jemand eine Idee, was ich falsch mache?

Vielen Dank vorab und beste Grüsse

Christina

Answer 1

Hallo Christina,

ich habe das auch mal probiert und auch bei mir wird das Dokument nur einmal gedruckt. Ich habe dann mal versucht die Funktion 2 mal hintereinander aufzurufen. Dann bekomme ich 2 Exemplare. Ist zwar nicht schön, funktioniert aber. Der Aufwand für den Workaround ist auch vertretbar, wie ich meine.

Gruß

Viktor

Answer 2

Hallo Viktor,

danke für den Tipp. Wenn sich keine andere Lösung bietet, ist das ein vertretbarer Workaround.
Viele Grüße
Christina

Answer 3

Hallo Christina,

druckst du normal auf Papier oder auf einen anderen Formatdrucker?

Bei Papier funktioniert es hier, bei PDF/XPS o.ä. nicht.

Ich würde es einfach so machen

Sub FilePrint()

Drucken2Mal

End Sub

Sub FilePrintDefault()

Drucken2Mal

End Sub

Sub Drucken2Mal()

ActiveDocument.PrintOut Copies:=2, Background:=False, Range:=wdPrintAllDocument, Collate:=True

End Sub

wenn das bei dir doch nicht klappt, dann verwende obigen Befehl (.PrintOut) einfach 2x hintereinander mit Copies:=1

Gruß
Christian

---

Gruß Christian

Answer 4

Hallo Christian,

danke für Deinen Tipp. Ich werde FilePrint und FilePrintDefault versuchen, ansonsten muss ich eben doch die "Krücke" nehmen.

Viele Grüße aus Bayern

Christina