Docmd.outputto işlecine kriter ekleyemezsiniz.

Önce raporu açtırmanız daha sonra dışa aktarmanız gerekli.

    Dim GRaporAdi As String

    Dim GPdfDosya As String

    Dim GKriter As String

    

    GRaporAdi = "Tablo1"

    GPdfDosya = CurrentProject.Path & "\Tablo1.pdf"

    GKriter = "Kimlik = " & Me.Kimlik

    

    DoCmd.OpenReport GRaporAdi, acViewPreview, , GKriter, acHidden

    DoCmd.OutputTo acOutputReport, GRaporAdi, acFormatPDF, GPdfDosya

    DoCmd.Close acReport, GRaporAdi, acSaveNo