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