请问如果打印memo里的内容？(100分)

阿

阿曼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-25

• #1

memo的内容有几页的时候，如果仅仅打印memo里的内容而不打印整个form？

 

S

softprince

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-25

• #2

procedure printmemo(lst:TStrings);
var
i,line:integer;
begin

line:=0;
printer.begin
doc;
for i:=0 to lst.count-1do

begin

printer.canvas.textout(0,line,lst);
line:=line+abs(printer.canvas.font.height);
if (line>=printer.pageheight) then

printer.newpage;
end;

printer.enddoc;
end;

 

X

xueminliu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-25

• #3

统同意楼上的意见,
还有最简单的方法式动态create一个临时的memo,然后把需要打印的东西add进去,
设置memo为visible:=false
然后memo.print

 

阿

阿曼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-27

• #4

多人接受答案了。

 

H

homny

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-09

• #5

to softprince:
请问调用是如何给tstrings初始化。
来信请发到我的e-mail:homny@sina.com