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;
procedure TForm1.Button1Click(Sender: TObject); begin printer.BeginDoc; printer.Canvas.TextOut(10,10,form1.Memo1.Text); printer.EndDoc; end;
with Printer do
begin
BeginDoc;
Canvas.TextRect(Rect(200,200,PageWidth-200,PageHeight-200),
200, 200, Memo1.Lines.Text);
EndDoc;
end;end;
begin
printer.BeginDoc;
printer.Canvas.TextOut(10,10,form1.Memo1.Text);
printer.EndDoc;
end;