Question

excel 运行时错误 1004 ： 类 Worksheet 的PrintOut 方法无效

我在excel里插入ActiveX 按钮控件后，使用以下宏，实现在sheet1 点击按钮，打印sheet2 ，sheet3 ，当我隐藏sheet2 ，sheet3 ，工作表后就会报1004 以上错误，取消隐藏工作表格，就好了 ，请高手帮忙解决，谢谢，我需要隐藏工作表格后，宏一样可以运行
Sub 打印1() Worksheets("sheet2").PrintOut End Sub
Sub 打印2() Worksheets("sheet3").PrintOut End Sub

Answer 1

Sub 打印1()
application.ScreenUpdating=False
Sheets("Sheet2").Visible = True
Worksheets("sheet2").PrintOut
Sheets("Sheet2").Visible = False
application.ScreenUpdating=true
End Sub

加上屏幕刷新和隐藏以及取消隐藏
点击按钮后，关闭屏幕刷新，同时让工作表显示，打印后，隐藏工作表，再打开屏幕刷新。理论上你在操作时，不应该能看到工作表的隐藏和显示过程，因为关闭了屏幕刷新。
试试看。我没测试，不晓得能否通过。

追问

您好！我是在工程属性里面隐藏工作表的，选择 2-xlSheetVeryHidden

追答

做的深度隐藏啊。
这是做深度隐藏的
Sheet2.Visible = 2
下面是将深度隐藏的取消的
Sheet1.Visible = 1

追问

深度隐藏后就会报1004错误，取消隐藏就没有问题了 ，我想隐藏

追答

我开始的代码就是先取消隐藏，然后打印，再接着隐藏。
因为用了关闭屏幕刷新，理论上你在执行时不会看到显示出来以及又隐藏。
我只是猜，不确定。
你有试一下吗？