none
Como imprimir na porta usb? RRS feed

  • 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

    segunda-feira, 23 de abril de 2018 18:55

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/only

    por 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

    terça-feira, 24 de abril de 2018 15:57
  • Para evitar mexer em seu sistema que esta funcionando, tente apenas maper a USB para a porta LPT1.
    terça-feira, 1 de maio de 2018 02:41