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

[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