[alex]

Σταύρο!!!!
Μερικές φορές κολάμε απο τις πολλές ώρες στο PC
Tο πρόβλημα λύθηκε
Ο κώδικας

Private Sub CmdPrintRPT_Click()
Dim strDocName As String, strCriteria As String, Ac_Wiew$
   
    If Not Me.NewRecord Then
        If Nz(Me.PrintDirectly, False) Then Ac_Wiew = acViewNormal Else Ac_Wiew = acViewPreview
        strCriteria = "ID = " & Me.ID = Fname
        strDocName = Fname
        DoCmd.OpenReport strDocName, Ac_Wiew, , strCriteria
Exit_CmdPrintRPT_Click:
        Exit Sub
Err_CmdPrintRPT_Click:
        MsgBox Err.Description
        Resume Exit_CmdPrintRPT_Click
    End If

End Sub

Δοκίμασε γιατί δεν το δοκίμασα και καλά

Φιλικά/Αλέξανδρος