USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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      Clique aqui para enviar email para o autor  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.
 


CyberWEB Network Ltda.    © Copyright 2000-2022   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página