Gordon,

If you put the code in the ThisWorkbook code module, it will automatically
run when you open the workbook.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Gordon Forbes" wrote in message
...
Thanks again for the prompt reply Bob.

The code now works fine although I have to step into it
and run it before the printer changes. Am I right in
thinking I need to do this all the time or should it
actually update when the file is opened? Or can I set up a
button to run this.

Many thnaks for all your help on this.
Regards
Gordon

-----Original Message-----
Gordon,

Sorry, I slipped in a syntax error. Try this instead

Private Sub Workbook_Open()
Application.ActivePrinter = "Canon Bubble-Jet BJC-4300
on LPT1:"
End Sub

Also, make sure that you get the printer name right. You
can find it by
setting that printer, and then going into the immediate
window in VBE and
typing ?Application.ActivePrinter

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Gordon Forbes"
wrote in message
...
Hi Bob,

thanks for the reply, I've tried the code you suggested
but it doesn't seem to change from my default printer to
the one I want to specify. Any further suggestions??

Thanks
Gordon