تعيين اطلاعات مورد نياز توسط كاربر براي چاپ

[alizadeh.6725]

به نام خدا
سلام

يه جدول دارم داخلش مشخصات پرسنلي افراد نوشته شده .حالا مي خوام گرفتن گزارش كاربر خودش تعيين كنه چي چاپ بشه (يعني قبل از چاپ يه فرم باز بشه مثلاً كاربر بگه فقط اسم و ش ش .كد ملي چاپ)كن:خجالت:

[Abbas Amiri]

در فرم مورد نظر تعدادی چک باکس قرار داده ونام آنها را همان اسامی کنترلهایی که میخواهید در گزارش خصوصیت Visible آنها را تغییر دهید ، تعیین کنید.
در ایونت Report_Open کد زیر را قراردهید. (در اینجا نام فرم Form1 فرض شده است)


Private Sub Report_Open(Cancel As Integer)
Dim ctl As Control
For Each ctl In Forms!Form1.Controls
If ctl.ControlType = acCheckBox Then
Me(ctl.Name).Visible = ctl.Value
End If
Next
End Sub