求助：打印MEMO里面的文本(50分)

W

wallysw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-29

• #1

我想将MEMO里面的文本输到打印机里面，打印出来的效果有页边距且能自动换页。在程序里面也能控制页边距，打印出来自动能自动换页。怎么做啊？
注：不使用第三方控件，叫去网上找资料或自己写个算法的之类话最好不要发上来，来点实际的，谢谢。因为本人是菜鸟，去网上找资料了，也没找到，自己写算法了，也不能实现。

 

J

JonnyZheng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-29

• #2

什么叫第三方控件，什么是實際的？
DELPHI自帶的有QuickReport/RaveReport，兩個隨便選一個都可以。。。
拖個控件，賦一下值（將MEMO的值付給它）就可以了！
不知如何下手，看一下DELPHI自帶的DEMO...

 

W

wallysw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-29

• #3

我现在是要打印MEMO里面的文本,怎么将MEMO里面的文本赋值给QuickReport，能不能举个例子呢？不好意思，我很菜的。

 

J

JonnyZheng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-30

• #4

往这个邮箱发MAIL，我发个例子给你：
JonnyZheng@163.com

 

W

wallysw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-30

• #5

邮件已发出了，麻烦你给我发例子吧，谢谢了！

 

T

themars

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-30

• #6

打印Memo1中的内容
var
f: TextFile;
i: Integer;
begin
AssignPrn(f);
try
Rewrite(f);
for i := 0 to Memo1.Lines.Count - 1do
Writeln(f, Memo1.Lines);
finally
CloseFile(f);
end;
end;

 

W

wallysw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-30

• #7

TO:themars
这个我已试过了，但实现文本打印自动换行，自动换页很麻烦，不好控制。

 

W

wallysw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-01

• #8

已经收到，谢谢