anoniem Geplaatst: 13 augustus 2014 Delen Geplaatst: 13 augustus 2014 Om meer dan 15 Word bestanden in 1 keer af te drukken gebruik ik onderstaande macro: Sub AllesAfdrukken() Dim strBestand As String Dim strPad As String Dim docPrint As Document strPad = "C:\TEST\" ' Dus "C:\Temp\" ChDir strPad strBestand = Dir(strPad & "*.doc") While strBestand <> "" Set docPrint = Documents.Open(strPad & strBestand, , True) docPrint.PrintOut Background:=False docPrint.Close strBestand = Dir Wend End Sub Het werkt helemaal goed maar het komt op een willekeurige volgorde uit de printer. Weet iemand hoe ik dit kan verhelpen? Link naar reactie
Aanbevolen berichten
Gearchiveerd
Dit topic is nu gearchiveerd en gesloten voor verdere reacties.