two quick and easy questions

[Legacy 15162]

1. I am creating a print control button, what would be the code to tell it to print all worksheets in the same workbook?

2. after running code, what would be the command to have the worksheet set a specific worksheet as active?

 

[Tazguy37]

ActiveWorkbook.PrintOut
and
Worksheets("Sheet1").Activate

Adjust the sheet name to suit. Hope that helps!

 

[Legacy 15162]

how would you select specific sheets to print?

example:

button text says print "Test Area"

I would then want to loop through each worksheet and print only those worksheets where cell C6 matches the text of the command button.

 

[Smitty]

Something like this:

<font face=Tahoma><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> CommandButton1_Click()
    <SPAN style="color:#00007F">Dim</SPAN> ws <SPAN style="color:#00007F">As</SPAN> Worksheet
        <SPAN style="color:#00007F">For</SPAN> <SPAN style="color:#00007F">Each</SPAN> ws <SPAN style="color:#00007F">In</SPAN> ActiveWorkbook.Worksheets
            <SPAN style="color:#00007F">If</SPAN> ws.[C6] = CommandButton1.Caption <SPAN style="color:#00007F">Then</SPAN> ws.PrintOut
        <SPAN style="color:#00007F">Next</SPAN> ws
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

HTH,

Smitty