Changing default printer using VBA

[Rich Mogy]

I want to put a statement in my code that changes the default printer to
what I need it to be. Please, what is that statement?

Richard Mogy

 

[Allen Browne]

In Access 2002 or later, this is trivially easy.

Just set the Printer object, e.g.:
Set Printer = Printers(0)
or
Set Printer = Printers("Microsoft XPS Document Writer")

To reset to the default Windows printer:
Set Printer = Nothing

For earlier versions it is more involved. See:
http://www.members.shaw.ca/AlbertKallal/msaccess/printch2k.zip
or:
http://www.members.shaw.ca/AlbertKallal/msaccess/printch97.zip
for Access 2000 or 97 respectively.