Excel 怎样批量打印，一个农户家庭独立一页打印
简单说一下我的思路。
找到A列最后一行。从A列第3行到最后一行进行判断， 如果A列当前行单元格不为空加上对应家庭成员数为数字，打印范围 = 当前行 ：行数 = ( 当前行的行数 + 家庭成员数 - 1 )的行。Sub prange()Dim bodyRange As RangeDim lastRow As LongDim i As LongDim fRow As IntegerlastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).RowFor i = 3 To lastRow With ActiveSheet If .Range("A" \u0026amp; i) \u0026lt;\u0026gt; "" And IsNumeric(.Range("C" \u0026amp; i)) = True Then fRow = .Range("C" \u0026amp; i).Value \u0026#39;Set print area Set bodyRange = Range("A" \u0026amp; i \u0026amp; ":J" \u0026amp; (i + fRow - 1)) .PageSetup.Orientation = xlLandscape .PageSetup.FitToPagesWide = 1 .PageSetup.PrintArea = bodyRange.Address .PageSetup.PrintTitleRows = "$1:$2" .PrintOut .PageSetup.PrintArea = "" End If End WithNext iEnd Sub?
■网友
这个问题刚好我这两天也遇到过，一个在物业办公室工作的朋友也来找我帮忙，希望可以一户打印一张《2016年物业缴费明细》。前面的数据整理过程在这里就不多说了，到了打印这个环节，我的天总共1800多户……经过几种不同方法的测试后，我选择了使用VBA来解决。最终效果如下：分页预览模式下
思路：1.使用vba判断需要分页的位置。2.在需要分页的位置设置分页。3.设置重复打印标题行，在页眉输入标题，在页脚输入页码等。知识补充：
【Excel 怎样批量打印，一个农户家庭独立一页打印】
1.打印范围与自动缩放在页面设置选项卡选择打印范围，并设置自动缩放，宽度1页。这样可以确保我们需要的内容可以完整的在一页纸上打印出来。2.分页在页面设置选项卡有一个“插入分页”，可以让用户自己选择需要分开打印的位置。3.重复打印标题行当需要打印的数据很多，需要在每一页都打印标题。可以在页面设置选项卡设置打印标题行。4.vba这个……有兴趣可以钻研一下。5.分页上限一张工作表的最高分页上限是1026页，所以超过1026的话就要把工作表再复制一张，把已经打印的删掉，没打印完的数据继续分页。具体步骤：1.给需要分页的位置进行标记，以便vba可以识别判定。题主的工作表很简单，只要在B列中有内容就判定为需要分页。2.在vba编辑器中新建模块，输入以下代码。Sub 添加分页()Dim i As IntegerFor i = 2 To X \u0026#39;将X设置为你的工作表行数 If Cells(i, 2)\u0026lt;\u0026gt;"" Then \u0026#39;判断当地2列的单元格不是空值时，运行下面的代码 Cells(i, 1).Select ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell \u0026#39;插入“分页” End If Next iEnd Sub3.执行宏“添加分页”。4.在页眉页脚补充内容。
5.完成。
■网友
推荐阅读
- 聪明人养花，这3种“花”怎样也要养一盆，每年能省不少医药费
- 互联网怎样解决“家政服务上门速度慢”的问题
- 怎样看待从1月8号起，QQ钱包开始提现收费
- 银行it人怎样转型
- 汽车|冬天怎样让车内温度快速升高？座椅加热的最佳使用方式二，外循环的作用总结
- 怎样进入通信行业
- 怎样评价扶他柠檬茶的小说《云养汉》的结尾
- 怎样成为一名合格的Python程序员?
- 怎样评价华为、诺基亚、中兴中标中国移动高端路由交换设备扩容集采
- 怎样评价类似前橙会、百老汇、南极圈这样类型的离职帮抱团，对企业的积极意义和消极意义