Excel VBA - Sheets.Printout I dont know why it works but still throws an error?

Question

I have the following code which works, but throws a

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

Here's the code:

Sub PrintOutv1()

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

Side note, don't use `Val` as a variable name, because of the [`Val`](https://learn.microsoft.com/en-us/office/vba/language/reference/user-interface-help/val-function) function. — BigBen, Aug 19 '20 at 19:00
[Is it](https://learn.microsoft.com/en-us/office/vba/api/excel.worksheet.printout)? Drop the parentheses too. — BigBen, Aug 19 '20 at 19:02
I think it has to do with passing 'val' into the parentheses after Printout() — AJ Bomber, Aug 19 '20 at 19:02
Update: Neither changing the variable name, as well as dropping the =True, work — AJ Bomber, Aug 19 '20 at 19:04

BigBen · Accepted Answer · 2020-08-19T19:08:56.213

0

Parentheses bite again! Drop the parentheses around the arguments and don't attempt to assign a value:

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

edited Aug 19 '20 at 19:08

answered Aug 19 '20 at 19:04

BigBen

46,229
7
24
40

https://stackoverflow.com/questions/5413765/what-are-the-rules-governing-usage-of-brackets-in-vba-function-calls – BigBen Aug 19 '20 at 19:06

Excel VBA - Sheets.Printout I dont know why it works but still throws an error?

1 Answers1