مشکل در ساخت گزارش

[sadeghpa80]

سلام
در نمونه زیر وقتی فرم MainFrm رو باز می کنیم و فیلد های اون رو پر میکنیم می خوام کاری کنم که با زدن دکمه Report Preview فقط ریپورت همین صفحه مشخص بشه و پرینت گرفته بشه .
یا اصلا نمایش داده نشه فقط همین اطلاعات جاری پرینت گرفته بشه اما الان با این شرایطی که من طراحی کردم همه رکورد ها پرینت گرفته میشه .
ممنون میشم راهنماییم کنید

[Abbas Amiri]

کد زیر را جایگزین کنید:


Private Sub Command30_Click()
On Error GoTo Err_Command30_Click
Dim strFilter As String
Dim stDocName As String
strFilter = "ID=" & id
stDocName = "Report1"
DoCmd.OpenReport stDocName, acPreview, , strFilter

Exit_Command30_Click:
Exit Sub

Err_Command30_Click:
MsgBox err.Description
Resume Exit_Command30_Click

End Sub