通常使用Excel打印Sheets表单,需要选择打印页声矜檠鹣面,打印页码,打印份数,点击打印。假如只有一两页,按照这种方法,是非常简单的。但缴赉丝别若有十几页表单需要打印,而且打印页码不尽相同,这样逐次打印,就显得麻烦了。在此,介绍一种通过VBA代码实现自动打印Sheets表单的流程方法。
工具/原料
Excel中VBAautoprintsheet自动打印表单流程
打印页码,打印份数各有差异
逐次点选,输入页码、份数,再打印
P1,P2,P3数组变量
UBound取数组变量个数
ActiveWindow.SelectedSheets.PrintOut函数
ForEachShInWorksheets遍历Excel数据表
方法/步骤
1、以下是需要打印的第一张表单,之前由于早中班,需要打印两页,现在只开一班了,仅需打印首页;
2、以下是需要打印的第二张表单,这张表单由于记录较多,占用了两页,都是需要打印的;
3、后续还有十几份表单,打印页码,龅歧仲半打印份数各有差异。总之,逐次点选,输入页码、份数,再打印,的确比较繁琐。使用VBA代码编程实现自动打印,VBA代码如下1st;
4、VBA代码如下2nd;
5、VBA代码如下3rd;
6、VBA代码如下4th;
7、VBA代码如下5th;
8、VBA代码如下6th;
9、VBA代码如下7th;