memo的打印问题

[attar]

memo中的东西如何打印出来？直接就这么打印的话，好看么？是不是就是文本文件显示的那样？

[楚人无衣]

直接好象没有打印函数；
uses Printers;
...
procedure TForm1.Button1Click(Sender: TObject);
var
i, iLine: Integer;
begin
iLine := 0;
Printer.BeginDoc
for i : =0 to Memo1.Lines.Count - 1 do
begin
Printer.Canvas.TextOut(0, iLine, Memo1.Lines[i]);
iLine := iLine + Abs(Printer.Canvas.Font.Height);
if (iLine >= Printer.PageHeight) then
Printer.NewPage;
end;
Printer.EndDoc;
end;
用RichEdit试一试，它自己有Print方法

[楚人无衣]

Printer.BeginDoc
for i : =0 to Memo1.Lines.Count - 1 do
-->
Printer.BeginDoc;
for i: = 0 to Memo1.Lines.Count - 1 do

[attar]

没人知道么？

[konhon]

用QucikRep中QrStringBand可以打印的.

你用"QrStringBand"在本論談搜索,就可找到使用方法