搞个自动打印!
你要打印的数据如何来我不管,而且当前表格打印只一页也就是打印一次(不能一次打印几页,如果是,也只能用一个流水号)。
第一步 在VBE窗口插入模块,粘贴如下代码:
Sub 打印()
Application.ScreenUpdating = False '关闭屏幕刷新
Range("B3:F14").PrintOut Copies:=1 '打印表中B3:F14区域打印1份
[D3] = [D3] + 1 '流水号累加1
Application.ScreenUpdating = False '关闭屏幕刷新
End Sub
第二步 “编辑/工具栏/窗体”,单击“按钮”后在当前工作表中合适地方画一个矩形按钮,在自动打开的“指定宏”列表中选择“打印”,再把按钮输入名称“打印”。
第三步 操作打印。单击按钮“打印”,则打印选定的表格,在D3单元格中的流水号自动累加1
注意:打印区域修改成自己实际的打印区域哦!
不妨试试,无非就是多浪费几张纸而已呵呵。
追问第一步,VBE窗口怎么插入,可不可以帮我做,我对VBA一点都不懂,谢谢!