faq705-5479 Not setting a default printer after use

[compucornertech]

Hello, first time here at the forum.

First off, I'm using MS Access 2003 on MS XP SP2.

I've got a database that uses a drop down list of the printers available so users can print to which ever printer they wish instead of just the default printer. I've used the code supplied in faq705-5479 and it works fine up to the point where it doesn't reassign the default printer after it's used.

Has anyone else used this code? or know of code that will work?

Thanks,

M

 

[mp9]

Maybe I'm oversimplifying but why not just use this simple code to change printer, then put it back to you original default.... (this is in Access 2002)

' Define a variable of type Printer
Dim prt As Printer
' Set it to your default printer
Set prt = Application.Printer
' Change default printer to that named here
Application.Printer = Application.Printers("\\PRINTSERVER\PRINTERNAME")
' Change default printer back to original value
Application.Printer = prt

http://www22.brinkster.com/accessory/

 

[compucornertech]

Thanks for the tip...

I am now getting a "Invalid procedure call or argument" on this line:

Application.Printer = Application.Printers("\\WINUXBOX\HPLaser3100")


Any help would be appreciated

 

[compucornertech]

Problem solved...


Thanks mp9!