Quickreport

[alrprog]

Fiz um cupom no quickreport, mas ele ejeta e perde papel, como faço p/ não ejetar, ou comando para abortar cancelar impressão.

[Guest Impressão direta]

//Tente fazer uma impressão direta.

procedure TForm1.Button1Click(Sender: TObject);

var

arquivo: TextFile;

begin

AssignFile(arquivo, 'LPT1');// ou nome da impressora ex: '\\nomemaquina\impressora'

Rewrite(arquivo);

try

//você pode adicionar outras coisas ao arquivo também como cabeçalho

//WriteLn(arquivo, 'Seu texto aqui');

query1.first;

while not query1.eof do begin

WriteLn(arquivo, query1NOMEDOCAMPO.AsString);

//pode ser feito com um memo tambem

//memo1.lines.add(query1NOMEDOCAMPO.AsString);

query1.next;

end;

//rodapé

//WriteLn(arquivo, 'Seu texto aqui');

WriteLn(arquivo, #12); // Eject

finally

CloseFile(arquivo);

end;

end;

//tudo isso sem precisar usar qrep

[Guest Visitante]

Esqueci de me identificar

Eder Moraes

eder.mcastro@gmail.com