asked on

Get Installed Printer list and Set Printer in Acccess 2000

Hi,
I have Access 2000 and I want to do a combobox with a list of the installed printer and the capacity to assign a printer to print a report.

Here some code I already have

'----------------------------------------------------------------------------------
' looking for all printers and filling objListOrCombo
'----------------------------------------------------------------------------------
Private Sub m_GetPrinters(ByRef objListOrCombo As Object)
Dim objPrinter As Printer
Dim intNbOfPrinters As Integer

intNbOfPrinters = Printers.Count - 1
For Each objPrinter In Printers
objListOrCombo.AddItem objPrinter.DeviceName
Next
End Sub

The problem is that the object Printer is not define.

Any one have an Idea?

k2k2k2

ASKER

here is some VB code to assign the printer

For each PrTest in Printers
If PrTest.DeviceName = strDeviceNameOfPrinterYouWant then
set Printer = PrTest
' and other code to now use this printer
Exit For ' no need to test the other available printers
End If
Next

' now set it back

For each PrTest in Printers
If PrTest.DeviceName = strCurrentDevice then
set Printer = PrTest
Exit For
End If
Next

dds110

Check out my comments from this Q

ASKER CERTIFIED SOLUTION

dds110

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

k2k2k2

ASKER

Realy great code for every one who have to do a Print form in Access 2000!!

joekendall