Print a word doc from a drop down list

[Craig1]

Hi All,
Not sure if this can be done, I have searched the forum to find a way but with no success.
I have an "issue control" excel sheet, column B has a drop down list with over 200 documents, the drop down list has the title of each document, but all these documents are in word, so the list corresponds to all the word documents. What I want to be able to do is add a print button in each row to print off the relevant document in the opposite cell.
So if cell B4 is "Check and repair belts on FA501 and FA502" I want the print button to locate the word document in B4, open it if needed and print it off.

Is this possible?

Craig.

 

[tropix100]

Set wrdApp = CreateObject("Word.Application") 
    Set wrdDoc = wrdApp.Documents.Open("document.dot") 
    
    wrdDoc.PrintOut 
    wrdDoc.Close 
    wrdApp.Quit

 

[Craig1]

Thanks for the reply Tropix100.
I got an error saying it couldn't find the file, the problem I have is the drop down box could contain one of over 200 documents so I was thinking something along the lines of below or something similar

Set wrdDoc = wrdApp.Documents.Open("B4.dot")

Craig

 

[tropix100]

Of course you will have to work around to put your own parameters.

Option Explicit 
 
Sub PrintWordDoc() 
    Dim oWord As Object 
    Dim sPath As String 
    Dim iCnt  As Integer 
     
     'Path to Cover.doc in same folder as workbook
    sPath = ThisWorkbook.Path & Application.PathSeparator & "Cover.doc" 
     
     'Ask copy count
    iCnt = Val(InputBox("How many copies", "Print Word doc", 1)) 
     
     'If any
    If iCnt >= 1 Then 
         
         'Create word application
        Set oWord = CreateObject(Class:="Word.Application") 
         
         'Open document sPath en printout wanted copies
        With oWord.Documents.Open(sPath) 
            .PrintOut Background:=False, Copies:=iCnt 
            .Close False 
        End With 
         
         'Quit word application
        oWord.Quit False 
    End If 
     
     'Clean up
    Set oWord = Nothing 
End Sub

 

[Craig1]

Thanks again Tropix100.

Will the code fit into a command button or does it go somewhere else?

Craig

 

[Craig1]

It's still trying to find the file, it finds the folder but it just doesn't seem to want to open it so it states unable to find document.

Any ideas.

Thanks for the help so far.

Craig

 

[Craig1]

I must be missing soemthing because I cannot work out how the code is looking at the title in cell B4, B5, B6 etc.

Thanks again.

Craig.

 

[tropix100]

You will have to change the path to reflect the contents of the cell that is the file you want to print.

</pre>