VFP 愛用者社區

Ruey · 註冊時間: 2003-03-12 文章: 1698 來自: tunglo 第 1 樓

http://www.ithome-cn.net/technology/fox/fox91.htm
王守銀　丁祿河

　　在使用VFP設計應用系統的過程中，應用系統的表格輸出部分一般都是在報表設計器下設計完成的，設計出來的表格，格式固定，位置固定。但在實踐中我們發現：在一種印表機下調試設計出來的表格，換到另一種印表機時，表格的位置發生了變化，常常要靠移動紙張來解決。筆者經過多次測試後，利用編程解決了這個問題。

　　筆者通過對VFP的報表檔進行分析，發現報表檔其實同資料表的結構是相同的。其中尾碼為.frx的檔存放報表控制項一些主要資訊，而尾碼為.frt的檔存放的是備註部份內容。這些檔都可以使用資料表的操作命令，可以使用VFP的命令和函數來改變報表控制項中一些值的大小，如在VFP命令視窗中對一個盤中已存在的名為“幹部登記表"的報表檔進行操作：

　　USE 幹部登記表.frx

　　BROW

　　這時我們看到的是一個資料表的內容列表方式，表中包含報表的字體、大小、顏色、物件性質等資訊。這裏我們關心的是各物件的位置參數，通過對這個資料表的測試、分析，可以得出objtype關鍵字段的資訊。

　　Objtype代表的是報表中的各控制項的類型，下面列出的是報表設計器中各控制項在資料表檔中的objtype的值：
控制項名 objtype值
標籤 5
域控制項 8
線條 6
矩形 7
圓角矩形 7
圖片/active綁定控制項 17
(其中圓角矩形offset值為16,矩形為0)

　　資料表中的vpos代表控制項距報表左邊的距離，hpos值為距報表最上邊的距離，height值為控制項的高度，width值為控制項的寬度。

　　當objtype為9時，為報表設計器中基本項，它們通過objcode來區分。下面是報表中的基本項的objcode的值：
基本項 objtype值
標題項 0
頁標頭項 1
細節項 4
頁注腳項 7
總結項 8

　　以上這些項的vpos、hpos值都為0，height值為高度（距上一專案的高度），width值一般都為零，實際寬度是由列印設置中的紙張大小決定的。

　　當我們瞭解這些欄位所代表的內容之後，在程式中我們只要增加或減少資料表中所有報表控制項的vpos值，就可以增大或減小列印輸出中的左邊距；增加或減少資料表中所有報表控制項的hpos值，同時增加或減少報表相關基本項的height值，就可以改變列印輸出中的上邊距。下面我們用一個簡單的例子演示程式操作過程。

　　一、利用報表設計器設計如圖1的程式報表，報表命名為“幹部登記表”。

　　圖1 幹部登記表

　　二、新建一個表單命名為“列印測試”，表單設計如圖2。

　　圖2 列印設置表單

　　表單中包括三個Lable控制項，兩個微調按鈕，二個命令組按鈕。

　　在“改變位置”按鈕的Click. Event 事件中加入如下代碼，移動距離分別為上下移動數、左右移動數乘以392.7。

　　SELE 0

　　 USE 幹部登記表.frx

　　 GO 2

　　 REPL HEIGHT WITH HEIGHT＋THISFORM.SXYD.VALUE＊392.7

　　＆＆移動標題項或頁標頭項的位置

　　 REPL VPOS WITH VPOS＋THISFORM.上下移動數.VALUE＊392.7 FOR (OBJTYPE>4 AND OBJTYPE<9) OR OBJTYPE=17

　　＆＆移動報表中各控制項的上下位置，移動數為“上下移動數”微調按鈕中輸入的值，值為正數向下移動，負數向上移動。

　　 REPL HPOS WITH HPOS＋THISFORM.左右移動數.VALUE＊392.7 FOR (OBJTYPE>4 AND OBJTYPE<9) OR OBJTYPE=17

　　 USE

　　＆＆打開報表庫後一定要關閉，不然在運行這個報表時要出錯。

　　 THISFORM.上下移動數.VALUE=0

　　＆＆執行後上下移動數歸零

　　 THISFORM.左右移動數.VALUE=0

　　＆＆執行後左右移動數歸零

　　“列印”命令按鈕的Click Event 事件中加入如下代碼：

　　REPO FORM 幹部登記表 TO PRINT NOCO

　　“預覽”命令按鈕的Click Event 事件中加入如下代碼：

　　REPO FORM 幹部登記表 PREV NOCO

　　“退出”命令按鈕的Click Event 事件中加入如下代碼：

　　THISFORM.RELEASE

　　在運行該程式後，在打印紙放置位置不變的情況下，只需改變上下移動數、左右移動數的值，就可以改變打印紙上輸出內容的位置。

　　通過上面的介紹，我們可以在各類表格設計過程中，利用以上的方法，就可以生成靈活方便實用的各式報表。