Impresión de mensajes

[canadier]

Hola

Aquí tienes un ejemplo de como imprimir un TMEMO utilizado directamente el lienzo de la impresora, con la particularidad de poder utilizarlo en todas las versiones de Delphi.

Código Delphi [-]
 Procedure TDlgMsgMemo.BotonImprimirClick(Sender: TObject);
 Var
   Linea  : LongInt;  {Contador}
   F      : TextFile; {Handle impresora}
 Begin
   If DlgImpresora.Execute then {TPrintDialog}
     begin
       Try
         AssignPrn(F); {Asigna la variable F a la impresora}
         Rewrite(F);   {Crea y abre el fichero}
           {Asigna el tipo de letra del memo al Canvas del objeto Printer}
         Printer.Canvas.Font := IdMemo.Font;
         Printer.Canvas.Font.Style := [];
         Printer.Canvas.Font.Size := 12;
         Linea := 0;
         While Linea < IdMemo.Lines.Count Do
           begin
             Writeln(F,IdMemo.Lines[Linea]); {Escribe el contenido de la linea al obejeto Printer}
             Inc(Linea);
           end;
       Finally
         System.Close(F);
       end;
     end;
   IdMemo.SetFocus;
 End; {TDlgMsgMemo.BotonImprimirClick}

Un saludo