一户一表之利用VBA宏进行单页、批量打印

1、在一户一表的数据表空白区域任意选取两个单元格，输入批量打印需要的【打印页码起】（起始页码）、【打印页码止】（结束页码)

4、*-*输入代码*-*点击【开发工具】--【查看代码】，输入如下代码：Sub 单页打印(拘七呷憎)E8_Msg "确定打印当前页?"ActiveSheet.PrintOutEnd SubSub 多页打印()E8_Msg "确定要批量打印数据?"For I = [X28] To [X29][L11] = IApplication.CalculateActiveSheet.PrintOutNextEnd SubFunction E8_Msg(info As String)If MsgBox(info, vbYesNo) = vbNo ThenEndEnd IfEnd FunctionPrivate Sub CommandButton1_Click()End Sub

6、（2）For I =[X28] To [X29]，表示单元格X28至X29,即【打印页码起】【打印页码止】的内容

8、（4）E8_Msg "确定打印当前页?"，即打印时的提示语

10、*-*设置打印区域*-*下拉拓选需要打印的内容区域，点击【页面布局】--【打印区域】--【设置打印区域】

13、*-*启用宏*-*初次打开有些会被禁用宏，这时需点击【选项】，弹出安全警告，再点击【启用此内容】--【确定】即可