Tópico anterior Próximo tópico Novo tópico
C#
#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