vba中如何编程打印并保存

vba中如何编程打印并保存

今天和大家说说EXCEL中VBA如何编程打印并保存。

打开excel——点击开发工具——插入——Active控件——命令按钮 ，然后右击——属性——caption值改为打印保存。

双击“打印保存”按钮——在弹出的代码窗口那里输入如下代码：

“ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

ActiveWorkbook.Save ”如下图所示。

保存退出——再次打开刚刚的文档——在弹出的安全警告中点击“选项”——选择“启用此内容”——点击确定。这时就可以运行这个命令按钮了。点击它之后就会弹出保存的窗口，保存之后就会打印了。

点击开发工具——录制宏——在弹出的窗口输入宏名“打印保存”——选择保存在“当前工作薄”点击确定就开始录制。

接着你就按照保存文件（如果你已经保存过的话就点击另存为）——再点击打印。这些步骤做完成之后 点击“停步录制宏“，然后点击查看代码——模块，在那里找到代码。再按照输入宏代码的方法设置好命令按钮，不过要做适当修改。

至于用WORD来设计本人还没有这方面的经验，如果要设计代码的话会比EXCEL麻烦一些，希望有高手能指点一二。