Boton para imprimir tmemo

[JorgeDiaz]

Buenos dias, quisiera saber como poner un boton para que al darle click, poder imprimir mi TMemo, garcias.

[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.

[[Caral]]

Hola
Bueno, aparte de lo dicho por el Maestro ecfisa:
Para poner un boton se tiene que hacer con mucho cuidado.
Aqui pongo un ejemplito con QReport.
Saludos

[Casimiro Notevi]

Creo recordar que también puedes poner el botón y al pulsarlo:

memo1.print('');

Se acabó.

[JorgeDiaz]

Gracias por las respuestas, tratare de hacerlo haber si me sale, ya que soy nuevo en esto, comentare despues, gracias.

[ecfisa]

Hola de nuevo.

La sentencia

Código Delphi [-]
TRichEdit(Memo1).Print('');

definitivamente no funciona.

Un saludo.

[ecfisa]

Empezado por Caral

Hola
Para poner un boton se tiene que hacer con mucho cuidado.

Una afirmación que difícilmente se pueda superar...

Un saludo.

[ecfisa]

Hola Casimiro.

También fué lo primero que pensé, pero esa propiedad aparentemente la tiene el RichEdit pero no el Memo.

Habría que probar si funciona:

Código Delphi [-]
TRichEdit(Memo1).Print('');

Luego te comento.

Un saludo.

[[Caral]]

Hola
Ya decia yo que eso no me lo habian enseñado...
Saludos amigos.