Simple Print Word doc from Excel

On click of a button in Excel, I want a dialog/msgbox to pop up asking how many copies they would like to print, and it prints that many copies of a specific Word document that resides in the SAME folder as the Excel file. We can call the Word doc "cover.doc".

Anybody?

Hi Princess, :bow:

Something like:

Code:

---

Sub PrintWordDoc()
    Dim oWord As Object
    Dim sPath As String
    Dim iCnt As Integer
    sPath = ThisWorkbook.Path & Application.PathSeparator & "Cover.doc"
    iCnt = Val(InputBox("How many copies", "Print Word doc", 1))
    If iCnt >= 1 Then
        Set oWord = CreateObject(Class:="Word.Application")
        With oWord.Documents.Open(sPath)
            .PrintOut Background:=False, Copies:=iCnt
            .Close False
        End With
        oWord.Quit False
    End If
    Set oWord = Nothing
End Sub

---

Enjoy! :whistle:

Hi Anne, :D

Did this work for you? ;)

Well, of course something else came up, but I will try it VERY soon! :D

Hi Princess, :bow:

Ah..ok..hope it works for yah...:cloud9: