Print
 

I have a workbook with 3 sheets.
how can i add a command button to sheet one to print all
three sheets

thanks

Hi,
1. Right click the toolbar area in Excel.
2. Select Forms Toolbar.
3. Select Command Button on the toolbar
4. Draw the button on the worksheet by holding down the left mouse
button and dragging.
5. Click Edit in the Dialogue Button
6. Enter the following code

Sub Button1_Click()
Dim intInc As Integer

With ThisWorkbook
For intInc = 1 To .Sheets.Count
.Sheets(intInc).PrintOut Copies:=1, Collate:=True
Next intInc
End With
End Sub



Hth,
Oli

Thanks for this it worked a treat
-----Original Message-----
Hi,
1. Right click the toolbar area in Excel.
2. Select Forms Toolbar.
3. Select Command Button on the toolbar
4. Draw the button on the worksheet by holding down the
left mouse
button and dragging.
5. Click Edit in the Dialogue Button
6. Enter the following code

Sub Button1_Click()
Dim intInc As Integer

With ThisWorkbook
For intInc = 1 To .Sheets.Count
.Sheets(intInc).PrintOut Copies:=1, Collate:=True
Next intInc
End With
End Sub



Hth,
Oli

.