Multi Word DOC print

How to print multi doc file 


Sub PrintMultipleFiles()
    Dim objWord As Object
    Dim objDoc As Object
    Dim strFolder As String
    Dim strFile As String

    ' Set the folder path where your documents are located
    strFolder = "C:\YourFolderPath\"

    ' Create an instance of Word
    Set objWord = CreateObject("Word.Application")
    objWord.Visible = False ' Set to True if you want Word to be visible

    ' Loop through each file in the folder
    strFile = Dir(strFolder & "*.doc") ' Change the file extension if necessary
    Do While strFile <> ""
        ' Open the document
        Set objDoc = objWord.Documents.Open(strFolder & strFile)

        ' Print the document
        objDoc.PrintOut

        ' Close the document
        objDoc.Close

        ' Get the next file
        strFile = Dir
    Loop

    ' Close Word and clean up
    objWord.Quit
    Set objWord = Nothing
End Sub

Comments

Popular posts from this blog

how to work step-down transformer

Python project to exe

Excel formula Sum/Max/Min