Boton para imprimir tmemo

[ecfisa]

Hola Jorge.

Poner un botón y asignar evento OnClick: Desde la paleta de componentes pone un TButton en el Form. Seleccionado el TButton,
hacé click sobre la pestaña events, doble click sobre el evento OnClick.

Imprimir: Existe más de una forma hacerlo, ya sea que uses algún Report, o mediante la unit Printers.

Te pongo un ejemplo de como imprimir del último modo:

Código Delphi [-]
...
uses Printers;

procedure Imprimir(TS : TStrings) ;
var
  i: Integer;
  Linea: Integer;
begin
  Linea := 0 ;
  Printer.BeginDoc;
  for i := 0 to TS.Count - 1 do
  begin
    Printer.Canvas.TextOut(0, Linea, TS[i]);
    Linea := Linea + Abs(Printer.Canvas.Font.Height);
    if (Linea >= Printer.PageHeight) then
      Printer.NewPage;
  end;
  Printer.EndDoc;
end;

Llamada:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Imprimir(Memo1.Lines);
end;

Saludos.