【结贴】[请求]**

徐园场 · 发表于 2009-2-17 15:14:33

如何用代码控制表格文档中--打印的换页设置？

如：区域前换页：有代码控制

徐园场 · 发表于 2009-2-17 15:46:42

你好！我刚才试了一下，可我找不到具体设置的页数的属性。你能给详细介绍一下么

atiger · 发表于 2009-2-17 15:47:05

这样的代码，在设计期间设置一下，然后复制粘贴到记事本上就可以，
类似的例如
http://bbs.justep.com/forum.php?mod=viewthread&tid=17133

TDataSheetArea(YWXX1.TBGWD3(DocView1.Doc).Sheet.Areas[0]). 看看这后面的方法

zfang · 发表于 2009-2-17 16:17:23

TDataSheetArea(DY__HYFS.THYFS(
   DocViewDY__HYFS_HYFS.Doc).Sheet.Areas[0]).ForceNewPageOptions := [TForceNewPage.npBeforeArea,TForceNewPage.npAfterRecord];
  TDataSheetArea(DY__HYFS.THYFS(
   DocViewDY__HYFS_HYFS.Doc).Sheet.Areas[0]).RecordsPerPage :=2;

参考这个：区域开始前，每2条记录换页

徐园场 · 发表于 2009-2-17 16:21:53

你好是这样设置么？ TDataSheetArea(YPDJ_INFO.TYPDJWD(DocView1.Doc).Sheet.Areas[0]).RecordsPerPage:=4; 我测试了一下。怎么没有变化，能具体说一些那个属性么，谢谢

zfang · 发表于 2009-2-17 16:30:56

看我的图

徐园场 · 发表于 2009-2-17 17:20:05

测试成功，谢谢，结贴

zfang · 发表于 2009-2-17 17:28:33

谢谢反馈。

		自动登录	找回密码
密码			立即注册