Fórum Imprimindo o conteudo de um memo #196678

22/11/2003

0

Como faço para impromir o conteudo de um memo


Ecmsoftware

Ecmsoftware

Responder

Posts

22/11/2003

Jabanildo

Vc terá que usar o QReport, para poder imprimir algum dado...

Faça com que o QRMemo, receba o dado, depois só mandar imprimir

T+


Responder

Gostei + 0

23/11/2003

Manoeljr

Você pode fazer assim para imprimir o conteúdo de um MEMO, primeiro declare na cláusula uses de seu programa a unit PRINTERS e use o seguinte:
procedure TForm1.Button1Click(Sender: TObject);
var
PrintFile: TextFile;
I: integer;
begin
Assignprn(PrintFile);
Rewrite(PrintFile);
Memo1.SelStart := 0;
try
Printer.Canvas.Font := Font;
for I := 0 to Memo1.Lines.Count - 1 do
writeLn(PrintFile, Memo1.Lines[I]);
finally
System.CloseFile(PrintFile);
end;
end;

Observe que eu usei no evento onclick de um Buttom mais vc pode utilizar a procedure de uma outra maneira que vc necessite.


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar