Fórum Impressao de Recibo (Urgente) #202902

Qual componente de relatório utiliza. QReport, Fortes, Rave ... ??? :shock: :?:

zReport é uma boa. E qual a impressora que você usa, matricial, deskjet, não fiscal???

Eu gostaria de mandar direto para a impressora e não usar Componentes,
e usar a impressora padrão.

Blz.


Zottis

Faz assim...

procedure btn.....
var
F : TextFile;
begin
AssignFile(F,´LPT1´);
Rewrite(F);
Writeln(F,´Teste de impressao...´);
CloseFile(F);
end;

Mandar para a impressora eu consegui, mas sai tudo desordenado.

Eu Gostaria se alguem soubesse como formatar os espaços, etc.



Rewrite(IMPRESSORA);
AssignFile(Arq,´LPT1´);
ReWrite(Arq);
Writeln(Arq,´|-----------------------|----------------------------------------------------------|´);
Writeln(Arq,´ R E C I B O valor |´);
Writeln(Arq,´|-----------------------|----------------------------------------------------------|´);
Writeln(Arq,´|Conta No:´+ ContaNo +´|´ + Pagamento +´0 0|´);
Writeln(Arq,´|Aluno No:´+ AlunoNo +´|Recebemos de: ´+ AlunoNo + ´|´);
Writeln(Arq,´|CPF: ´+CPF +´|´+Aluno + ´|´);
Writeln(Arq,´| |CPF: + CPF |´);
Writeln(Arq,´| |A Quantia de: |´);
Writeln(Arq,´| |Referente ao Mes:+Mes |´);
Writeln(Arq,´|Data:+data | |´);
Writeln(Arq,´| | Modalidade:+Modalidade |´);
Writeln(Arq,´| | |´);
Writeln(Arq,´|Recebedor: | |´);
Writeln(Arq,´|Recebedor | |´);
Writeln(Arq,´| | |´);
Writeln(Arq,´|Modalidade: | |´);
Writeln(Arq,´|Modalidade: | |´);
Writeln(Arq,´| | |´);
Writeln(Arq,´| | |´);
Writeln(Arq,´|-----------------------|----------------------------------------------------------|´);
Writeln(Arq,´|Empresa:´+Empresa + ´|´);
Writeln(Arq,´|´+enderecoEmp+´,´+Casanoemp+ ´ - CEP: ´+ CEPEmp + ´|´);
Writeln(Arq,´|´+Bairroemp+´ - ´+Cidadeemp+´ - ´+UFEmp + ´|´);
Writeln(Arq,´|´+CGCEmp +´Insc Est:´+InscEmp + ´|´);
Writeln(Arq,´|Fone: ´+TelEmp +´Fax: ´+Faxemp + ´|´);
Writeln(Arq,´|Site: ´+Site+´ E-mail: ´+email + ´|´);
Writeln(Arq,´|----------------------------------------------------------------------------------|´);
Writeln(Arq,´Numero + Valor ´);
Writeln(Arq,´Data: ´+Data+´Tipo de Pagamento: ´+Tipo);