如何强行令打印机换页?(100分)

  • 主题发起人 主题发起人 GoodWood
  • 开始时间 开始时间
G

GoodWood

Unregistered / Unconfirmed
GUEST, unregistred user!
在需打印的文档中设置一特殊标志(如word的分页符),打印时遇到该字符就另起一页打印。另外word中的插入分页符是如何实现的呢?
 
用Printer.NewPage。

procedure TestPrinter;
begin

...
if SS = '某个字符' then
begin

Printer.EndDoc;
//让当前打印任务从内存中清空
Printer.NewPage;
end;

...
end;

 
不对吧?
直接NewPage就可以了,
EndDoc导致打印任务结束,
而且你又没有begin
Doc
 
这问题已经讨论多少次了,请先看看已答问题。
 
文档为类似于word的RTF格式(用OLE嵌入图片、表格等),主要不知如何在这样的文档中设置分页标志。
 
Help!
为什么没有人帮助我了?
 
如你用ole(word)打印,你可以直接加入分页指令(insertpagebreak)。
如果你只是用richedit控件打印,你可以通过自己定义的特殊字符做为分页符来调
整。如设置{p}为分页符,你可以在打印前处理rtf的lines,根据里面的分页符位置
来调整richedit.pagerect,然后分几次打印出全部文档。
 
多人接受答案了。
 
后退
顶部