vba中如何编程打印并保存

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

2、双击“打印保存”按钮——在弹出的代码窗口那里输入如下代码：“ActiveWindow.SelectedSheets.Pri荏鱿胫协ntOut Copies:=1, Collate:=TrueActiveWorkbook.Save ”如下图所示。

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