Pinting excel sheets + embedded word document

[DvdV]

Hi,
I keep having problems with printing an excel file + the embedded word document. The excel file is about 15 pages, the embedded Word document about 10 pages. The problem is that from the embeddeb document only the first page is visible and printed.
How can I make sure the other 9 pages from the word document are included in the print version?

(excuse my bad English, it is not my mother-language)

 

[Domenic]

The following code assumes that...

1) the workbook containing the embedded Word document is the active workbook

2) Sheet1 contains the embedded Word document

3) the embedded Word document is named Object 1

Here's the code...

    Dim embeddedWordDocument As OLEObject
    Set embeddedWordDocument = ActiveWorkbook.Worksheets("Sheet1").OLEObjects("Object 1") 'change the workbook, sheet, and object names accordingly
  
    embeddedWordDocument.Verb xlVerbOpen
  
    Dim wordDocument As Object
    Set wordDocument = embeddedWordDocument.Object
  
    With wordDocument
        .PrintOut 'see link below for the optional arguments available
        .Close
    End With

See the following reference page for arguments available for the PrintOut method of the Document object...

Document.PrintOut method (Word)

Hope this helps!

 

[DvdV]

Thamk you Domimic.
Sadly this doesn't help me beacause I can't add a macro to the file. The excel-file is protected for adding macros. This prtection can't be lifted because the file is used by thousands of people.

 

[Jaafar Tribak]

Run the code from another workbook