Try something like this in your OnClick event of your button:
CODE
Private Sub cmdPrintExcel_Click()
Dim objXL As Object
Set objXL = CreateObject("Excel.Application")
With objXL.Application
.Workbooks.Open ("D:\My Documents\DocName.xls")
.ActiveSheet.PrintOut
.Quit
End With
Set objXL = Nothing
End Sub
where ("D:\My Documents\DocName.xls") is the exact path to your document. Good luck!