IMPRESSAO EM IMPRESSORA BEMATECH MP400

 Tópico anterior Próximo tópico Novo tópico

IMPRESSAO EM IMPRESSORA BEMATECH MP400

C#

 Compartilhe  Compartilhe  Compartilhe
#478648 - 26/12/2017 08:06:53

JOAOBENEVIDES
RIBEIRAO PRETO
Cadast. em:Maio/2009


Bom dia Amigos, a todos um feliz ano novo.

Tenho uma impressora bematech e estou fazendo uns tralhados de impressão de comprovantes aqui na empresa,  porem fica minha duvida seria melhor fazer um report tipo crystal , ou fazer via codigo
tentei ver como as pessoal faz nos cupom fiscal do sat mais nao tive muita resposta.

Obrigado

Joao

........Todos Podemos Ajudar Um ao Outro ajude vc tambem.....


Resposta escolhida #478649 - 26/12/2017 08:32:08

LOVO12
BRASIL
Cadast. em:Maio/2012


Citação:
:
Bom dia Amigos, a todos um feliz ano novo.

Tenho uma impressora bematech e estou fazendo uns tralhados de impressão de comprovantes aqui na empresa,  porem fica minha duvida seria melhor fazer um report tipo crystal , ou fazer via codigo
tentei ver como as pessoal faz nos cupom fiscal do sat mais nao tive muita resposta.

Obrigado

Joao

aconselho você a fazer via Código, fica melhor para configuração do mesmo.



#478650 - 26/12/2017 08:34:38

JOAOBENEVIDES
RIBEIRAO PRETO
Cadast. em:Maio/2009


bom
Citação:
:
:
Bom dia Amigos, a todos um feliz ano novo.

Tenho uma impressora bematech e estou fazendo uns tralhados de impressão de comprovantes aqui na empresa,  porem fica minha duvida seria melhor fazer um report tipo crystal , ou fazer via codigo
tentei ver como as pessoal faz nos cupom fiscal do sat mais nao tive muita resposta.

Obrigado

Joao
aconselho você a fazer via Código, fica melhor para configuração do mesmo.


bom dia amigo voce tem algo que eu possa basear porque eu quero fazer como um cupom fiscal

........Todos Podemos Ajudar Um ao Outro ajude vc tambem.....


#478651 - 26/12/2017 08:40:09

LOVO12
BRASIL
Cadast. em:Maio/2012


esses comprovante que vc está emitindo e fiscal ou não fiscal?



#478652 - 26/12/2017 09:24:43

JOAOBENEVIDES
RIBEIRAO PRETO
Cadast. em:Maio/2009


Citação:
:
esses comprovante que vc está emitindo e fiscal ou não fiscal?

nao fiscal

........Todos Podemos Ajudar Um ao Outro ajude vc tambem.....


#478653 - 26/12/2017 09:59:17

MFLAVIO
CAMPINAS
Cadast. em:Maio/2009


