Alle geöffneten Dokumente mit Hilfe eines Makros ausdrucken

Die Textverarbeitung Word 97 verfügt über keinen Standardbefehl zum Ausdrucken aller geöffneten Dateien. Mit Hilfe des nebenstehend abgedruckten Makros »AlleFensterDrucken« können Sie diesen Mißstand aber leicht beheben. Das Makro stellt zuerst die Anzahl der geöffneten Dokumente fest. Daraufhin aktiviert es die einzelnen Fenster nacheinander und gibt deren Inhalt auf dem Standarddrucker aus. Voraussetzung für einen reibungslosen Ablauf ist, daß mindestens ein Dokument geöffnet sein muß. Andernfalls bricht das Makro mit einer Meldung »Fehler! Kein Dokument geöffnet!« ab.

Makro zum Drucken aller geöffneten Dokumente

Sub AlleFensterDrucken()

On Error GoTo errortrap
Dim i%, n%, maxFenster%
maxFenster = Windows.Count
n = AktivesFenster(maxFenster)
For i = 1 To maxFenster
Windows(i).Activate
ActiveDocument.PrintOut Background:=False
Next
Windows(n).Activate
errortrap:
If Err = 5941 Then
Beep
MsgBox “Fehler! Kein Dokument geöffnet!”
End If
End Sub
Private Function AktivesFenster(m%) As Integer
Dim i%
For i = 1 To m%
If Windows(i).Active = True Then
AktivesFenster = i
End If
Next
End Function