bir buton ekle ve koduna
Dim stDocName As String
Dim MyForm As Form
stDocName = "Tablo1"
Set MyForm = Screen.ActiveForm
DoCmd.SelectObject acForm, stDocName, True
DoCmd.PrintOut
DoCmd.SelectObject acForm, MyForm.Name, False
ekle
ancak rapor oluşturarak yazman daha güzel olur.
İyiki Varsın Access