[开_145-1]数据按日期分页打印[已总结]

jsxjd

竞赛题按日期分页打印-jsxjd.rar (107.11 KB, 下载次数: 15)

2013-12-19 17:15 上传

点击文件名下载附件

2003版操作步骤如下：
1、点击A22单元格，执行“分类汇总”，如下图，点击“确定”，会自动插入A列

2、选择A列，执行“定位”，如下图定位条件为“常量”，点击确定

3、执行“格式”菜单中的行“隐藏”命令
4、隐藏第1步产生的A列
5、页面设置：
(1)顶端标题行为“$1:$21”；
(2)通过“页边距”设置页眉的纵向位置为“4.8”；
(3)自定义页眉右部：&[页码] of &[总页数]，后跟适当数量的空格
(4)自定义页脚中部：横线可通过图片或不间断字符来实现
6、删除或隐藏带有页脚文字的行
7、L列会导致空白页的输出，将其删除
最终效果如下：

AVEL

1、选择A22：J33区域——点击“数据”——“分类汇总”

2、选中A列，F5定位常量，删除所在行，删除A列
3、设置打印区域：A1:I37，设置顶端标题行：$1:$21
4、设置页眉的页边距为4.8，自定义页眉中在右边输入 &[页码] of &[总页数] ，后面再敲入 大概 10个空格。。
5、接着在页脚的中部位置插入 ”-“，设置字体格式 粗体，48号，插入字符的个数自己调试掌握，一般是20-21个左右，再将表格中的C44:C47区域文本连接到一块，在自定义页脚的中部输入 连接后的文本.
6、最后隐藏44至47行内容。

EH(AVEL)-竞赛题按日期分页打印.rar (105.16 KB, 下载次数: 21)

2013-12-20 14:28 上传

点击文件名下载附件

cleverzhzhf

不好意思，多占一层楼。
修改下7楼的附件。
开始想用get.document，发现实现不了，只能手动调整了。

不经意的回头

今天中午才看到这一题，一定要参与一下。先交上第一步吧：
1.页面设置—工作表—打印顶端标题行设置为：$1:$21；
2.选中A21:A32，点数据—分类汇总命令，分类字段为DATE字段，汇总项为DATE，去掉“替换当前分类汇总”和“汇总结果显示在数据下方”前的勾，选中“每组数据分布”，确定。
3.删除A列（总计列）和第22、23行。

Page No项和底部内容设置晚上回来研究

delete_007

答题截止日期已至，先开帖。请楼主给出评分建议及总结。

zmnyu

总结：
一、按A22:A33的日期，每一天单独打印一页：常规的方法是用分类汇总的"每组数据分页"功能，4楼提供了VBA方法，通过判断A列日期上下行是否相同，来插入分页符。
二、每页都要有如图所示的表头：可通过设置打印标题的区域来完成。
三、打印预览时，表头的Page  No有对应的页数和总页数显示（格式如：1 of  6）：通常的方法是设置页眉的页码和总页数，通过调整合适位置实现，也有人提供了使用宏表函数的方法，虽没成功，但个人觉得方法应该是可行的。
四、每页底部应有如图所示内容，包括一条黑色分隔线和公司相关信息：黑色分隔线有两种方法，一是在页脚插入连续符号（如破折号）通过设置字体字号，二是做一个黑色横线的BMP图片，插入到页脚中。然后把公司相关信息复制到页脚的黑色横线下部；也有人把横线和公司信息一同做成图片，插入页脚，也是一种不错的方法。

以下是本题评分建议，请审议

楼层	论坛ID	技术分	财富	评  语	备注
2	being117	2		正确，页脚信息和横线整体做成了图片插入，方法可行
3	安全为主	2		正确，页脚信息和横线整体做成了图片插入，方法可行
4	ctp_119	1	30	使用VBA方法生成分页符，方法新颖独特，但代码引用工作表错误啦，且帖代码时丢掉了end  sub的程序尾巴，太可惜了
5	little-key	1	20	一、分类汇总时分类字段应为"DATE"不是"DATA"二、打印区域设置错误，不应设置【打印区域】为A1:I21三、使用宏表函数生成页码方法不错，但I7单元格公式有误，和定义的名称不符四、页脚设置正确	请核实宏表函数是否能完成此题页码设置
6	kuangben8	2		正确。分类汇总操作和页脚处理都很好
7	cleverzhzhf			开始J7单元格公式不正确，后经几次补充，13楼结果正确，在13楼给予评分
8	苍海拾贝	2		结果正确，描述简明扼要
9	笑眼晴天	2		结果正确，描述合理
10	xinzijin2006	1	30	动画中未发现分页设置步骤，且无附件和文字描述	请核实动画中是否有分页设置方法
11	jsxjd	2		页脚处黑线，用符号设置字号字体方法实现，虽与效果图稍有差异，但方法独特，赞一个
12	AVEL	2		页脚处黑线，用符号设置字号字体方法实现，虽与效果图稍有差异，但方法独特，赞一个
13	cleverzhzhf	2		与7楼重复占楼，在7楼已点评
14	不经意的回头	1		完成了分页打印，给一分

cleverzhzhf

delete_007 发表于 2013-12-23 16:02
答题截止日期已至，先开帖。请楼主给出评分建议及总结。

{:soso_e109:}好冤额。。。多占楼非我所愿。。。超过编辑时限，“补充”功能不能增加附件。。。{:soso_e109:}

delete_007

cleverzhzhf 发表于 2014-1-6 17:46
好冤额。。。多占楼非我所愿。。。超过编辑时限，“补充”功能不能增加附件。。。{:soso_e1 ...

{:soso_e113:}下次如遇这种情况，请与我联系，由我代为编辑帖子。
扣10财富，小惩大戒。