VFP 愛用者社區

[lsn216]

REPORT FORM XXXX RANGE 2,5 TO PRINTER 　&&從第2起打至第5頁止
上述程式碼是從第二頁印到第五頁結束,但假設我的range不確定,那程式應該怎麼該怎麼寫呀?謝謝!

[Ruey]

這問題給使用者去設定吧!!

要不然你就
利用搜尋-->"報表",可先找到資料參考

[Ruey]

給你個例子

來源:桃源 鳳實
如何設置打印報表的頁面範圍
這也是我處理報表頁面的方法，很好的！大家看看！

Visual FoxPro 6.0提供了方便的報表預覽和打印功能。在一般軟件中都是默認從報表第一頁打到最後一頁。有時候當報表頁數較多，而中間某頁打壞了，需要重新打印時，必須從第一頁開始打印，很不方便。如何實現用戶自己設置要打印的頁面範圍呢？下面具體實現。
一、原理：
首先獲得總的頁面數，然後利用Report命令的Range選項設置打印範圍。
二、設計界面以及源程序：

[upload=jpg]uploadImages/200210249215247273.jpg[/upload]

1、Form1的Load事件中的代碼：
public totalpage
set talk off
set console off
set safety off

2、Form1的Activate事件中的代碼：
*獲得頁面總數totalpage
*dayallmx.frx是報表文件，在子目錄report下.
repo form report\dayallmx noconsole
totalpage=_pageno
*設置微調按鈕的最大、最小值和默認值
with thisform.spinner1
.value=1
.keyboardlowvalue=1
.spinnerlowvalue=1
.keyboardhighvalue=totalpage
.spinnerhighvalue=totalpage
endwith
with thisform.spinner2
.value=totalpage
.keyboardlowvalue=1
.spinnerlowvalue=1
.keyboardhighvalue=totalpage
.spinnerhighvalue=totalpage
endwith

3、在Command1的Click事件中的代碼：
*打印預覽。
repo form report\dayallmx preview
use
4、Command2的Click事件中的代碼：
*起始頁碼thisform.spinner1.value
*結束頁碼thisform.spinner2.value
if thisform.spinner1.value<=thisform.spinner2.value
repo form report\dayallmx range thisform.spinner1.value,;
thisform.spinner2.value to printer noconsole
else
messagebox("打印範圍設置錯誤，請重新設置",64,"提示")
endif
use

5、在Command3的Click事件：
thisform.release

三、本程序實現了打印頁碼範圍的動態設置，默認是從第一頁打印到最後一頁，用戶可自己設定範圍。程序在Windows98,VFP6.0下運行通過。