چاپ گزارش از روی فرم بتعداد دلخواه

[Masoudb2004]

چگونه میتوانم تعداد معینی چاپ از گزارشی مشخص از روی فرم با فشردن دکمه Command داشته باشم ، تعداد چاپ برایم مسئله شده است

[مهدی قربانی]

سلام
دوست عزيز شما ميتونيد از يك حلقه براي اين منظور استفاده كنيد حالا ميشه تعداد اين حلقه ثابت در نظر گرفت و يا با يك متغير تعداد دلخواه رو تعيين كرد
يك كامند باتون روي فرم بذاريد و ماشبه روش زير عمل كنيد


Dim I As Integer
Dim Count

'مي تونيد از InputBox استفاده كنيد .....
('Count = InputBox("تعداد دفعات چاپ را تعيين نمائيد", "تعداد چاپ"

' يا از مقدارورودي يك تكست باكس موجود روي فرم استفاده كنيد .
Count = Me.Text1

If IsNull(Count) Then
MsgBox "تعداد دفعات چاپ تعيين نگرديده است", vbMsgBoxRight + vbExclamation, "خطا"

Else

For I = 1 To Count
DoCmd.OpenReport "table1"
Next I

End If

[amirzazadeh]

چگونه میتوانم تعداد معینی چاپ از گزارشی مشخص از روی فرم با فشردن دکمه Command داشته باشم ، تعداد چاپ برایم مسئله شده است
با تشكر از دوست عزيزم جناب قرباني شما ميتونيد از متد print out هم استفاده كنيد.فرم كلي اين دستور به اين شكله

expression.PrintOut(PrintRange, PageFrom, PageTo, PrintQuality, Copies, CollateCopies)
كه به عنوان مثال براي پرينت 5تايي به اين شكل ميشه ازش استفاده كرد

DoCmd.PrintOut , , , , 5
.........................
موفق باشيد