(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?