Select a temp printer from combobox, load default printer when form closes

[snipe]

Hey guys,

InstalledPrinters is the combo box

I have this code on the mouse down for the combo box (got it off a google search):

Dim pr As Printer
For Each pr In Printers
    Me.InstalledPrinters.AddItem pr.DeviceName
Next pr
Me.InstalledPrinters.Text = Printer.DeviceName

For the click event I tried (made this up myself):

Private Sub InstalledPrinters_Click()
Dim NewPrinter As String
NewPrinter = Me.InstalledPrinters
Set Application.Printer = Application.Printers(NewPrinter)
End Sub

And I have these on the form load/unload:

Private Sub Form_Load()
Dim DefaultPrinter As String
DefaultPrinter = Application.Printer.DeviceName
Me.SalesName = Me.SelectEmp.Column(1)
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set Application.Printer = Application.Printers(DefaultPrinter)
End Sub

The combo box list code seems to work. But the click event code doesn't seem to do what its supposed to. Any thoughts on what I should do differently?

[June7]

What do you mean by 'doesn't seem to do what its supposed to', what happens - error message, wrong results, nothing?

Have you step debugged?

[snipe]

After more careful look I've noticed the combo box is also having issues. The list of printers gets duplicated every time you drop down the combo box list. It resets every time you exit the form, or go into design view.

Clicking on a printer in the list doesn't change the selected printer in the list (that sentence make sense?).

I haven't really been able to test the switch back to the default printer from the new printer since I can't get the combobox to work.

No errors pop up. Pretty much, nothing happens after the combo box populates.

[June7]

The list of printers duplicates because the procedure runs with every mouse down on the combobox, it just appends items. Suggest a different event, like form Open.

Try AfterUpdate instead of Click event.