Como imprimir algo de una TMemo en Lazarus

[oppseggp]

Como puedo imprimir el texto que aparece en un TMemo, en el programa de abajo hize un Tmemo y un Boton, pero no se como mandar a imprimir.

Código:

unit a;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  MaskEdit, StdCtrls, ExtCtrls, PrintersDlgs;

type

  { TForm1 }

  TForm1 = class(TForm)
    Memo1: TMemo;
    PageSetupDialog1: TPageSetupDialog;
    ToggleBox1: TToggleBox;
    procedure Memo1Change(Sender: TObject);
    procedure ToggleBox2Change(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Form1: TForm1; 

implementation

{ TForm1 }

procedure TForm1.ToggleBox2Change(Sender: TObject);
begin
end;

procedure TForm1.Memo1Change(Sender: TObject);
begin

end;

initialization
  {$I a.lrs}

end.

[edgaragy]

Hola !, soy nuevo en el foro...
ya buscaste en la red .... como
que as encontrado.... para que sepan que si trabajas
o solo quieres que un ingenuo te conteste...
y necesitas ser mas especifico, que impresora,tu sistema operativo windows, linux, mac, wince


los caso que conozco en windows o Linux

Linux: tienes dos opciones la mas sencilla es que guardes en un archivo el tmemo y ejecutes el lpr desde lazarus, linux va a hacer su trabajo, la segunda con algo de codigo
assignlst(d,'|/usr/bin/lpr -m');
y se vuelve magia...!

Windows: se complica por que la salida de impresión depende de el controlador instalado si fuera una impresora de solo texto con un tratamiento de archivo lo podrías imprimir.

en cualquiera de las plataformas que programes utiliza powerpdf o lazarus report para que sea una impresión mas fácil de programar

espero que te sirvan las opciones