I'm having problems printing on open.

C

Callan

Please help!

I'm using that following "very simple" code

Private_Sub Workbook_Open()
ActiveSheet.PrintOut
End Sub

Yet, Excel does not run ANY code that I put in this function, why?
I even put in a simple [MsgBox "hello", vbokonly] line just to check. But
still nothing.
Will appreciate the help.
Kind Regards,
Cal
 
D

Dave Peterson

Maybe it's that misplaced underscore:

Private Sub Workbook_Open()

Or maybe you have the workbook_open code in the wrong module--it belongs under
the ThisWorkbook module.

Maybe you have security set to high?--change it to medium and answer yes to the
allow macros prompt.

Maybe you held down the shift key when you opened the workbook--stopping the
auto_open and workbook_open code from running.


Please help!

I'm using that following "very simple" code

Private_Sub Workbook_Open()
ActiveSheet.PrintOut
End Sub

Yet, Excel does not run ANY code that I put in this function, why?
I even put in a simple [MsgBox "hello", vbokonly] line just to check. But
still nothing.
Will appreciate the help.
Kind Regards,
Cal
Click to expand...
 
C

Callan

Sorry about the underscore...that's not in the code :)
But now here's where I sound like a layman. But "ThisWorkBook" Module?
I only have 1 window in VB and it only has "General" and then the rest of
the other function headings.....

Security settings are on low and I didn't hold down the shift key as I would
in Access. Please help.
Kind Regards
Cal


Dave Peterson said:
Maybe it's that misplaced underscore:

Private Sub Workbook_Open()

Or maybe you have the workbook_open code in the wrong module--it belongs under
the ThisWorkbook module.

Maybe you have security set to high?--change it to medium and answer yes to the
allow macros prompt.

Maybe you held down the shift key when you opened the workbook--stopping the
auto_open and workbook_open code from running.


Please help!

I'm using that following "very simple" code

Private_Sub Workbook_Open()
ActiveSheet.PrintOut
End Sub

Yet, Excel does not run ANY code that I put in this function, why?
I even put in a simple [MsgBox "hello", vbokonly] line just to check. But
still nothing.
Will appreciate the help.
Kind Regards,
Cal
Click to expand...
Click to expand...
 
D

Dave Peterson

Back to the VBE.
Hit ctrl-r to see the project explorer
Find your project and select it.
hit the asterisk on the numeric keypad to expand all the levels.

Under "Microsoft Excel Objects", you'll see "sheet1(sheet1)",..., ThisWorkbook

Doubleclick on ThisWorkbook and you'll see the code window.

An alternative, if you want to keep the code in that General module:

Name it Auto_open()

Sub Auto_Open()
ActiveSheet.PrintOut
End Sub
Sorry about the underscore...that's not in the code :)
But now here's where I sound like a layman. But "ThisWorkBook" Module?
I only have 1 window in VB and it only has "General" and then the rest of
the other function headings.....

Security settings are on low and I didn't hold down the shift key as I would
in Access. Please help.
Kind Regards
Cal

Dave Peterson said:
Maybe it's that misplaced underscore:

Private Sub Workbook_Open()

Or maybe you have the workbook_open code in the wrong module--it belongs under
the ThisWorkbook module.

Maybe you have security set to high?--change it to medium and answer yes to the
allow macros prompt.

Maybe you held down the shift key when you opened the workbook--stopping the
auto_open and workbook_open code from running.


Please help!

I'm using that following "very simple" code

Private_Sub Workbook_Open()
ActiveSheet.PrintOut
End Sub

Yet, Excel does not run ANY code that I put in this function, why?
I even put in a simple [MsgBox "hello", vbokonly] line just to check. But
still nothing.
Will appreciate the help.
Kind Regards,
Cal
Click to expand...
Click to expand...
Click to expand...
 
C

Callan

Thank you VERY much for the help.
I was clicking on the code for the sheet instead of right clicking on the
actual workbook and THEN code. As I've said previously......layman. It works
now.
Thanks again
Callan


Dave Peterson said:
Back to the VBE.
Hit ctrl-r to see the project explorer
Find your project and select it.
hit the asterisk on the numeric keypad to expand all the levels.

Under "Microsoft Excel Objects", you'll see "sheet1(sheet1)",..., ThisWorkbook

Doubleclick on ThisWorkbook and you'll see the code window.

An alternative, if you want to keep the code in that General module:

Name it Auto_open()

Sub Auto_Open()
ActiveSheet.PrintOut
End Sub
Sorry about the underscore...that's not in the code :)
But now here's where I sound like a layman. But "ThisWorkBook" Module?
I only have 1 window in VB and it only has "General" and then the rest of
the other function headings.....

Security settings are on low and I didn't hold down the shift key as I would
in Access. Please help.
Kind Regards
Cal

Dave Peterson said:
Maybe it's that misplaced underscore:

Private Sub Workbook_Open()

Or maybe you have the workbook_open code in the wrong module--it belongs under
the ThisWorkbook module.

Maybe you have security set to high?--change it to medium and answer yes to the
allow macros prompt.

Maybe you held down the shift key when you opened the workbook--stopping the
auto_open and workbook_open code from running.



Callan wrote:

Please help!

I'm using that following "very simple" code

Private_Sub Workbook_Open()
ActiveSheet.PrintOut
End Sub

Yet, Excel does not run ANY code that I put in this function, why?
I even put in a simple [MsgBox "hello", vbokonly] line just to check. But
still nothing.
Will appreciate the help.
Kind Regards,
Cal
Click to expand...
Click to expand...
Click to expand...
 
Top