Hallo zusammen !
ich habe ein Makro, das mir alle docs eines bestimmen Verzeichnisses druckt.
Zur Kontrolle lasse ich die docs zählen und am Ende anzeigen.
Nun habe ich das Phänomen, daß der Drucker (Xerox 260) die letzten (ca.)
11 Dokumente erst nach Wegklicken der Abschlußanzeige druckt.
Ist etwas lästig : wenn man mal nicht dran denkt, oder der Kollege legt für einen neuen Druckauftrag anderes Papier in den Ducker, hat man 11 docs zu wenig oder auf falschem Papier.
Ach ja, noch was : Der Spooler steht natürlich auf "Drucken sofort beginnen"
Hier das Makro :
Sub Drucken()
'Doks in bestimmtem Verzeichnis nacheinander oeffnen
'und drucken
Dim docActive As Document
Dim nAnzahl As Integer
Dim aktdrucker As String
' aktuellen Drucker merken = in der Regel der Standarddrucker
aktdrucker = ActivePrinter
ActivePrinter = "260 Color Server PS"
'Verzeichnis als konstant festlegen
Const verz = "C:\Druckaufträge\"
ChDrive verz
ChDir verz
s = Dir(verz)
nAnzahl = 0
Do While s <> ""
nAnzahl = nAnzahl + 1
Set docActive = Documents.Open(verz & s, Visible:=False)
docActive.PrintOut
docActive.Close savechanges = wdDoNotSaveChanges
s = Dir
Loop
' gemerkten Drucker wieder aktivieren
ActivePrinter = aktdrucker
' Abschlussmeldung:
MsgBox "Es wurden " & nAnzahl & " Dokumente gedruckt"
End Sub
