Hi Casper,

Try going to design mode in your toolbar and clicking on the command
button icon place it on the sheet desired then right click the button,
click view code and try placing the code below.

I set this up as sheet 2 being the one printed, change as needed. The
same will go for the print range.


Code:
--------------------

Sub CommandButton1_Click()
Application.ScreenUpdating = False
Sheets("sheet2").Visible = True
Sheets("sheet2").Select

ActiveSheet.PageSetup.PrintArea = "$A$1:$I$508"
ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True
Sheets("sheet2").Visible = True
Application.ScreenUpdating = True

End Sub

--------------------


Hope this helps


--
keithl816
------------------------------------------------------------------------
keithl816's Profile: http://www.excelforum.com/member.php...o&userid=21287
View this thread: http://www.excelforum.com/showthread...hreadid=390798