Help
IK heb een macro gemaakt in word:
fout tijdens uitvoeren : verliest focus op bestand
Dit is een gedeelte van de macro, maar de rest lijkt op dit
ps
thuis doet ie het wel maar op mijn werk niet??
Sub uitprinten_bestanden_p615()
On Error Resume Next
Dim strFileName As String
Dim strPath As String
Dim varItem As Variable
Dim lCopiesToPrint As Long
Dim lCounter As Long
Dim lCopyNumFrom As Long
ChangeFileOpenDirectory "c:\Documents and Settings\papa\dmv\"
strFileName = Dir(strPath + "0184_WEI*.doc", vbNormal)
Documents.Open FileName:=strPath + strFileName, ReadOnly:=True ' bestand openen
lCopiesToPrint = 1
For lCounter = 0 To lCopiesToPrint - 1
ActiveDocument.PrintOut Copies:=1, Pages:=""
Next lCounter
ActiveDocument.Close savechanges:=False
strFileName = Dir 'naam leegmaken
End Sub
Wat doe ik fout??
ALvast bedankt , Jan
IK heb een macro gemaakt in word:
fout tijdens uitvoeren : verliest focus op bestand
Dit is een gedeelte van de macro, maar de rest lijkt op dit
ps
thuis doet ie het wel maar op mijn werk niet??
Sub uitprinten_bestanden_p615()
On Error Resume Next
Dim strFileName As String
Dim strPath As String
Dim varItem As Variable
Dim lCopiesToPrint As Long
Dim lCounter As Long
Dim lCopyNumFrom As Long
ChangeFileOpenDirectory "c:\Documents and Settings\papa\dmv\"
strFileName = Dir(strPath + "0184_WEI*.doc", vbNormal)
Documents.Open FileName:=strPath + strFileName, ReadOnly:=True ' bestand openen
lCopiesToPrint = 1
For lCounter = 0 To lCopiesToPrint - 1
ActiveDocument.PrintOut Copies:=1, Pages:=""
Next lCounter
ActiveDocument.Close savechanges:=False
strFileName = Dir 'naam leegmaken
End Sub
Wat doe ik fout??
ALvast bedankt , Jan
