Fórum Imprimindo o conteudo de um memo #196678
22/11/2003
0
Como faço para impromir o conteudo de um memo
Ecmsoftware
Curtir tópico
+ 0
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+
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.
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
Clique aqui para fazer login e interagir na Comunidade :)