Imprimir conteúdo do MEmo
Olá pessoal, estou com uma aplicação CLX e gostariade imprimir o conteúdo de um Memo, sem ter que usar Rave ou outros Relatórios, seria uma impressão direta para a porta, alguém poderia me exemplificar alguma rotina
Muito Obrigado.
Muito Obrigado.
Marco Tomaz
Curtidas 0
Respostas
Rfpsatin
06/10/2003
Se não me engano
Memo1.print;
Memo1.print;
GOSTEI 0
Flavia_mococa
06/10/2003
A função abaixo utiliza o Canvas:
Declare na clásula Uses a unit printers
procedure TForm1.Button1Click(Sender: TObject);
var
i, alt : Integer;
sMemo : String;
begin
With Printer do
begin
Title:= ´Imprimindo um campo memo´;
BeginDoc;
With Canvas do
begin
alt := TextHeight(´A´);
for i := 1 to Memo1.Lines.Count do
begin
sMemo := Memo1.Lines[I];
TextOut(1, (i - 1) * Alt, sMemo);
end;
end;
EndDoc;
end;
end;
Declare na clásula Uses a unit printers
procedure TForm1.Button1Click(Sender: TObject);
var
i, alt : Integer;
sMemo : String;
begin
With Printer do
begin
Title:= ´Imprimindo um campo memo´;
BeginDoc;
With Canvas do
begin
alt := TextHeight(´A´);
for i := 1 to Memo1.Lines.Count do
begin
sMemo := Memo1.Lines[I];
TextOut(1, (i - 1) * Alt, sMemo);
end;
end;
EndDoc;
end;
end;
GOSTEI 0
Eniorm
06/10/2003
Caso for efetuar a impressão direta na porta da impressora vc pode tentar da seguinte forma:
var
imp : TextFile;
i : integer;
begin
AssignFile(imp,´LPT1´);
ReWrite(imp);
for i := 0 to Memo1.Lines.Count -1 do
WriteLn(imp, Memo1.Strings[i]);
CloseFile(imp);
end;
GOSTEI 0