[RESOLVED] Print to selected printer

[isnoend07]

I am trying to select the printer from a listbox and printform.
the code:

Sub LoadPrinters()
    Dim i As Integer
    Dim lCount As Long
    Dim p As Printer
    lCount = Printers.Count
      If lCount = 0 Then
        Call MsgBox("No printer detected on this system", vbExclamation, App.Title)
      End If
       
        For Each p In Printers
         lstPrinters.AddItem p.DeviceName
        Next        
    
    Exit Sub 
ErrHandler:
End Sub

How do i set the print to the listbox selected printer ?

[LaVolpe]

Wouldn't it be something as simple as: Printers(lstPrinters.ListIndex).hDC ?
or

 Dim p As Printer
Set p = Printers(lstPrinters.ListIndex)

[Navion]

No dim a printer, printer is a global device and it is usually identified by its devicename string

simply :

set Printer = List1.list(List1.ListIndex)

[LaVolpe]

No dim a printer, printer is a global device and it is usually identified by its devicename string
simply :
set Printer = List1.list(List1.ListIndex)

True. Printer is a global property/class object. Should the need exist, one can create a separate instance by using the Printers collection

Though you should get a type mismatch if trying to set it to some cached devicename
Suggest instead: Set Printer = Printers(List1.ListIndex)

[isnoend07]

thanks guys
Set Printer = Printers(List1.ListIndex)
this works