try this:

Private Sub PrintInboundAbbamonte_Click()
On Error GoTo Err_PrintInboundAbbamonte_Click

Dim App As Object

Set App = CreateObject("Excel.Application")
App.Workbooks.Open ("C:\Documents and
Settings\RPhelps.NGC\Desktop\Inbound1.xls")
App.Sheets("Steve Abbamonte").ChartObjects("Chart 6").Chart.PrintOut
Copies:=1, Collate:=True

App.Quit
Set App = Nothing 'this releases resources and maybe why yours needs
resetting?
Exit_PrintInboundAbbamonte_Click:

Exit Sub

Err_PrintInboundAbbamonte_Click:
MsgBox Err.Description
Resume Exit_PrintInboundAbbamonte_Click

End Sub