Can I write code to change the printer? I want to use a command button that
produces some information on A4 sheets and then produces an address label on
a label printer.

Colin

You don't mention what version\ of ms-access.

In access 2002 and later, there is a built in printer object, and it lets
you switch the printer with ease.

You can use:

Set Application.Printer = Application.Printers("HP LaserJet Series II")


So, to save/switch, you can use:

dim strDefaultPrinter as string

' get current default printer.
strDefaultPrinter = Application.Printer.DeviceName

' switch to printer of your choice:

Set Application.Printer = Application.Printers("HP LaserJet Series II")

do whatever....print reports...etc...

Swtich back.

Set Application.Printer = Application.Printers(strDefaultPrinter)


If you are using a earlier versions, then you can use my lightweight printer
switch code here:

http://www.members.shaw.ca/AlbertKal.../msaccess.html


--
Albert D. Kallal (Access MVP)
Edmonton, Alberta Canada
(E-Mail Removed)
http://www.members.shaw.ca/AlbertKallal

Thanks I should have mentioned that I am using Access 97 with windows XP
"Albert D.Kallal" <(E-Mail Removed)> wrote in message
news:eMBt$(E-Mail Removed)...
> You don't mention what version\ of ms-access.
>
> In access 2002 and later, there is a built in printer object, and it lets
> you switch the printer with ease.
>
> You can use:
>
> Set Application.Printer = Application.Printers("HP LaserJet Series II")
>
>
> So, to save/switch, you can use:
>
> dim strDefaultPrinter as string
>
> ' get current default printer.
> strDefaultPrinter = Application.Printer.DeviceName
>
> ' switch to printer of your choice:
>
> Set Application.Printer = Application.Printers("HP LaserJet Series II")
>
> do whatever....print reports...etc...
>
> Swtich back.
>
> Set Application.Printer = Application.Printers(strDefaultPrinter)
>
>
> If you are using a earlier versions, then you can use my lightweight
> printer switch code here:
>
> http://www.members.shaw.ca/AlbertKal.../msaccess.html
>
>
> --
> Albert D. Kallal (Access MVP)
> Edmonton, Alberta Canada
> (E-Mail Removed)
> http://www.members.shaw.ca/AlbertKallal
>