VB script to notify/popup

Hi Sammysen,

A sheet is the same as a worksheet.
An Excel file / Workbook contains 1 or more sheets / worksheets.

If you want to print multiple workbook; try selecting the ones you want to print > right-click > select print.

Is that what you wanted to do?

Best regards,
Trowa

Hi Sammysen,

That is a some strange limitation you have there.

See if this code works for you. It will loop through all the sheets in the workbook you run the code from.

In case you don't know how to implement the code / run the code:
- Hit Alt+F11 to open Microsoft Visual Basic window.
- Top menu > Insert > Module
- Paste the code in the big white field
- Close Microsoft Visual Basic window.
- Back to Excel hit Alt+F8 to display all macro's
- Double click RunMe to run the code and print all sheets.


And here is the code:

Sub RunMe()
Dim ws As Worksheet

For Each ws In Worksheets
    ws.PrintOut
Next ws

End Sub

Best regards,
Trowa

Trowa,

The script works fine.

By the way, is it possible to add a pop up message noting to check print status of other worksheet?

It will be a great help if such message will appear.

Thank you so much for your assistance.

Sammysen

Hi Sammysen,

What do you mean by "check print status"?

Do you want a message notifying you which sheet is being printed like:
"Hit OK to print Sheet1"
You hit OK, Sheet1 will be printed and then the next message appears:
"Hit OK to print Sheet2"
etc.

Best regards,
Trowa

Trowa,

Yes that is likely what I need. But a little modification on the message instead of "Hit OK to print Sheet1", can we make it "Kindly Print Sheet 2" instead after Sheet 1 is printed?

Thank you so much for your assistance.


Sammysen

Sure thing Sammysen.

You can alter the text into anything you want, but here is the code with the requested text:

Sub RunMe()
Dim ws As Worksheet

For Each ws In Worksheets
    MsgBox "Kindly Print " & ws.Name
    ws.PrintOut
Next ws

End Sub

Best regards,
Trowa