Hvorfor printer den ikke

Hvrofro printer den ikke rapporten:

Private Sub PrintRecord_Click()
On Error GoTo Err_PrintRecord_Click
   
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.PrintOut acSelection
    DoCmd.OpenReport "Mark", acNormal, , "TestID LIKE '" & ID & "*'"
   
Exit_PrintRecord_Click:
    Exit Sub

Err_PrintRecord_Click:
    MsgBox Err.Description
    Resume Exit_PrintRecord_Click
   
End Sub

jeg har en knap nedenunder som virker:

Private Sub Kommandoknap959_Click()
On Error GoTo Err_Kommandoknap959_Click

    Dim stDocName As String

    stDocName = "TestRapport"
    DoCmd.OpenReport stDocName, acPreview, , "TestID LIKE '" & ID & "*'", , ID

Exit_Kommandoknap959_Click:
    Exit Sub

Err_Kommandoknap959_Click:
    MsgBox Err.Description
    Resume Exit_Kommandoknap959_Click
   
End Sub