Use a dll da bematech, ajuda bastante nesse processo
e muito simples de usar
olha essa rotina que eu uso para testar a impressão

  Private Sub Print_teste(pPorta As String)

        Try

            SAviso = ""
            Bconter = LeArquivoINI(nome_arquivo_ini, "sat", "modeloprint", 7)
            Retorno = MP2032.ConfiguraModeloImpressora(Bconter)
            If Retorno <> 1 Then
                SAviso += "Erro no Modelo da Impressora"
            End If
            Retorno = MP2032.ConfiguraTaxaSerial(115200)
            If Retorno <> 1 Then
                SAviso += " Erro ao Aplicar Taxa Serial"
            End If
            Retorno = MP2032.IniciaPorta(pPorta)
            If Retorno <> 1 Then
                SAviso += " Erro ao Abrir Porta da Impressora"
            End If
            Bconter = LeArquivoINI(nome_arquivo_ini, "sat", "qualidadeprint", 1)
            Retorno = MP2032.SelecionaQualidadeImpressao(Bconter)
            If Retorno <> 1 Then
                SAviso += " Erro na Qualidade da Impressora"
            End If
            If SAviso <> "" Then
                SAviso += vbCrLf & "***IMPOSSÍVEL IMPRIMIR***"
                Aviso.ShowDialog()
                Exit Sub
            End If

            Pnome = Chr(29) + Chr(249) + Chr(32) + Chr(0)
            Retorno = MP2032.ComandoTX(Pnome, Pnome.Length) 'muda para Bematech

            Pnome = "Teste de Comunicação com Impressora OK"
            Pnome = Pnome + vbCrLf + "**********************************"
            Retorno = MP2032.BematechTX(Pnome + vbCr & vbLf)
            Pnome = vbCr & vbLf
            Retorno = MP2032.ComandoTX(Bema_PulaLinha, Bema_PulaLinha.Length)
            Pnome = "-Comprimido-"
            Retorno = MP2032.FormataTX(Pnome + vbCrLf, 1, 0, 0, 0, 0)
            Pnome = "-Normal-"
            Retorno = MP2032.FormataTX(Pnome + vbCrLf, 1, 0, 0, 0, 0)
            Pnome = "-Elite-"
            Retorno = MP2032.FormataTX(Pnome + vbCrLf, 3, 0, 0, 0, 0)
            Pnome = "-Italico-"
            Retorno = MP2032.FormataTX(Pnome + vbCrLf, 1, 1, 0, 0, 0)
            Pnome = "-Sublinhado-"
            Retorno = MP2032.FormataTX(Pnome + vbCrLf, 1, 1, 1, 0, 0)
            Pnome = "-Expandido-"
            Retorno = MP2032.FormataTX(Pnome + vbCrLf, 1, 1, 1, 1, 0)
            Pnome = "-Enfatizado-"
            Retorno = MP2032.FormataTX(Pnome + vbCrLf, 1, 1, 1, 1, 1)
            Bconter = LeArquivoINI(nome_arquivo_ini, "sat", "modeloprint", 7)

            Pnome = "Bematech" & "(" & Bconter & ")" & " na " & pPorta
            Iretorno = MP2032.BematechTX(Pnome + vbCr & vbLf)
            Retorno = MP2032.ConfiguraCodigoBarras(110, 0, 0, 1, 8)

            Pnome = "123456789101112"
            Retorno = MP2032.ImprimeCodigoBarrasCODABAR(Pnome)
            Retorno = MP2032.FormataTX("  - X -  " + vbCr & vbLf, 3, 0, 0, 0, 0)
            Retorno = MP2032.ImprimeCodigoQRCODE(1, 5, 0, 10, 1, "http://www.mabinfo.com.br")

            Retorno = MP2032.FormataTX(HOJE.ToShortDateString + vbCrLf, 3, 0, 0, 1, 1)

            sVAR = Chr(27) + Chr(118) + Chr(140)
            Retorno = MP2032.ComandoTX(sVAR, sVAR.Length) 'abre gaveta

            Retorno = MP2032.ComandoTX(Bema_PulaLinha, Bema_PulaLinha.Length)
            Retorno = MP2032.ComandoTX(Bema_PulaLinha, Bema_PulaLinha.Length)
            Retorno = MP2032.ComandoTX(Bema_PulaLinha, Bema_PulaLinha.Length)
            Retorno = MP2032.AcionaGuilhotina(0)

        Catch ex As Exception
            SAviso = "***Imposivel Imprimir***" & vbCrLf & "Atenção " & ex.Message & " - " & Err.Description
            Aviso.ShowDialog()
            Me.Dispose()
        End Try

    End Sub  


Deus e o maior dos Programadores, ele criou tudo em liguagem visual
                                           .... e viu Deus que era bom


#478679 - 27/12/2017 09:34:35

JOAOBENEVIDES
RIBEIRAO PRETO
Cadast. em:Maio/2009


