impressão direta
iPrint(iFont(1) + "Impressão da Venda")
iPrint(iFont(1) + "===============")
vartotal is real = 0
FOR EACH ROW OF TABLE_vendas
iPrint(iXPos(1) + TABLE_vendas.COL_Produto)
iPrint(iXPos(5) + TABLE_vendas.COL_Quantiade + " x " + TABLE_vendas.COL_Preco + " = " + TABLE_vendas.COL_Total)
vartotal += TABLE_vendas.COL_Total
END
iPrint(iXPos(10) + vartotal)
iEndPrinting()
iDestination(iFile,"vendas" + Today() + Now())
iPrint(iFont(1) + "Impressão da Venda")
iPrint(iFont(1) + "=================================")
vartotal is real = 0
FOR EACH ROW OF TABLE_vendas
iPrint(iXPos(1) + TABLE_vendas.COL_Produto)
iPrint(iXPos(5) + TABLE_vendas.COL_Quantiade + " x " + TABLE_vendas.COL_Preco + " = " + ...
NumToString(TABLE_vendas.COL_Total,"5,2f"))
vartotal += TABLE_vendas.COL_Total
END
iPrint(iFont(1) + "=================================")
iPrint(iXPos(5)+ "Total das vendas " + NumToString(vartotal,"5,2f"))
iEndPrinting()
[12:13:01] Julio Cesar Pedroso: impressão para prn
[12:13:02] Julio Cesar Pedroso: iDestination(iPrinterFile,"vendas" + Today() + Now())
iPrint(iFont(1) + "Impressão da Venda")
iPrint(iFont(1) + "=================================")
vartotal is real = 0
FOR EACH ROW OF TABLE_vendas
iPrint(iXPos(1) + TABLE_vendas.COL_Produto)
iPrint(iXPos(5) + TABLE_vendas.COL_Quantiade + " x " + TABLE_vendas.COL_Preco + " = " + ...
NumToString(TABLE_vendas.COL_Total,"5,2f"))
vartotal += TABLE_vendas.COL_Total
END
iPrint(iFont(1) + "=================================")
iPrint(iXPos(5)+ "Total das vendas " + NumToString(vartotal,"5,2f"))
iEndPrinting()
[12:13:40] Julio Cesar Pedroso: com os comandos i...
[12:13:51] Julio Cesar Pedroso: voce pode enviar caracteres de controle para a impessora
para definir o tamanho do papel
[12:17:26] Julio Cesar Pedroso: //Tamanho do papel definido pelo usuário
iParameter("PAPERSIZE=USERDEFINED")
iParameter("PAGEHEIGHT=3048")
iParameter("PAGEWIDTH=2100")
