Bom Dia..

 

Gostaria de saber como q eu faco pra obter o caminho de uma impressora atraves de um common dialog.

 

No caso eu vou chamar o metodo showprinter..e preciso saber qual a impressora foi selecionada...pq eu vou salvar o caminho dela como uma configuracao padrão...

 

 

Agradeço Antecipadamente.

Coloca isto no módulo:

 

Public Function SelPrinter() As Boolean

    On Error Resume Next
   
    If MsgBox("Deseja utilizar esta impressora (" & Printer.DeviceName & ")?", 36, "Avisos do Sistema") = 7 Then
       Frm_Principal.ComDlg.CancelError = True
       Frm_Principal.ComDlg.ShowPrinter
       If Err.Number <> 0 Then
          SelPrinter = False
          Exit Function
       Else
          SelPrinter = True
          Exit Function
       End If
    Else
       SelPrinter = True
    End If
End Function

 

'''e onde vc precisa chamar a impressora use este código:

 

    If SelPrinter = False Then
       Me.Refresh
       Exit Sub
    End If

''' Isto evita que o sistema chame a commondialog quando a impressora que vc quer usar é a padrão. NOrmalmente é um processo demorado a entrada da Common.