Citação:
:
Use a dll da bematech, ajuda bastante nesse processo
e muito simples de usar
olha essa rotina que eu uso para testar a impressão

  Private Sub Print_teste(pPorta As String)

        Try

            SAviso = ""
            Bconter = LeArquivoINI(nome_arquivo_ini, "sat", "modeloprint", 7)
            Retorno = MP2032.ConfiguraModeloImpressora(Bconter)
            If Retorno <> 1 Then
                SAviso += "Erro no Modelo da Impressora"
            End If
            Retorno = MP2032.ConfiguraTaxaSerial(115200)
            If Retorno <> 1 Then
                SAviso += " Erro ao Aplicar Taxa Serial"
            End If
            Retorno = MP2032.IniciaPorta(pPorta)
            If Retorno <> 1 Then
                SAviso += " Erro ao Abrir Porta da Impressora"
            End If
            Bconter = LeArquivoINI(nome_arquivo_ini, "sat", "qualidadeprint", 1)
            Retorno = MP2032.SelecionaQualidadeImpressao(Bconter)
            If Retorno <> 1 Then
                SAviso += " Erro na Qualidade da Impressora"
            End If
            If SAviso <> "" Then
                SAviso += vbCrLf & "***IMPOSSÍVEL IMPRIMIR***"
                Aviso.ShowDialog()
                Exit Sub
            End If

            Pnome = Chr(29) + Chr(249) + Chr(32) + Chr(0)
            Retorno = MP2032.ComandoTX(Pnome, Pnome.Length) 'muda para Bematech

            Pnome = "Teste de Comunicação com Impressora OK"
            Pnome = Pnome + vbCrLf + "**********************************"
            Retorno = MP2032.BematechTX(Pnome + vbCr & vbLf)
            Pnome = vbCr & vbLf
            Retorno = MP2032.ComandoTX(Bema_PulaLinha, Bema_PulaLinha.Length)
            Pnome = "-Comprimido-"
            Retorno = MP2032.FormataTX(Pnome + vbCrLf, 1, 0, 0, 0, 0)
            Pnome = "-Normal-"
            Retorno = MP2032.FormataTX(Pnome + vbCrLf, 1, 0, 0, 0, 0)
            Pnome = "-Elite-"
            Retorno = MP2032.FormataTX(Pnome + vbCrLf, 3, 0, 0, 0, 0)
            Pnome = "-Italico-"
            Retorno = MP2032.FormataTX(Pnome + vbCrLf, 1, 1, 0, 0, 0)
            Pnome = "-Sublinhado-"
            Retorno = MP2032.FormataTX(Pnome + vbCrLf, 1, 1, 1, 0, 0)
            Pnome = "-Expandido-"
            Retorno = MP2032.FormataTX(Pnome + vbCrLf, 1, 1, 1, 1, 0)
            Pnome = "-Enfatizado-"
            Retorno = MP2032.FormataTX(Pnome + vbCrLf, 1, 1, 1, 1, 1)
            Bconter = LeArquivoINI(nome_arquivo_ini, "sat", "modeloprint", 7)

            Pnome = "Bematech" & "(" & Bconter & ")" & " na " & pPorta
            Iretorno = MP2032.BematechTX(Pnome + vbCr & vbLf)
            Retorno = MP2032.ConfiguraCodigoBarras(110, 0, 0, 1, 8)

            Pnome = "123456789101112"
            Retorno = MP2032.ImprimeCodigoBarrasCODABAR(Pnome)
            Retorno = MP2032.FormataTX("  - X -  " + vbCr & vbLf, 3, 0, 0, 0, 0)
            Retorno = MP2032.ImprimeCodigoQRCODE(1, 5, 0, 10, 1, "http://www.mabinfo.com.br")

            Retorno = MP2032.FormataTX(HOJE.ToShortDateString + vbCrLf, 3, 0, 0, 1, 1)

            sVAR = Chr(27) + Chr(118) + Chr(140)
            Retorno = MP2032.ComandoTX(sVAR, sVAR.Length) 'abre gaveta

            Retorno = MP2032.ComandoTX(Bema_PulaLinha, Bema_PulaLinha.Length)
            Retorno = MP2032.ComandoTX(Bema_PulaLinha, Bema_PulaLinha.Length)
            Retorno = MP2032.ComandoTX(Bema_PulaLinha, Bema_PulaLinha.Length)
            Retorno = MP2032.AcionaGuilhotina(0)

        Catch ex As Exception
            SAviso = "***Imposivel Imprimir***" & vbCrLf & "Atenção " & ex.Message & " - " & Err.Description
            Aviso.ShowDialog()
            Me.Dispose()
        End Try

    End Sub  


amigo abrigado pela ajuda deixa eu ti fazer uma pergunta como voce faz para formatar os dados no cupom na fiscal ^
Obrigado pela ajuda

........Todos Podemos Ajudar Um ao Outro ajude vc tambem.....


#478680 - 27/12/2017 09:50:58

LOVO12
BRASIL
Cadast. em:Maio/2012


