MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

    Imprimir Cupom Fiscal Epson TM T20

    avatar
    gersonzorn
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 07/11/2013

    Imprimir Cupom Fiscal Epson TM T20 Empty Imprimir Cupom Fiscal Epson TM T20

    Mensagem  gersonzorn 26/3/2014, 14:24

    Bom dia pessoal !

    Preciso de ajuda, eu comprei uma impressora Epson TM T20 não fiscal, mas consigo imprimir nesta impressora somente se a mesma for instalada como generit text, mas quero fazer um cupom não fiscal alterando o tamanho de fonte, por em negrito e por ai vai.
    Em anexo eu tenho uma orientação de comandos mas não estou conseguindo utilizar no access.

    Se alguém consiguer ajudar agradeço desde já.



    Gerson Zorn
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    Imprimir Cupom Fiscal Epson TM T20 Empty Re: Imprimir Cupom Fiscal Epson TM T20

    Mensagem  Noobezinho 27/3/2014, 01:24

    Olá Gerson

    Ta aí uma base do que você precisa.

    Esse código eu usei para imprimir num impressora não fiscal.

    É um ponto de partida.

    Bom Estudo

    Código:

       Impressão = 1
       Open "LPT1" For Output As #Impressão
     
       Print #Impressão, Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69); "   UTIL CASA E CONSTRUCAO" & Chr$(27) & Chr$(70) & Chr$(20)
       Print #Impressão, Chr$(27) & Chr$(15) & "     R.Joao Pio Duarte Silva, 1124"
       Print #Impressão, "     Corrego Grande Florianopolis"
       Print #Impressão, "     CNPJ: xxx.xxx.xxx/0001-35"
       Print #Impressão, "     " & Me![DataCaixa] & " "; Format(Me.HoraCaixa, "Short Time") & " -    N. " & Me.IDCaixa & Chr$(18)
       If Me.Cliente <> 0 Then
          Print #Impressão, Chr$(27) & Chr$(69) & "   Cliente: " & DLookup("[Fantasia]", "tblClientes", "[IDCliente]= " & Me.Cliente) & Chr$(27) & Chr$(70)
       End If
       Print #Impressão, Chr$(27) & Chr$(15) & String(54, "-")

       If Me![subfrmDetalhesVendas].Form.RecordsetClone.RecordCount > 0 Then
      
          ItemVenda.MoveFirst
          
          
          For X = 1 To ItemVenda.RecordCount
                 Print #Impressão, Tab(0); ItemVenda!IDProduto & " " & Left(ItemVenda!Descrição, 39)
                 Print #Impressão, Tab(13 + 5 - Len(Format(ItemVenda!Qtdade, "###.0"))); Format(ItemVenda!Qtdade, "###.0") & "    X"; Tab(30 + 5 - Len(Format(ItemVenda!VUnit, "#0.00"))); Format(ItemVenda!VUnit, "#0.00"); Tab(49 + 5 - Len(Format(ItemVenda!TotalProd, "#0.00"))); Format(ItemVenda!TotalProd, "#0.00")
                
                ItemVenda.MoveNext
          Next X
          Print #Impressão, String(54, "-")
          Print #Impressão, Tab(30); "Sub-Total"; Tab(49 + 5 - Len(Format(Me.Vendas, "#0.00"))); Format(Me.Vendas, "#0.00")
          Print #Impressão, Tab(30); "Desconto"; Tab(49 + 5 - Len(Format(Me.Desconto, "#0.00"))); Format(Me.Desconto, "#0.00")
          Print #Impressão, Chr$(27) & Chr$(15) & Chr$(27) & Chr$(69), Tab(18); "Total"; Tab(32 - Len(Me.TotalVenda)); Format(Me.TotalVenda, "#0.00") & Chr$(27) & Chr$(70)
          
          ' se tiver parcelas a imprimir no caixa
          
         If EstáCarregado("frmOrçamentos") Then
            Set frm1 = Forms!frmOrçamentos!subfrm_Parcelas.Form
            Set rsparcelas = frm1.RecordsetClone
          
            If rsparcelas.RecordCount > 0 Then
            
             rsparcelas.MoveFirst
             Print #Impressão, String(54, "=")
             Print #Impressão, ""
             Print #Impressão, " Forma de pagamento: " & Forms!frmOrçamentos!cboFormaPgto
             Print #Impressão, ""
             Print #Impressão, "Parcela"; Tab(30); "Valor"; Tab(45); "Vencimento"
             Print #Impressão, String(54, "-")
            
            
             For X = 1 To rsparcelas.RecordCount
                Print #Impressão, Tab(0); Left$(rsparcelas!bytParcela, 25); Tab(30 + Len("Valor") - Len(Format(rsparcelas!curValor, "#0.00"))); Format(rsparcelas!curValor, "#0.00"); Tab(45 + Len("Vencimento") - Len(Format(rsparcelas!dtVencimento, "dd/mm/yy"))); Format(rsparcelas!dtVencimento, "dd/mm/yy")
                rsparcelas.MoveNext
             Next X
          
             Print #Impressão, String(54, "-")
             Print #Impressão, Tab(0); "Total a prazo"; Tab(30 + Len("Valor") - Len(Format(Forms!frmOrçamentos!TotPrazo, "#0.00"))); Format(Forms!frmOrçamentos!TotPrazo, "#0.00")
             Print #Impressão, ""
             Print #Impressão, String(54, "=")
             Print #Impressão, ""
             Print #Impressão, ""
             Print #Impressão, "              ____________________________________"
             Print #Impressão, "                 " & Me.Cliente.Column(1)
            End If
         End If
      
       End If
      
      


    Abraços

    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    Pina
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 354
    Registrado : 19/02/2011

    Imprimir Cupom Fiscal Epson TM T20 Empty Imprimir Cupom Fiscal Epson TM T20.

    Mensagem  Pina 27/3/2014, 09:18

    Boas Gerson
    Utilizo a mesma impressora no Access e funciona prefeitamente com cortes no final do cupom.
    Não utilizo códigos algum, faz o relatório para a sua dimensão de papel e podes trabalhar muito bem o tipo de letra etc.

    Pina

    dori gosta desta mensagem


    Conteúdo patrocinado


    Imprimir Cupom Fiscal Epson TM T20 Empty Re: Imprimir Cupom Fiscal Epson TM T20

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 16:12