[alex]

Καλησπέρα Σταύρο

Νομίζω ότι στο κουμπί εντολής θέλει κάπως έτσι με κώδικα :

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
        strDocName = ""
        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

Εδώ κάτι θέλει διόρθωση πιστεύω.

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