Tuolstetaan kaikki .docx -asiakirjat ao kansiossa

Sub prtDocs()
‘Tulostetaan kaikki Word asiakirjat nykyisessä kansiossa

Dim adoc As String

adoc = Dir(ActiveDocument.Path & “\*.DOCX”)
Do While adoc <> “”
Application.PrintOut FileName:=adoc
adoc = Dir()
Loop
End Sub

Leave a Reply

Your email address will not be published. Required fields are marked *