excel - Excel VBA - Sheets.Printout 我不知道它为什么有效但仍然抛出错误？

Question

我有以下有效的代码，但会抛出一个

"Run-time '1004' Unable to set the Printout property of the worksheet class"

这是代码：

Sub PrintOutv1()

'PrintOutv1 Macro
Dim Val As Double
Val = ActiveWorkbook.Sheets("WU").Range("E1").Value
ActiveWorkbook.Sheets("WU").PrintOut(1, Val, 1, True) = True

标签： excelvba

Answer 1

括号又咬人了！去掉参数周围的括号，不要尝试赋值：

Dim myVal As Double '<~ avoid confusion with the Val function
myVal = ActiveWorkbook.Sheets("WU").Range("E1").Value

ActiveWorkbook.Sheets("WU").PrintOut 1, myVal, 1, True