{De la ayuda de Delphi} este ejemplo imprime un Memo con un birde de 200 pixels alrededor de la página. Para que funcione debes añadir Printer al uses de la Unit.
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;