VB6 - Selecionando a impressora que será usada na impressão

Selecionar automaticamente uma impressora padrão.

'No módulo
Public Function SelectPrinter(byVal Nome as String) As Boolean
Dim X as Printer
For each X in Printers
If Ucase(Mid(X.DeviceName,1,8))=UCase(Mid(Nome,1,8)) then
Set Printer=X
SelectPrinter = True
Exit For
End If
Next
SelectPrinter = False
End Function


'P/ chamar:
Dim RET As Boolean
RET = SelectPrinter("Epson LX-300")
If RET = True Then
'A impressora foi encontrada e selecionada.
Else
'A impressora NÃO foi encontrada.
End If
A função definirá esta impressora ("Epson LX-300", como no exemplo) como padrão para a impressão a ser realizada.

ATENÇÃO!!!! Para que essa função funcione, você necessitará ter o Service Pack 3 do Visual Basic instalado em sua máquina para corrigir um bug do VB.