bende becerebildiğim kadar ile formda yapayım dedin. Formu dediğiniz gibi 1 sayfaya sıkıştırmayı başardım.
Lakin dediğim gibi bu sefer her üyeye birer Sözleşme çıkarıyor.
Yani ben yeni üye kayıdı yapınca üyenin bilgilerini otomatik sözleşmeye yerleştirip çıktısını almak istiyorum fakat 400 tane üyenin sözleşmesi çıkıyor.
benim buton da kod
-----------------------------------------------------------
Private Sub Komut624_Click()
On Error GoTo Err_Komut624_Click
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
Exit_Komut624_Click:
Exit Sub
Err_Komut624_Click:
MsgBox Err.Description
Resume Exit_Komut624_Click
End Sub