Citação:
:
:
Use a dll da bematech, ajuda bastante nesse processo
e muito simples de usar
olha essa rotina que eu uso para testar a impressão

  Private Sub Print_teste(pPorta As String)

        Try

            SAviso = ""
            Bconter = LeArquivoINI(nome_arquivo_ini, "sat", "modeloprint", 7)
            Retorno = MP2032.ConfiguraModeloImpressora(Bconter)
            If Retorno <> 1 Then
                SAviso += "Erro no Modelo da Impressora"
            End If
            Retorno = MP2032.ConfiguraTaxaSerial(115200)
            If Retorno <> 1 Then
                SAviso += " Erro ao Aplicar Taxa Serial"
            End If
            Retorno = MP2032.IniciaPorta(pPorta)
            If Retorno <> 1 Then
                SAviso += " Erro ao Abrir Porta da Impressora"
            End If
            Bconter = LeArquivoINI(nome_arquivo_ini, "sat", "qualidadeprint", 1)
            Retorno = MP2032.SelecionaQualidadeImpressao(Bconter)
            If Retorno <> 1 Then
                SAviso += " Erro na Qualidade da Impressora"
            End If
            If SAviso <> "" Then
                SAviso += vbCrLf & "***IMPOSSÍVEL IMPRIMIR***"
                Aviso.ShowDialog()
                Exit Sub
            End If

            Pnome = Chr(29) + Chr(249) + Chr(32) + Chr(0)
            Retorno = MP2032.ComandoTX(Pnome, Pnome.Length) 'muda para Bematech

            Pnome = "Teste de Comunicação com Impressora OK"
            Pnome = Pnome + vbCrLf + "**********************************"
            Retorno = MP2032.BematechTX(Pnome + vbCr & vbLf)
            Pnome = vbCr & vbLf
            Retorno = MP2032.ComandoTX(Bema_PulaLinha, Bema_PulaLinha.Length)
            Pnome = "-Comprimido-"
            Retorno = MP2032.FormataTX(Pnome + vbCrLf, 1, 0, 0, 0, 0)
            Pnome = "-Normal-"
            Retorno = MP2032.FormataTX(Pnome + vbCrLf, 1, 0, 0, 0, 0)
            Pnome = "-Elite-"
            Retorno = MP2032.FormataTX(Pnome + vbCrLf, 3, 0, 0, 0, 0)
            Pnome = "-Italico-"
            Retorno = MP2032.FormataTX(Pnome + vbCrLf, 1, 1, 0, 0, 0)
            Pnome = "-Sublinhado-"
            Retorno = MP2032.FormataTX(Pnome + vbCrLf, 1, 1, 1, 0, 0)
            Pnome = "-Expandido-"
            Retorno = MP2032.FormataTX(Pnome + vbCrLf, 1, 1, 1, 1, 0)
            Pnome = "-Enfatizado-"
            Retorno = MP2032.FormataTX(Pnome + vbCrLf, 1, 1, 1, 1, 1)
            Bconter = LeArquivoINI(nome_arquivo_ini, "sat", "modeloprint", 7)

            Pnome = "Bematech" & "(" & Bconter & ")" & " na " & pPorta
            Iretorno = MP2032.BematechTX(Pnome + vbCr & vbLf)
            Retorno = MP2032.ConfiguraCodigoBarras(110, 0, 0, 1, 8)

            Pnome = "123456789101112"
            Retorno = MP2032.ImprimeCodigoBarrasCODABAR(Pnome)
            Retorno = MP2032.FormataTX("  - X -  " + vbCr & vbLf, 3, 0, 0, 0, 0)
            Retorno = MP2032.ImprimeCodigoQRCODE(1, 5, 0, 10, 1, "http://www.mabinfo.com.br")

            Retorno = MP2032.FormataTX(HOJE.ToShortDateString + vbCrLf, 3, 0, 0, 1, 1)

            sVAR = Chr(27) + Chr(118) + Chr(140)
            Retorno = MP2032.ComandoTX(sVAR, sVAR.Length) 'abre gaveta

            Retorno = MP2032.ComandoTX(Bema_PulaLinha, Bema_PulaLinha.Length)
            Retorno = MP2032.ComandoTX(Bema_PulaLinha, Bema_PulaLinha.Length)
            Retorno = MP2032.ComandoTX(Bema_PulaLinha, Bema_PulaLinha.Length)
            Retorno = MP2032.AcionaGuilhotina(0)

        Catch ex As Exception
            SAviso = "***Imposivel Imprimir***" & vbCrLf & "Atenção " & ex.Message & " - " & Err.Description
            Aviso.ShowDialog()
            Me.Dispose()
        End Try

    End Sub  


amigo abrigado pela ajuda deixa eu ti fazer uma pergunta como voce faz para formatar os dados no cupom na fiscal ^
Obrigado pela ajuda

faz da mesma forma que o outro. so muda que vc vai esta em ambiente de homologação



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por JOAOBENEVIDES em 19/02/2018 12:10:19