list down printers on a combo box

Hi group,

I have a program made on VBA Access and i wanna list down all printers
avaible on windows( locals or on networks) on a combo box.
People has sugest me the following code, but it doesn't work.
#######
Dim Impressora As Printer

For Each Impressora In Printers
CMB_Printer.AddItem Impressora.DeviceName 'Printer.DeviceName
Next
#######

ERROR MESSAGE
"The type wasn't defineid by the user"

Any suggestion?


Thanks,
Rodolfo Fontes

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

If you are using access 2002 (xp) or later, then the printer collection is
built in.

If you are using a earlier version, then you can grab my sample here that
fills a combo box, and lets you set/select the printer of your choice.

http://www.attcanada.net/~kallal.msn.../msaccess.html

--
Albert D. Kallal (Access MVP)
Edmonton, Alberta Canada

http://www.attcanada.net/~kallal.msn