Impresion en carro largo

[Ivan JR]

te recomiendo que utilices el Tprinter, más indicado para esos tipos de impresiones

procedure TForm1.Button1Click(Sender: TObject);

begin
with Printer do
begin
BeginDoc;
Canvas.TextRect(Rect(200,200,PageWidth-200,PageHeight-200),
200, 200, Memo1.Lines.Text);
EndDoc;
end;

end;