用VBA设置分页打印 每页标题 页尾相同

阿蕙

用VBA设置分页打印 每页标题 页尾相同：

1.领单料内容有可能只有3、4行，也可能有40、50行，所以想设置 如果领料单内容超过10行，自动分页打印在下一页，后面的内容以此类推。
2.每页标题相同，每页在紧挨领料单最后一行的下一行 有备注“1.此单据适合于生产到仓库领料用；生产仓库双签字确认有效。......” 和 领料人 签核人字样
新手小白，求大神帮助，谢谢！

chengyunpan

万能批量软件用于楼主的案例

软件简介：   
     真正的软件级别，VBA通用软件，用于批量打印、拆分，用于特殊需求的录入、打印等等。不需改代码，就可以万能套用。复杂的数据引用、格式要求都能简单解决。
      单个、少量、批量操作（打印、拆分等）或者选择性操作都一样方便。
      核心很简单，就是用“=”号引用对应数据列，并作简单设置，一学就会，很容易套用到工作中遇到的实际案例。
       界面超级简单，千篇一律，傻瓜式操作。
      每个案例都仅是此软件的一个小应用，学会一个案例作参考就能一里通百里用，欢迎大家测试使用，更期待能提出宝贵意见。
     软件免费，并附简易教程，需要做简单设计才能吻合到实际案例。也可以联系作者提供设计服务，能为你提供完美的整体解决方案。
      文件就是软件！！！

阿蕙

chengyunpan 发表于 2024-3-30 13:25
万能批量软件用于楼主的案例

软件简介：   

你这个太复杂了，新手小白看不懂，我想要简单点的

chengyunpan

阿蕙 发表于 2024-3-30 14:02
你这个太复杂了，新手小白看不懂，我想要简单点的

我想不出更简单的，我这个，会点按钮就行了，这样还不够简单吗。

3190496160

问题是可以解决的，但是，数据源跟领料单之间的对应关系，看的头大
比如：
1、根据什么来生成一张领料单？是批次号，还是单号？
2、同一个批次号或者单号有多个日期，究竟取哪一个日期？
3、产品名称取自哪里？
可以加我v具体沟通

阿蕙

3190496160 发表于 2024-3-31 14:21
问题是可以解决的，但是，数据源跟领料单之间的对应关系，看的头大
比如：
1、根据什么来生成一张领料单 ...

领料单是根据同一单据号生成的，领料单的生成这个代码我写好的了。产品名称取自基础资料。我删了一部分工作表。
我现在要解决的问题是生成的领料单，怎么设置分页打印的问题。
因为领料单是根据同一单据号生成的，领用的物料少生成领料单可能是一页纸；（同一单据号）领用的物料比较多的时候可能有两三页纸。所以想设置分页打印，每页表头表尾相同，中间表体设定每页最多打印10行。

3190496160

阿蕙 发表于 2024-4-1 15:20
领料单是根据同一单据号生成的，领料单的生成这个代码我写好的了。产品名称取自基础资料。我删了一部分工 ...

你的整体思路就是错误的嘛
可以预先确定你的一张纸能打印几行数据，然后，领料单就设置几行，实际数据少于设定的行，下面的行空白就行，如果是多余设定的行，那就分成多个来打印，
比如，你设定10行，刚刚10就是一页打印完毕，少于10行也是一页打印完毕，只是下面有几行空白而已，多余10行的，就按每10行一张单据打印

3190496160

阿蕙 发表于 2024-4-1 15:20
领料单是根据同一单据号生成的，领料单的生成这个代码我写好的了。产品名称取自基础资料。我删了一部分工 ...

你的代码，明显是没法完全满足你的需求的了呀，还在抱着你的代码不放？
你可以参考7楼给你的建议呗