Print closed Excel Workbook from Access

[rogerm]

Could anyone help me with some Vba to print a closed Excel workbook from access (or open it, print it then close it again)
Thank you.

 

[Russell Hauf]

Sure! Try something like this. You will need to set a reference (Tools-References from the VBE) to Microsoft Excel X.x Object Library.

<pre><font color='#000000'>
<font color='#000080'>Option</font> <font color='#000080'>Compare</font> Database
<font color='#000080'>Option</font> <font color='#000080'>Explicit</font>

<font color='#000080'>Sub</font> PrintXL()
<font color='#000080'>Dim</font> objXL <font color='#000080'>As</font> Excel.Application
<font color='#000080'>Dim</font> wbk <font color='#000080'>As</font> Excel.Workbook

<font color='#000080'>Set</font> objXL = New Excel.Application
<font color='#008000'>' open the workbook</font>
<font color='#000080'>Set</font> wbk = objXL.Workbooks.Open("D:Dataslamson.xls")
<font color='#008000'>' print the workbook</font>
wbk.PrintOut
<font color='#008000'>' close workbook w/o saving changes</font>
wbk.Close False

<font color='#000080'>Set</font> wbk = Nothing

objXL.Quit

<font color='#000080'>Set</font> objXL = Nothing

<font color='#000080'>End</font> <font color='#000080'>Sub</font>

</font></pre>
.
You can control how many copies/what pages print by looking up the PrintOut method in help.

Hope this helps,

Russell

 

[rogerm]

Thats brilliant - thanks for the prompt reply I've been trying to figure out how to do it for about an hour or more and couldn't quite make it work.