[求助]急��！關(guān)于報(bào)表中按固定記錄數(shù)分頁(yè)及不足行數(shù)用空行補(bǔ)足的問(wèn)題

紅塵如煙

需要的報(bào)表效果如下圖所示：



需要達(dá)到的要求：

    1  紙張大小為21X14CM

    2  每頁(yè)顯示記錄數(shù)為9條

    3  若不足9條記錄則用空行補(bǔ)足

    主要的麻煩在于其中有個(gè)總計(jì)和備注欄，要求每頁(yè)都需要顯示，但只在最后一頁(yè)中顯示數(shù)據(jù)

    大概意思相當(dāng)于在一張固定報(bào)表中填入數(shù)據(jù)

    我對(duì)報(bào)表沒啥研究，實(shí)在搞不定，請(qǐng)各位大蝦幫幫忙，感謝！��！

[em02][em02][em02][em02]

[此貼子已經(jīng)被作者于2007-6-17 17:52:15編輯過(guò)]

tz-chf

自定義一種紙張，用line劃線，調(diào)整頁(yè)邊距和頁(yè)面頁(yè)眉、頁(yè)面頁(yè)腳等使主體能顯示9條記錄。

在報(bào)表頁(yè)眉設(shè)一個(gè)不可見的文本框得到總計(jì)，在頁(yè)面頁(yè)腳引用這個(gè)文本框。大寫的函數(shù)論壇上有。

private sub report_page()
report.scalemode=7  '厘米，容易計(jì)算

'最好用變量，方便調(diào)整

'豎線
line (2,3)-(2,5)
line ....

’橫線可用for循環(huán)

for....

line...

next
end sub

套打的話多調(diào)整幾次。

[此貼子已經(jīng)被作者于2007-6-17 22:30:40編輯過(guò)]

sgrshh29

以下是引用紅塵如煙在2007-6-17 17:38:00的發(fā)言：


    2  每頁(yè)顯示記錄數(shù)為9條

    3  若不足9條記錄則用空行補(bǔ)足

    主要的麻煩在于其中有個(gè)總計(jì)和備注欄，要求每頁(yè)都需要顯示

問(wèn)題就難在“主要的麻煩在于其中有個(gè)總計(jì)和備注欄，要求每頁(yè)都需要顯示”，通常頁(yè)眉可以重復(fù)，而頁(yè)腳不能重復(fù)�？梢栽陧�(yè)面頁(yè)眉用線條控件畫出需要的格子。將記錄的標(biāo)簽放在自定義的分組頁(yè)面，記錄放在主體。用分頁(yè)符來(lái)決定行數(shù)。用頁(yè)面頁(yè)眉的movelayout來(lái)移動(dòng)自定義分組，達(dá)到這個(gè)目的。代碼雖然簡(jiǎn)單，但是做起來(lái)比較煩。

紅塵如煙

我暈死，只想著怎么才能用代碼去實(shí)現(xiàn)，卻忘記了通過(guò)調(diào)整控件大小來(lái)達(dá)到限制其顯示記錄數(shù)這種最簡(jiǎn)單的辦法！已經(jīng)搞定，在此多謝樓上的兩位兄弟的提示！[em07][em07][em07]

把文件發(fā)上來(lái)，有用得著的做個(gè)參考，大家不要再犯我這種低級(jí)錯(cuò)誤了，暈菜，真是丟臉啊[em06][em06][em06]

注：這個(gè)需要先自定義一個(gè)寬21CMX高14CM的紙張大小，否則會(huì)有問(wèn)題

[此貼子已經(jīng)被作者于2007-6-24 20:18:31編輯過(guò)]

sgrshh29

你這個(gè)例子好像與你樓頂?shù)囊�求不符，下面�?yè)腳的內(nèi)容沒有緊跟上面主體，中間空開一大截，還是A4的頁(yè)面。按樓頂?shù)囊馑紤?yīng)該是所有的內(nèi)容都是緊挨著的。好像應(yīng)該是這樣的效果.

[此貼子已經(jīng)被作者于2007-6-19 7:06:44編輯過(guò)]

紅塵如煙

樓上的兄弟說(shuō)的是個(gè)問(wèn)題，我是在報(bào)表的“頁(yè)面設(shè)置”里直接設(shè)置的，但換臺(tái)電腦設(shè)置就變了，我這里用的是自定義紙張，到你那里就成了A4紙了，我把4樓的mdb文件改了下，但是由于ACCESS2000及之前的版本里好像沒有Printer對(duì)象，也不知道是不是管用

小宜

學(xué)習(xí)學(xué)習(xí)學(xué)習(xí)學(xué)習(xí)學(xué)習(xí)學(xué)習(xí)學(xué)習(xí)學(xué)習(xí)

simq

好好學(xué)習(xí)好好學(xué)習(xí)好好學(xué)習(xí)好好學(xué)習(xí)

earyxu

學(xué)習(xí)學(xué)習(xí)學(xué)習(xí)學(xué)習(xí)學(xué)習(xí)學(xué)習(xí)學(xué)習(xí)學(xué)習(xí)

sznoside

yyyy