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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Imprimir
ur
OLIMPIA
SP - BRASIL
ENUNCIADA !
Postada em 20/12/2004 10:39 hs            
Tenho que imprimir arquivos de texto , mas se a impressora for matricial usando o driver do windows fica lento
 
Verifiquei que para imprimir rapido neste tipo de impressora tem que imprimir direto na porta
 
Mas eu gostaria de saber se a printer que o usuario escolheu é matricial ou deskjet, se for deskjet eu imprimo usando o driver do windows, se for matricial eu imprimo direto na porta que impressora esta instalada
 
Como faço para recuperar esta informação, se ela matricial ou deskjet?
 
 
 
   
Jayme
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 22/12/2004 10:04 hs            
UR,
 
Juntei alguns fragmentos de códigos na Internet e consegui montar isto:
 
'No Módulo
Public Function SelectPrinter(ByVal Nome As String) As Boolean
  Dim x As Printer
  For Each x In Printers
    If UCase(Trim(x.DeviceName)) = UCase(Trim(Nome)) Then
      Set Printer = x
      SelectPrinter = True
      Exit Function
    End If
  Next
  SelectPrinter = False
End Function
' No Form
Private Sub Form_Load()
  Dim x As Printer
  For Each x In Printers
    Combo1.AddItem x.DeviceName
  Next
  Combo1.Text = Combo1.List(0)
End Sub
Private Sub Command1_Click()
  Dim Impressora As Boolean
  Impressora = SelectPrinter(Combo1.Text)
  Printer.Print Combo1.Text
  Printer.EndDoc
End Sub
Jayme
   
ur
OLIMPIA
SP - BRASIL
ENUNCIADA !
Postada em 22/12/2004 12:09 hs            
Valeu Jayme, eu tinha feito isto te uma outra forma, desta maneira ficou melhor
 
Mas eu gostaria de adicionar no combo somente as printer que forem matriciais. Alguem sabe como fazer?
 

Não sei muito, mas o pouco que sei passo para outras pessoas.
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



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