Wenn Sie auf das Druckwerkzeug klicken, druckt Word automatisch eine einzelne Kopie Ihres Dokuments. Dies geschieht unabhängig von der Anzahl der Kopien, die Sie zuvor im Dialogfeld Drucken zum Drucken ausgewählt haben. Dies ist kein lustiges Verhalten, das nur für das Druckwerkzeug gilt. Jedes Mal, wenn Sie das Dialogfeld Drucken erneut anzeigen, sollten Sie feststellen, dass die Einstellung Anzahl der Kopien immer auf 1 zurückgesetzt wird.

Word scheint in diesem Bereich immer unter einem Verlust des Kurzzeitgedächtnisses zu leiden. Die Einstellung Anzahl der Kopien ist einfach nicht „dauerhaft“ und muss jedes Mal festgelegt werden, wenn Sie drucken möchten. Dies kann störend sein, insbesondere wenn Sie die gleiche Anzahl von Kopien konsistent drucken möchten.

Es gibt zwei Möglichkeiten, wie eine Lösung angegangen werden kann. Zunächst können Sie ein Makro erstellen, das mit dem aktuell ausgewählten Drucker eine bestimmte Anzahl von Kopien druckt. Dies ist ein großartiger Ansatz, wenn Sie ständig eine bestimmte Anzahl von Kopien drucken. Das folgende Makro druckt beispielsweise vier Kopien des aktuellen Dokuments:

Sub PrintFour()

ActiveDocument.PrintOut Copies:=4 End Sub

Wenn Sie dieses Makro dem Symbolleiste für den Schnellzugriff oder einer Tastenkombination zuweisen, wird durch einen einfachen Klick oder eine Tastenkombination die gewünschte Anzahl von Kopien gedruckt.

Die zweite Lösung ist aufwändiger, kann aber auf lange Sicht flexibler sein. Bei dieser Lösung wird eine benutzerdefinierte Dokumenteigenschaft verwendet, um die Anzahl der zuletzt gedruckten Kopien dokumentweise zu verwalten. Diese Einstellung wird als Anzahl der zu druckenden Kopien verwendet, wodurch eine dauerhafte Anzahl von Kopien für jedes Dokument bereitgestellt wird. Die folgenden zwei Makros sollten verwendet werden:

Public Sub FilePrint()

Dim bExists As Boolean     Dim MyPrint As Dialog

' ensure our doc variable exists     bExists = False     For Each varItem In ActiveDocument.CustomDocumentProperties         If varItem.Name = "Copies" Then             bExists = True             Exit For         End If     Next varItem          ' initialize document variable if doesn't exist     If Not bExists Then         ActiveDocument.CustomDocumentProperties.Add _           Name:="Copies", LinkToContent:=False, _           Type:=msoPropertyTypeNumber, Value:=1     End If

Set MyPrint = Dialogs(wdDialogFilePrint)

With MyPrint         .NumCopies = ActiveDocument.CustomDocumentProperties("Copies")

.Show     End With

ActiveDocument.CustomDocumentProperties("Copies") = _       MyPrint.NumCopies

Set MyPrint = Nothing End Sub
Public Sub FilePrintDefault()

Dim bExists As Boolean

' ensure our doc variable exists     bExists = False     For Each varItem In ActiveDocument.CustomDocumentProperties         If varItem.Name = "Copies" Then             bExists = True             Exit For         End If     Next varItem

' initialize document variable if doesn't exist     If Not bExists Then         ActiveDocument.CustomDocumentProperties.Add _           Name:="Copies", LinkToContent:=False, _           Type:=msoPropertyTypeNumber, Value:=1     End If

ActiveDocument.PrintOut Copies:= _       CInt(ActiveDocument.CustomDocumentProperties("Copies"))

End Sub

Diese Makros haben spezielle Namen, FilePrint und FilePrintDefault. Dies sind die Namen, die den internen Word-Befehlen zugewiesen sind, die das Dialogfeld Drucken (FilePrint) anzeigen und das aktive Dokument (FilePrintDefault) mithilfe des Druckwerkzeugs in der Symbolleiste drucken.

Wenn Sie diese Makros mit den angezeigten Namen verwenden, ersetzen Sie im Wesentlichen die internen Word-Befehle.

Im Fall des neuen FilePrint-Makros werden die Dokumenteigenschaften überprüft, um festzustellen, ob eine Kopie vorhanden ist. Ist dies nicht der Fall, wird eine Dokumenteigenschaft mit diesem Namen erstellt und auf den Wert 1 gesetzt.

Anschließend wird das Dialogfeld Drucken angezeigt und der Wert für die Anzahl der Kopien wird basierend auf der Eigenschaft des benutzerdefinierten Dokuments festgelegt. Als Benutzer können Sie dann die Einstellung Anzahl der Kopien nach Bedarf ändern. Wenn das Dialogfeld geschlossen wird (entweder durch Drucken oder nicht), wird die Dokumenteigenschaft „Kopien“ auf die Einstellung „Anzahl der Kopien“ aktualisiert.

Das FilePrintDefault-Makro überprüft dagegen nur, ob die Eigenschaft Copies document vorhanden ist, und legt die Anzahl der zu druckenden Kopien basierend auf ihrem Wert fest. Wenn die Eigenschaft nicht vorhanden ist, wird sie erstellt und auf den Wert 1 gesetzt.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die beliebteste Textverarbeitungssoftware der Welt.) Dieser Tipp (10603) gilt für Microsoft Word 2007, 2010 und 2013.

Eine Version dieses Tipps für die ältere Menüoberfläche von Word finden Sie hier:

Speichern von zu druckenden Kopien.