هل من طريقة لطباعة اكثر من تقرير بأمر واحد

الاخ عبد الله

 
On Error GoTo Err_ÃãÑ19_Click

	Dim stDocName As String

	stDocName = "a"
	DoCmd.OpenReport stDocName, acNormal


 Dim stDocName2 As String

	stDocName = "b"
	DoCmd.OpenReport stDocName2, acNormal

 Dim stDocName3 As String

	stDocName3 = "b"
	DoCmd.OpenReport stDocName3, acNormal

 Dim stDocName4 As String

	stDocName4 = "c"
	DoCmd.OpenReport stDocName4, acNormal

Dim stDocName5 As String

	stDocName5 = "c"
	DoCmd.OpenReport stDocName5, acNormal

Dim stDocName6 As String

	stDocName6 = "c"
	DoCmd.OpenReport stDocName6, acNormal
Exit_ÃãÑ19_Click:
	Exit Sub

Err_ÃãÑ19_Click:
	MsgBox Err.Description
	Resume Exit_ÃãÑ19_Click

End Sub

طبعا مكان a b c انت تضع اسماء التقارير خاصتك

ارجو ان تكتب لي النتيجة النجاح ان شاء الله او غيره لكي نتابع

بعض الاحرف باللغة العربية ظهرت بشكل غريب ارجو ان تعرف بالضبط ما تريده واذا كان صعب عليك غدا ان شاء الله اعمله كله انكليزي كن حذر من الاشياء المبهمة

اخوك ماجد شاور

قلقيلية

فلسطين

السلام عليكــم ورحمـة الله وبركاتــة

اخي شاور

جزاك الله خيراً على هذا الجهد ولكني استخدم طريقة اخرى

باستخدام حلقات "Do while" كالتالي

Private Sub print_click()
 Dim stDocName As String
	stDocName = "a"
   Call reprent(stDocName, 1)
	stDocName = "b"
   Call reprent(stDocName, 2)
	stDocName = "b"
   Call reprent(stDocName, 3)


End Sub

Private Sub reprent(rprt As String, nocpys As Integer)

	Dim i As Integer
	i = 1
	Do While i <= nocpys
		DoCmd.OpenReport rprt, acNormal
		i = i + 1
	Loop

End Sub

ولكن بصراحة انا غير مقتنع بهذه الطريقة الا يوجد وسيلة ابسط للتحكم بعدد النسخ؟؟

ربما نجد الاجابة لدى المشرفين

اخوك ناصر المصاروة

الاخ ناصر

طريقتك مقنعة اكثر من طريقتي ما العيب فيها ؟؟

اراها مناسبة لكني لم اجربها

وفقكم الله لكل خير

Dim intHowMany As Integer

Dim intX As Integer

intHowMany = InputBox("How many copies?", , 1)

If intHowMany > 0 Then

For intX = 1 To intHowMany

DoCmd.OpenReport "rep1", acNormal, , StrCriterion

Next intX

End If