EXCEL表格打开后自动打印是怎么回事？

1、首先打开任一文件夹，然后单击该窗口的“工具”菜单项，从d出的下档世拉菜单中选择“文件夹选项”命令，在其后出现的选项设置对话框中，单击“文件类型”标签，进入到标签页面。

2、在该标签页面的“行谈肢已注册的文件类型”列表框中，选中先前会自动打印的目标文档类型，例如要是先前打开excel之类的文档，打印机就能自动进行打印 *** 作的话，那我们就应该在这里选中“XLB Microsoft Excel工作表”选项。

3、接着单击标签页面中的“高级”按钮，打开高级设置界面；在该界面的“ *** 作”列表框中，选中“打印”选项，然后再看看该选项右侧的“设为默认值”按钮是否处于灰色不可单击状态，如果确认该按钮处于灰色不可单击状态时，那就表明Excel类型的文档在默认状态下首先进行的动作就是打印 *** 作，这也正是侍余我们为什么用鼠标双击某个Excel文档时，打印机就能立刻进行自动打印 *** 作的原因了。

创建一个新的空白文档工具 - 宏 - 宏安全性 - 选择“

ALT + F11打开VB编辑器来插入一个新的模块后，将以下代码粘贴到保存退出

打开你刚才保存的文件，在d出的安全提示，选择“启用宏”

清除所有启动代码会自动运行

-------------------------------开始复制----------------- ---------------

Auto_Open（）

？？昏暗的FS作为对象

？？昏暗的BK为工作簿

？？昏暗的SHT作为工作表

？？作为布尔点心ifExist

？？在错误恢复下一步

？？'判断是否有启动“，ifExist标记

？？ifExist = FALSE

如果DIR（Application.StartupPath＆“\”＆“StartUp.xls”）<>“”，然后ifExist =？？

如果ifExist = FALSE，则？？

？？？？对于每个工作簿中的BK

如果ifExist，然后退出？？？？？？

？？前穗？？？？每个在誉悔盯BK.Sheets SHT对于

如果ifExist，然后退出？？？？？？？？

？？？？？？？？BK.Sheets（“启动”）。 <>“启动”，然后

？？？？？？？？？？ifExist = FALSE

？？？？？？？？其他

？？？？？？？？？？ifExist = TRUE

？？？？？？？？结束如果

？？？？？？？SHT

？？？？接下来BK

？？结束如果

？？'确定是否要清除启动

如果ifExist然后？？

？？？庆和？，如果MSGBOX（见“启动”！“VbCrLf和”启动可能会影响您的Excel清楚了吗？“，VbOKCancel）= vbCancel然后退出小组

？？其他

？？？？MSGBOX“未找到启动”，自动退出

？？？？ThisWorkbook.Close

？？？？退出小组

？？结束如果

？？“关闭StartUp.xls

？？工作簿（“StartUp.xls”）。关闭假

？？“删除文件

？？设置FS = CREATEOBJECT（“Scripting.FileSystemObject的”）

？？FS.DeleteFile Application.StartupPath＆“\”＆“StartUp.xls”

？？删除宏模块启动

？？Application.DisplayAlerts = FALSE

？？工作簿中的每个BK

？？？？BK.Sheets（“启动”）。删除

？？下一步BK

？？Application.DisplayAlerts = TRUE

？？'恢复变量

？？Application.OnSheetActivate =“”

？？Application.OnKey“％{F11}”

？？Application.OnKey“％{F8}”

？？MSGBOX“清除启动完成后自动退出！”

？？ThisWorkbook.Close

END SUB

-----------------------------------------------复制结束 - -------------------------------------

---