Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
{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;