找回密码
 立即注册

QQ登录

只需一步,快速开始

lqs27
论坛元老   /  发表于:2013-12-22 09:38  /   查看:10566  /  回复:13
VB6.0 spread7.0打印预览时,页脚内容能不能紧跟在fpSpread1表体底部位置,
或者说在fpSpread1表体底部 单独加段内容.
当前页脚是在A4纸的最底部位置,当只打印1-几行表体时,A4页显得空洞洞的.
不知怎样设置它的位置.
Samples目录下的PrintPreview可测试下.

13 个回复

倒序浏览
roger.wang
社区贡献组   /  发表于:2013-12-23 11:00:00
沙发
回复 1楼lqs27的帖子

打印的时候,设置一下Margin试试:

  1. axfpSpread1.PrintMarginTop = 0
  2. axfpSpread1.PrintMarginBottom = 0
  3. axfpSpread1.PrintMarginLeft = 0
  4. axfpSpread1.PrintMarginRight = 0
复制代码
回复 使用道具 举报
lqs27
论坛元老   /  发表于:2013-12-23 11:18:00
板凳
这段代码 需要放到什么哪儿呢,试了下不行,从代码来看,估计没用.
回复 使用道具 举报
roger.wang
社区贡献组   /  发表于:2013-12-23 11:41:00
地板
回复 3楼lqs27的帖子

请在调用打印函数PrintSheet前调用。
回复 使用道具 举报
lqs27
论坛元老   /  发表于:2013-12-23 13:15:00
5#
哦,老师 那么"纸张底部"至"fpSpread1表体底部位置"的距离怎么计算能得到呢,这张纸可能是票据纸,可能是A4纸,麻烦帮我看下.


估计算出来了也没用. 最好还是在表体内容后跟一段内容.但不知怎样处理.有没有这样有参数可用?
回复 使用道具 举报
roger.wang
社区贡献组   /  发表于:2013-12-23 15:03:00
6#
回复 5楼lqs27的帖子

  1. axfpSpread1.PrintMarginBottom = 0
复制代码


这个设置了,打印A4,还有很多空白吗?

调整打印的边框,主要用Margin参数来设置。
回复 使用道具 举报
lqs27
论坛元老   /  发表于:2013-12-23 15:08:00
7#
是的.打印A4还有很多空白,我觉得这话题明确了,我主要想在 FP1表体后跟一段内容.老师能做到吗,
毕竟,页脚的用途 是纸张的底部.
回复 使用道具 举报
roger.wang
社区贡献组   /  发表于:2013-12-23 15:14:00
8#
回复 7楼lqs27的帖子

能给提供个demo和截图吗?  我帮您分析分析看。

修改Margin=0后,空白区域应该很小的。
回复 使用道具 举报
lqs27
论坛元老   /  发表于:2013-12-23 15:38:00
9#
好的,已上传,麻烦下,我想表体下,直接加一段话.(不想在FP1里直接加内容)
拜托了:share:
回复 使用道具 举报
roger.wang
社区贡献组   /  发表于:2013-12-23 16:08:00
10#
回复 9楼lqs27的帖子

MainFrm文件中的Load函数,为什么要赋值这么大呢?  删除这4行的赋值,默认的是0.


  1. Private Sub Form_Load()
  2.     fpSpread1.PrintMarginTop = 0.75 * 1440
  3.     fpSpread1.PrintMarginBottom = 0.75 * 1440
  4.     fpSpread1.PrintMarginLeft = 0.5 * 1440
  5.     fpSpread1.PrintMarginRight = 0.5 * 1440
复制代码




spread_top.gif
回复 使用道具 举报
12下一页
您需要登录后才可以回帖 登录 | 立即注册
返回顶部