canvas.print
Alguém tem um exemplo de canvas.print para me enviar.
É o seguinte tenho que imprimir cupom em impressora matricial Epson LX-300. Qual é a Melhor forma de fazer isso.
Podem me enviar o exmplo em canvas.print
Obrigado a todos,
Rodrigo
É o seguinte tenho que imprimir cupom em impressora matricial Epson LX-300. Qual é a Melhor forma de fazer isso.
Podem me enviar o exmplo em canvas.print
Obrigado a todos,
Rodrigo
Rodrigorpb
Curtidas 0
Respostas
Cpd_arim
06/06/2006
Imprimindo um campo memo via canvas
//Coloque na clásula Uses a unit printers
procedure TForm1.Button1Click(Sender: TObject);
var
i, altura : Integer;
sMemo : String;
begin
With Printer do
begin
Title:= ´Imprimindo memo´;
BeginDoc;
With Canvas do
begin
altura := TextHeight(´A´);
for i := 1 to Memo1.Lines.Count do
begin
sMemo := Memo1.Lines[I];
TextOut(1, (i - 1) * Altura, sMemo);
end;
end;
EndDoc;
end;
end;
//Coloque na clásula Uses a unit printers
procedure TForm1.Button1Click(Sender: TObject);
var
i, altura : Integer;
sMemo : String;
begin
With Printer do
begin
Title:= ´Imprimindo memo´;
BeginDoc;
With Canvas do
begin
altura := TextHeight(´A´);
for i := 1 to Memo1.Lines.Count do
begin
sMemo := Memo1.Lines[I];
TextOut(1, (i - 1) * Altura, sMemo);
end;
end;
EndDoc;
end;
end;
GOSTEI 0