canvas.print

Question

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

Cpd_arim · Answer

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;

F�rum canvas.print #322950