Inquiridor
Como imprimir na porta usb?

Discussão Geral
-
boa tarde amigos da msdn, estive afastado um tempo do forum, mas voltando a ativa hoje.
Amigos tenho um sistema de Caixa Loja, que imprime na porta LPT1, ja funcionando.Um cliente quer comprar meu sistema, ta praticamente vendido, mas o lojista quer usar uma impressora MATRICIAL EPSON 350, eu vi que a impressora tem a porta LPT1 e USB, o computador da loja dele é de um modelo novo e ja precebi que tenho que mudar o codigo para imprimir na USB, amigos confesso que estou preocupado.
Amigos uso esse codigo Aki para jogar
Try
codutf = System.Text.Encoding.GetEncoding("ISO-8859-1")
Dim fluxotexto As IO.StreamWriter
fluxotexto = New IO.StreamWriter(Ticket, True, codutf)
Dim dateHorario As Date
Dim Cabecalho As String
Dim Endereco As String
Dim Mascara As String
Dim texto As String
Dim Espaco As String
Dim Tel As String
cont = cont + 1
If cont = 1 Then
dateHorario = Now
Tel = "Tel: (011) 9 8038-2194"
Cabecalho = "Depósito e Casa de Ferragens Oliveira"
Endereco = "Rua Guaicuri, nº 30 A Vila Missionária SP" & vbCrLf
Mascara = "Cod.Barra Produto Preço QTD"
fluxotexto.WriteLine(dateHorario)
fluxotexto.WriteLine (Tel)
fluxotexto.WriteLine(Cabecalho)
fluxotexto.WriteLine(Endereco)
fluxotexto.WriteLine(Mascara)
End If
texto = douCodBarras & " " & strItem & " " & strPreco & " " & intQtd
Espaco = "-------------------------------------------------------------------------------- "
fluxotexto.WriteLine(texto)
If cont = contador Then
fluxotexto.WriteLine(" ")
fluxotexto.WriteLine("Total " & txtTotalPagar.Text)
fluxotexto.WriteLine("Dinheiro " & txtDinheiro.Text)
fluxotexto.WriteLine("Troco " & txttroco.Text)
fluxotexto.WriteLine(Espaco)
End If
fluxotexto.Close()
Catch ex As Exception
System.Windows.Forms.MessageBox.Show(ex.Message)
End Try
System.IO.File.Copy("c:\Pasta Ticket\Ticket.txt", "LPT1", True)Podem me ajudar a converter isso para USB?
Anderson.mds
- Tipo Alterado Filipe B CastroModerator terça-feira, 24 de abril de 2018 15:41
Todas as Respostas
-
Amigos estive pensando o seguinte.
O meu sistema ele imprime direto na LPT1, faço assim, coloco todo o conteudo em um bloco de notas e jogo na porta LPT1, estive pensando, e se eu instalar a impressora matricial epson lx 350 como impressora padrão, ee depois pegar o bloco de notas e imprimir, sera que daria serto?
Por que eu usava uma impressora daruma antiga e esta como red/onlypor que eu crio o Ticket " Bloco de notas" e depois jogo na LPT1
================codigo criar bloco notas====================
Private Sub CriarTicket()
Try
codutf = System.Text.Encoding.GetEncoding("ISO-8859-1")
Dim fluxotexto As IO.StreamWriter
fluxotexto = New IO.StreamWriter(Ticket, True, codutf)
Dim dateHorario As Date
Dim Cabecalho As String
Dim Endereco As String
Dim Mascara As String
Dim texto As String
Dim Espaco As String
Dim Tel As String
cont = cont + 1
If cont = 1 Then
dateHorario = Now
Tel = "Tel: (011) 9 8038-2194"
Cabecalho = "Depósito e Casa de Ferragens Oliveira"
Endereco = "Rua Guaicuri, nº 30 A Vila Missionária SP" & vbCrLf
Mascara = "Cod.Barra Produto Preço QTD"
fluxotexto.WriteLine(dateHorario)
fluxotexto.WriteLine (Tel)
fluxotexto.WriteLine(Cabecalho)
fluxotexto.WriteLine(Endereco)
fluxotexto.WriteLine(Mascara)
End If
texto = douCodBarras & " " & strItem & " " & strPreco & " " & intQtd
Espaco = "-------------------------------------------------------------------------------- "
fluxotexto.WriteLine(texto)
If cont = contador Then
fluxotexto.WriteLine(" ")
fluxotexto.WriteLine("Total " & txtTotalPagar.Text)
fluxotexto.WriteLine("Dinheiro " & txtDinheiro.Text)
fluxotexto.WriteLine("Troco " & txttroco.Text)
fluxotexto.WriteLine(Espaco)
End If
fluxotexto.Close()=================================================================
e depois jogo na LPT1 assim
=====================codigo=========================================
System.IO.File.Copy("c:\Pasta Ticket\Ticket.txt", "LPT1", True)
===============================================================
Bom é isso amigos
Anderson.mds
-