(10/10/2019, 15:29)midascicero yazdı: Dim stDocName As String
    Dim MyForm As Form

    stDocName = "sözlesme_1"
    Set MyForm = Screen.ActiveForm
    DoCmd.SelectObject acForm, stDocName, True
    DoCmd.PrintOut
    DoCmd.SelectObject acForm, MyForm.Name, False

Merhaba, üstteki kod yerine sadece

    DoCmd.RunCommand acCmdSelectRecord

    DoCmd.PrintOut acSelection

kodunu dener misiniz?