IMPRIMIR VIA PORTA SERIAL

MOISES.ARAUJO 02/01/2005 00:40:02
#58111
Pessoal estou tentando descobrir como imprimir via porta seirial (Ex. COM1).
a minha impressora tem duas opções, LPT,Serial.
Porem não consigo que minha impressora imprima, se alguem suber como, fico grato.
[S25]
VB6MASTER 02/01/2005 09:56:59
#58132
Para imprimir direto para LPT1, usa-se esse código
Private Sub Command1_Click()
    'comando para imprimir direto para a IMPRESSORA
    Open "LPT1" For Output As #1
    
    DoEvents
    Print #1, Chr(27) & Chr(15)
    Print #1, "Testando impressão direto p/ porta LPT1"
    Print #1, Tab(10); "será que vai ser mais veloz?"; Tab(60); "etiqueta da direita"
    Print #1, Tab(15); "sem saltar uma página?"; Tab(60); "lado direito"
    Print #1, Tab(20); "VEREMOS O QUE ACONTECE"; Tab(60); "ALINHAMENTO À DIREITA"
    Print #1, "Tà' vendo que não imprime Acêntõs"; Tab(60); "As perguntas 2 e 3 OK"
    Print #1,
    Close #1
    
End Sub

Teste esse código trocando a porta LPT1 por COM1, por exemplo, pra ver se funciona.
MOISES.ARAUJO 02/01/2005 10:16:35
#58135
Não funciona ja testei, mas obrigado !
VB6MASTER 03/01/2005 22:31:43
#58383
E ae, dá algum tipo de erro ou simplesmente nada acontece?
Vc já leu esse artigo?
http://www.macoratti.net/vbserial.htm - Visual Basic e a Comunicação Paralela e Serial.
E por fim, achei esse código:
'Comunicando-se com a serial sem API e sem OCXÂÂÂ's   
 
Private sub cmdDiscar_Click()
      Open "COM1:" For Output As #1 ' porta com1
            Print 1, , "ATDT" & txtNum.Text
      Close
end sub

Tópico encerrado , respostas não são mais permitidas
Voltar