Run-time error '2489' on print

[Denae]

I have a form that has the following code on the AfterUpdate property, it is printing an ID Label for the record that has just been added. The label prints but then Access gives me the Run-time error. Any help would be greatly appreciated.

Private Sub Form_AfterUpdate()

DoCmd.OpenReport "rptPrint_ClaimTag_Item", acViewNormal
DoCmd.SelectObject acReport, "rptPrint_ClaimTag_Item"
DoCmd.PrintOut acPrintAll
DoCmd.Close acReport, "rptPrint_ClaimTag_Item"

End Sub

I tried turning off Echo and Warnings but I still received the error.

Private Sub Form_AfterUpdate()

Application.Echo False
DoCmd.SetWarnings False
DoCmd.Hourglass True

DoCmd.OpenReport "rptPrint_ClaimTag_Item", acViewNormal
DoCmd.SelectObject acReport, "rptPrint_ClaimTag_Item"
DoCmd.PrintOut acPrintAll
DoCmd.Close acReport, "rptPrint_ClaimTag_Item"

DoCmd.Hourglass False
DoCmd.SetWarnings False
Application.Echo True


End Sub

 

[LaurieHamlin]

Try stepping through the code to see which line causes the error.

 

[Denae]

It is not letting me step through, it does nothing when I select this option. When I click Debug it highlights the line:
DoCmd.SelectObject acReport, "rptPrint_ClaimTag_Item"

 

[Denae]

The full error I am getting is:

Run-time error '2489': The object 'rptPrint_ClaimTag_item' isn't open.

 

[Denae]

I got it to work by simplifying, it is always the little things that get me:

Private Sub Form_AfterUpdate()

DoCmd.OpenReport "rptPrint_ClaimTag_Item", acViewNormal
DoCmd.Close acReport, "rptPrint_ClaimTag_Item"

End Sub