VFP 愛用者社區

Ruey · Ruey 在星期一九月 01, 2003 7:51 pm 作了第 2 次修改

評語:每頁指定列印時常應用在出貨單/進貨單上或者套表
此問題我也提供一些我在此的應用心得
可以針對紙張大小做公用變數如中一刀設定列印10列,A4列印20
採用方法二修改成通用函數,傳入列印資料表/列印數/是否空白
而TEMP.DBF改成Cursor.

在VFP報表中實現每頁列印指定記錄數
王珂
　　朋友們好！我是《中國電腦教育報》的臥龍傳說，謝謝大家以前對《VIP會客室》的關心和大力支持！近期有許多朋友通過臥龍傳說熱線或電子郵件的方式，向臥龍傳說詢問有關VFP報表處理的問題以及如何實現每頁指定記錄列印的問題。為了讓朋友們的問題得到滿意的答復，在本期的《VIP會客室》中，我們就請來自獵狐者俱樂部的王珂小姐探討“在VFP報表中實現每頁列印指定記錄數”。現在有請王珂小姐，大家歡迎！王小姐請！！（王珂小姐在嘉賓席就坐）。
　　謝謝臥龍傳說！謝謝《中國電腦教育報》的讀者朋友們！（王珂小姐甩了一下她那亮麗的長髮！）
　　VFP在各企事業單位中有著廣泛的應用，我用它開發了本單位使用的元器件檢測資訊管理系統，現在是本單位日常工作中不可缺少的管理工具。開發中自有許多心得，但最想跟大家談的是在報表中實現每頁列印指定記錄數這個問題。

　　方法一
　　在VFP的報表生成器中，編制報表，用調整報表頁頭帶和頁腳帶高度的方法來控制每頁要列印的記錄資料，這是一種比較簡單、容易實現的方法。但是由於不同的電腦中默認的紙張大小不一樣，或者相同的紙型中的頁邊距設置不一樣而使得每頁列印的記錄數發生改變。這對於固定的用戶和固定的印表機、紙張來講，沒有什麼問題，但如果軟體要運行於多台電腦上或推廣到更廣泛的用戶中，就要考慮不同的印表機及紙張的問題了。此時可以用下面介紹的方法二和方法三來實現。

　　另外，有很多用戶要求當表中的記錄數不是整頁數時在最後一頁中以空的表格填滿報表，也只有在下面的兩種方法中才能實現。

　　方法二
　　以下過程中假設報表中使用的表名為 TEMP.DBF
　　在報表設計器中：
　　1、將報表中的列印欄位前面的別名首碼全部刪除。
　　2、將報表資料環境中原來的表從資料環境中移去。
　　3、在報表的資料環境的 Init 中放入以下代碼:
　　*-- DetailNum 是細節帶中要列印的記錄數，可在這裏按需要進入修改
　　local DetailNum
　　DetailNum = 17
　　*-- 以下 SQL語句消除刪除記錄對分組欄位的影響及對資料進行適當的排序
　　SELECT * FROM Temp INTO TABLE TMP1 WHERE NOT DELETED() &&&& order by 排序條件
　　SELECT int((recno()-1)/DetailNum) as GroupCount, * ;
　　 FROM Tmp1 ;
　　 INTO CURSOR Temp2
　　USE IN TMP1
　　*-- 為保持一個乾淨的環境，刪除剛剛建立的臨時過渡表
　　delete file TMP1.dbf
　　if file("TMP1.fpt")
　　 delete file TMP1.fpt
　　endif
　　*-- 注：你可以在上面的代碼中設置 DetailNum 的值為你所希望每頁報表要列印的記錄數。
　　*-- 你也可以在第一句 SQL Select 中按你的需要設置 order by 子句來排序資料。
　　4、在報表中增加一個分組並設置分組運算式為 GroupCount（即上面第二個 SQL Select 語句中的第一個欄位名）, 並選擇每組從新的一頁上開始核取方塊。
　　5、運行你的報表。
　　6、最後要說明的是：在運行報表前應設置正確的路徑以便 VFP 可以找到報表所使用的表。　　

方法三
　　在該方法中，定義了一個總體變數tobePrint，該變數的值就是每頁要列印的記錄數，如果沒有定義該變數，則使用默認的每頁列印 15 條記錄。
　　1、temp.dbf添加到報表資料環境中。
　　2、將temp.dbf的資料環境中的 BufferModeOverride 屬性設置為 5。
　　3、在資料環境屬性Destroy 事件中寫：
　　=tablerevert(.t.)
　　4、在資料環境屬性Init 事件中寫：
　　if vartype(tobePrint) = "U" &&&& 如果總體變數還沒有定義，在這裏定義它的預設值為15
　　Public tobePrint
　　tobePrint = 15
　　endif
　　*-- 以下代碼是為了當要列印的記錄數不滿一頁時，列印空行來填滿整個報表頁
　　do while reccount("temp") % tobePrint <> 0
　　append blank
　　enddo
　　5、在報表中新建兩個報表變數如：nCount、nGroup，變數nCount的計算選項組中選擇計數，在變數 nGroup 的要存儲的值中寫：
　　iif(nCount<>0 and nCount % tobePrint=0,nGroup+1,nGroup)
　　6、在報表中增加一個分組並設置分組運算式為nGroup，並選擇每組從新的一頁上開始核取方塊。
　　7、用以下代碼來運行報表：
　　use temp
　　*-- 為避免重複定義變數錯誤，在定義總體變數前首先釋放它
　　release tobeprint
　　*-- 定義總體變數，該變數中保存了每頁要列印的記錄數
　　public tobeprint
　　*-- 設置每頁列印10條記錄
　　tobeprint = 10
　　*-- 列印我們的報表
　　report form temp preview　　

方法二與方法三的異同
　　二者都是採用了資料分組的方法來實現“每頁列印指定記錄數”，向表中添加空記錄來實現“表中的記錄數不是整頁數時在最後一頁中以空的表格填滿報表”。
　　二者不同之處在於：方法二是利用臨時表來解決問題，資料的分組資訊寫在臨時表中，方法三是利用報表變數來解分組問題，資料分組是用報表變數來實現的。

jasonyummy · 註冊時間: 2004-05-06 文章: 15 第 2 樓

不錯,這方法很好,長久以來我都是事先把要列印的資料整理好後,在丟給report

goto-dream · 註冊時間: 2004-05-11 文章: 909 第 3 樓

這也是VFP的優點之一.別的開發工具還沒那麼好.