Sleeper: Simple Print Word doc from Excel

[Anne Troy]

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?

[MOS MASTER]

Hi Princess,

Something like:

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!

[MOS MASTER]

Hi Anne,

Did this work for you?

[Anne Troy]

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

[MOS MASTER]

Hi Princess,

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