各位好，請教一個小問題： 我在程式裡用了Tmemo做為顯示訊息用途．現在想將memo的內容直接列印出來，但是Memo裡沒有列印的方法． 我在這個討論區裡用「列印」查詢過了，幾乎都是以Reporter來產生報表的．我想，這只是單純的將文字列印出來，應該有方法吧？ 我知道改用TRichedit就可以直接解決，呵～我就是不想使用TRichedit．希望能找到簡單的列印方式． 謝謝您看過這個問題．

引言: 各位好，請教一個小問題： 我在程式裡用了Tmemo做為顯示訊息用途．現在想將memo的內容直接列印出來，但是Memo裡沒有列印的方法． 我在這個討論區裡用「列印」查詢過了，幾乎都是以Reporter來產生報表的．我想，這只是單純的將文字列印出來，應該有方法吧？ 我知道改用TRichedit就可以直接解決，呵～我就是不想使用TRichedit．希望能找到簡單的列印方式． 謝謝您看過這個問題．

你可以利用TPrint自己去列印memo內的資料.............

謝謝提示，已經解決了． 順便寫個範例．  

 
unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,printers,
  StdCtrls;    type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.DFM}    procedure TForm1.Button1Click(Sender: TObject);
var
   FPrn:System.text;
begin
   AssignPrn(FPrn);
   Rewrite(FPrn);
   try
      Printer.Canvas.Font.Size := 12;
      Printer.Canvas.Font.Name := '細明體';
      Writeln(FPrn,memo1.Lines.Text);
   finally
      CloseFile(FPrn);
   end;
end;
end.