Configurar impressora em VB6

Private Const SW_SHOWNORMAL As Long = 1

Private Declare Function ConnectToPrinterDlg Lib "winspool.drv" _
   (ByVal hwnd As Long, ByVal flags As Long) As Long

Private Declare Function ShellExecute Lib "shell32.dll" _
    Alias "ShellExecuteA" _
   (ByVal hwnd As Long, _
    ByVal lpOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long
    


Private Sub Form_Load()

   Dim cnt As Long
   
   For cnt = 0 To 2
   
      If cnt > 0 Then Load Command1(cnt)
      
      With Command1(cnt)
      
         .Move 200, 200 + (370 * cnt), 2000, 345
         .Visible = True
         
         Select Case cnt
            Case 0: .Caption = "Connect Net Printer"
            Case 1: .Caption = "Open Explorer"
            Case 2: .Caption = "Exit"
         End Select
         
      End With
      
   Next  'cnt
         
End Sub


Private Sub Command1_Click(Index As Integer)

   Select Case Index
   
      Case 0: 'Map network printer
              
              'If ConnectToPrinterDlg succeeds and the
              'user selects a printer, the return value
              'is a handle to the selected printer. If
              'the call fails, or the user cancels the
              'dialog box without selecting a printer,
              'the return value is 0.
 
              'Note that ConnectToPrinterDlg is not
              'available on Windows versions prior to NT 3.51.
              'Windows 95-ME users must use the corresponding
              'rundll32 command to invoke the Add Printer dialog:
              'Call Shell("rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL AddPrinter", vbNormalFocus)
              
              'print result to debug window
               Debug.Print ConnectToPrinterDlg(Me.hwnd, 0&)

      Case 1: 'show printers
               Call ShellExecute(0&, "Open", _
                                     "explorer.exe", _
                                     "/e,::{2227A280-3AEA-1069-A2DE-08002B30309D}", _
                                     0&, SW_SHOWNORMAL)
      Case 2: 'quit
               Unload Me
      
   End Select
   
End Sub

     Option Explicit

      Private Declare Function PrinterProperties Lib "winspool.drv" _
        (ByVal hwnd As Long, ByVal hPrinter As Long) As Long

      Private Declare Function OpenPrinter Lib "winspool.drv" _
        Alias "OpenPrinterA" (ByVal pPrinterName As String, _
        phPrinter As Long, pDefault As PRINTER_DEFAULTS) As Long

      Private Declare Function ClosePrinter Lib "winspool.drv" _
        (ByVal hPrinter As Long) As Long

      Private Type PRINTER_DEFAULTS
           pDatatype As Long ' String
           pDevMode As Long
           pDesiredAccess As Long
      End Type

      Private Const STANDARD_RIGHTS_REQUIRED = &HF0000
      Private Const PRINTER_ACCESS_ADMINISTER = &H4
      Private Const PRINTER_ACCESS_USE = &H8
      Private Const PRINTER_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or _
         PRINTER_ACCESS_ADMINISTER Or PRINTER_ACCESS_USE)

      Private Sub Form_Load()
         Dim I As Integer

         ' List all available printers
         For I = 0 To Printers.Count - 1
            List1.AddItem Printers(I).DeviceName
            If Printers(I).DeviceName = Printer.DeviceName Then
               List1.Selected(I) = True  ' Select current default printer
            End If
         Next I
      End Sub

      Private Sub List1_Click()
         Dim Prt As Printer

         ' Find and use the printer just selected in the ListBox
         For Each Prt In Printers
            If Prt.DeviceName = List1.Text Then
                  Set Printer = Prt
               Exit For
            End If
         Next
      End Sub

      Private Sub Command1_Click()
         Dim RetVal As Long, hPrinter As Long
         Dim PD As PRINTER_DEFAULTS

         PD.pDatatype = 0
         ' Note that you cannot request more rights than you have as a user
         PD.pDesiredAccess = STANDARD_RIGHTS_REQUIRED Or PRINTER_ACCESS_USE
         PD.pDevMode = 0
         RetVal = OpenPrinter(Printer.DeviceName, hPrinter, PD)
         If RetVal = 0 Then
             MsgBox "OpenPrinter Failed!"
         Else
             RetVal = PrinterProperties(Me.hwnd, hPrinter)
             RetVal = ClosePrinter(hPrinter)
         End If
      End Sub