Fout bij printen !

[Jatto]

Hallo,

Ik heb de volgende code gebruikt om een aantal (word)bestanden uit te printen die niet in dezelfde mappen staan. De code geeft geen foutmelding, maar alleen het eerste bestand dat in het opgegeven bereik staat wordt uitgeprint. Wat doe ik fout?

Dim docWord As Object
Dim Bestand As String
Dim r As Range
 
If Range("J1") = 3 Then
For Each r In Range("H20:H48")
Set docWord = Nothing
Set docWord = GetObject(r.Value, "Word.Document")
With docWord
.Activate
.PrintOut
End With
Exit For
Next

Set wb = Workbooks.Open("C:\naam.xls")
wb.PrintOut
wb.Close SaveChanges:=False
Set wb = Nothing
End If

n.b.: Cel J1 kan 5 verschillende waarden hebben, dus ik wil dit verhaal 5x onder elkaar plakken

 

[Guus2005]

zet een breakpoint in je code en gebruik je immediate window om te achterhalen of r.value wel de verschillende paden ophaalt.