|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Impressões/Impressoras)
|
|
 |
Título da Dica: Selecionando a impressora que será usada na impressão
|
 |
|
|
|
Postada em 14/8/2000 por Webmaster
webmaster@vbweb.com.br
'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.
|
|
|
|
|
