چاپ فرم

[vafanezhad]

چاپ فرم


سلام دوستان
چطور مي تونم كاري كنم كه وقتي كاربر روي يك كامند كليك كرد همهي اطلاعات فرم به غير از كامند هاي درون فرم به وسيله ي پرينتر چاپ بشه؟
ممنون ميشم اگه كسي جوابمو بده

[محسن واژدی]

سلام

ابتدا همه command-button ها را توسط دستور for-each یافته و مخفی کنید سپس با دستور Me.PrintForm فرم را چاپ کنید

موفق باشید

[vafanezhad]

سلام ميشه بيشتذ توضيح بديد. من در واقع مي خوام وقتي كاربر كامن چاپ رو فشار داد تمام محتويات فرم چاپ بشه البته به غير از كامن ها.شما توضيح داديد ولي اگه ميشه بيشتر توضيح بديد

[محسن واژدی]

سلام
کد زیر ابتدا تمامی command-buttonهای موجود را مخفی و پس از چاپ مجددا همه command-buttonهایی که قبل از چاپ ظاهر بوده اند را مجددا نمایش میدهد:
Private Sub Command1_Click()
Dim cur_cmd As CommandButton
For Each cur_cmd In Me.Controls
If TypeOf cur_cmd Is CommandButton Then
cur_cmd.Tag = cur_cmd.Visible
cur_cmd.Visible = False
End If
Next 'cur_cmd


Me.PrintForm


For Each cur_cmd In Me.Controls
If TypeOf cur_cmd Is CommandButton Then
cur_cmd.Visible = cur_cmd.Tag
End If
Next 'cur_cmd


End Sub

موفق باشید