Windev - impressão direta

---

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")

---

---

---

---