最最简单的打印问题，可是我不会(50分)

怎么样将Tmemo控件中的内容打印出来，最好有源码
谢谢各们富翁，先谢了……

用Trichedit控件吧！！包含幾乎所有的Tmemo的屬性和事件
richedit.print

不行的，用Trichedit控件，在我的程序中有问题，只能用Tmemo

fastreport2.42

如果你执意用Memo就见下面的代码
procedure TKmCheckForm.ToolButton4Click(Sender: TObject);
var
MyPrinter:TextFile;
PrnRun:integer;
OldFontName:String;
OldFontSize:integer;
begin
if Memo1.Lines.Count>0 then
begin
KmAnsiForm.ShowModal;
if KmAnsiForm.Label2.Caption='1' then
begin
//保存以前的字体信息
OldFontName:=Printer.Canvas.Font.Name;
OldFontSize:=Printer.Canvas.Font.Size;
Printer.Canvas.Font.Name:='宋体';
Printer.Canvas.Font.Size:=10;
//设置缺省打印机
Printer.PrinterIndex:=-1;
//将打印机和指定文本关联
AssignPrn(MyPrinter);
//初始文本
ReWrite(MyPrinter);
for PrnRun:=1 to Memo1.Lines.Count-1do
begin
//将文本内容送打印机
Writeln(MyPrinter,Memo1.Lines[PrnRun]);
end;
//关闭文本
CloseFile(MyPrinter);
//重置打印机字体信息
Printer.Canvas.Font.Name:=OldFontName;
Printer.Canvas.Font.Size:=OldFontSize;
end;
end;
end;

>>

非常感谢kingkong
我去试试

多人接受答案了。