[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 ?