Imprimir Cupom Fiscal Epson TM T20

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

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

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