پرینت چند ریپرت با یک BUTTON

[jack007]

سلام
از دوستان کسی می تونه کدی واسه من بنوسه که بتونم با زدن یک دکمه پرینت ، در یک فرم،
چند ریپرت باهم پرینت بشه.
من یه برنامه دارم که کاربر یکسری اطلاعات را تا موقع پرینت نمی بینه .
یک button print برای فرم1 درست کردم (به اسم ریپرت 1) حالا دستور آنو چطوری تغییر بدم تا بقیه ریپرت ها (2و3و...)هم همزمان با فشردن دکمه پرینت فرم 1 ، پرینت بشن هر کدی می نویسم با STDOCNAME مشکل بهم می زنه.:متفکر::متفکر::متفکر:

[wolfstander]

سلام دوست عزیز
شما میتونی از یه کد مشابه این کدی که برات مینویسم استفاده کنی

Private Sub cmdPrintPersonnel2Reports_Click()
On Error GoTo Err_cmdPrintPersonnel2Reports_Click

Call ModUp
Dim stDocName As String

stDocName = "rptPersonnel"
DoCmd.OpenReport stDocName, acNormal
Dim stDocName2 As String

stDocName2 = "rptPersonnelRoonevesht"
DoCmd.OpenReport stDocName2, acNormal

Exit_cmdPrintPersonnel2Reports_Click:
Exit Sub

Err_cmdPrintPersonnel2Reports_Click:
MsgBox err.Description
Resume Exit_cmdPrintPersonnel2Reports_Click

End Sub

یعنی شما باید به ازای هر کدوم از ریپورت هایی که میخوای پرینت بگیری،ست داک نیم رو عوض کنی
من بعنوان یک مبتدی این کار رو میکنم
برای پرینت هر کدوم از گزارشهام یک دکمه با استفاده از ویزارد خود اکسس میندازم
بعدش میام و کدهاشون رو کپی میکنم
و با اعداد یک و دو و سه و ... اونها رو تغییر نام میدم
همه شون رو پشت سر هم میندازم
و راحت
فکر کنم شما هم اگه این کار رو انجام بدید ، بهتر خواهد بود
:لبخند:
شایدم بهتر نباشه و من اینطوری فکر میکنم. :متفکر: گفتم که ، مبتدیانه

[jack007]

باتشکر از آقای wolf stander و توجهشون

یه روش دیگه هم خودم پیدا کردم گفتم شاید مشکل دوستان دیگه هم حل بشه
کافیه stdocname های متفاوتی زیر هم تعریف کنیم و سپس دستور open report هر کدومو بدیم
قسمتی از کد بدین صورت نوشته میشه و مابقی هم طبق معمول
stDocName1 = "4/5-1"
stDocName2 = "4/5-2"
stDocName3 = "4/5-3"
stLinkCriteria = "[ID1]=" & Me![ID1]
DoCmd.OpenReport stDocName1, acNormal, stLinkCriteria
DoCmd.OpenReport stDocName2, acNormal, stLinkCriteria
DoCmd.OpenReport stDocName3, acNormal, stLinkCriteria