在U盘新建一个Excel文件并打开。
按下ALT+F11键可打开VBA编辑界面。
在左侧列表中找到 thisworkbook。
在thisworkbook上右键点击,选择查看代码。
将代码粘贴至右侧窗口并保存退出
Else
Exit Sub
Else
Application.Quit会完全退出Excel,使用后无需再执行关闭工作簿的命令。
End If
End If
End With
End Sub
看下图:

代码如下:
我需要打印一份文件。
选择台账录入工作表。
获取B列最后一个非空单元格的行号。
如果最大行号小于2,则退出当前过程。
将工作表中B列与C列对应的两个单元格内容,复制到放样表的O7至P7区域中。
打印放样工作表,设置打印份数为1份,按内容排序,不忽略打印区域。
打印监抽工作表,设置打印份数为1份,启用逐份打印功能,并遵循工作表的打印区域设置。
Next
打印完成后弹出提示框,显示打印完毕。
End Sub