پر کردن ردیف های خالی در گزارش برای اینکه صفحه خالی نمونه

[a.sabaei]

من یه گزارش دارم که فاکتور چاپ می کنه ولی توی صفحه 7 ردیف جا میشه ولی خیلی وقتها ردیف کمتر چطور میشه صفحه رو پر کرد

[mazoolagh]

پرسش گویا نیست،
اسکرین شات بذارین - برای همه حالتها

[mmbguide]

آنطور که متوجه شدم در زمان چاپ فاکتو اگر تعداد ردیف‌ها کامل نباشه (با وجود آنکه 7 ردیف را می‌توان در یک صفحه جا داد) فضای خالی در انتهای صفحه خواهید داشت. پیشنهاد میکنم ابتدا یک محاسبه انجام بدید و در صورت کسر داشتن ردیف، ردیف خالی ایجاد و به داده‌ها اضافه کنید و سپس برای تولید گزارش ارسال کنید.

[eb_1345]

سلام
نمونه ای ساده براتون تهیه کردم
در این نمونه قبل از نمایش گزارش یک فرم اجرا میشود و در این فرم یک تکست باکس وجود دارد که در آن تعداد ردیف های فاکتور وارد میشود.
در این نمونه فرض شده که ردیف های فاکتور شما 10 تا باشد.

کدهای ایجاد ردیف خالی در جدولTemp و اجرای گزارش :


Dim Mod1 As Integer
Dim DCountId1 As Integer
Private Sub Command3_Click()
Mod1 = Txt1 - DCountId1
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM temp;"
DoCmd.RunSQL "INSERT INTO Temp SELECT TMain.*FROM TMain;"
For I = 0 To Mod1 - 1
DoCmd.RunSQL "INSERT INTO temp ( Radif )SELECT 1 ;"
DoCmd.RunSQL "UPDATE temp SET temp.Radif = 1 WHERE (((temp.Radif) Is Null));"
Next
DoCmd.SetWarnings True
DoCmd.Close acReport, "R1"
DoCmd.OpenReport "R1", acViewPreview, "", "", acNormal
End Sub