VFP 愛用者社區

garfield · Site Admin 註冊時間: 2003-01-30 文章: 2160 第 1 樓

1 我知道用 REPORT FORM ... PROMPT 命令可以讓用戶?報表選擇一個指定的印表機.但有沒有辦法讓選定的印表機成?當前工作期中的默認印表機?
最簡單的辦法是用以下命令:
SET PRINTER TO NAME GETPRINTER()
以上命令會顯示一個標準印表機對話方塊. 用戶可以選擇一個印表機, 該印表機將成?默認的印表機. 如果用戶沒有選擇印表機而選擇了取消, 原來默認的印表機不會被修改.

2 如果我象上面所述改變以默認印表機, 會不會影響到用戶可能運行的其他 Windows 應用程式?
不會. SET TO PRINTER TO NAME 只影響 Visual FoxPro 的默認印表機, 不會影響 Windows 默認的印表機. 如果想讓 Visual FoxPro 默認印表機與 Windows 默認的印表機一樣, 執行以下命令:
SET PRINTER TO DEFAULT

3 GETPRINTER() 與 SYS(1037) 有什?不同? 因?兩者都顯示一個列印對話方塊.
有相當大的不同. GETPRINTER() 調用一個簡單的印表機對話方塊, 用戶可以選擇一個印表機(也可以不選擇). SYS(1037) 打開完整的頁面設置對話方塊. 在這裏, 用戶可以選擇印表機, 頁大小, 進紙源和列印方向.
另一個重要的區別是, GETPRINTER() 簡單的返回用戶選擇的印表機的名字(如果沒有選擇則是一個空串) - 它並不實際改變選定的印表機. SYS(1037) 不返回任何東西, 但它會執行用戶的選擇. 例如, 如果用戶選擇了一個指定的雷射印表機並設置進紙方式?手動, 那?這些選擇會影響到後面列印的報表(除非在報表設計器中另外指定了不同參數或在 REPORT 命令中使用 PROMPT 子句).

4 在我的一個報表中, 我想讓用戶選擇上紙盒或下紙盒. 但又不想讓用戶改變紙張大小和列印方向. 可能嗎?
沒有VFP 命令或函數可以達到這一目的. 唯一的辦法是在運行時修改報表文件 (FRX 文件). 你可以在在運行時控制報表設置一文中找到相關細節.
好了, 我已讀了那篇文件. 但它沒有回答我的下一個問題. 怎樣在第一頁中選擇上紙盒而其他頁選擇下紙盒?
你只能創建該報表的兩個拷貝. 在報表設計器中用面面設置對話方塊選擇紙源: 第一個拷貝用上紙盒, 另一個拷貝用下紙盒. 然後兩次運行REPORT FORM 命令, 用RANGE 子句來選擇報表頁數:
REPORT FORM MyReport_Ver1 RANGE 1,1 NOCONSOLE
REPORT FORM MyReport_Ver2 RANGE 2 NOCONSOLE
以上命令將用MyReport_Ver1 列印第一頁,用MyReport_Ver2 列印第二頁及以後的頁.

5 我想在預覽視窗中顯示報表, 但又想要用戶單擊報表預鑒工具條上的列印按鈕時,打開列印對話方塊. 可能嗎?
是的. 命令如下:
REPORT FORM MyReport TO PRINTER PROMPT PREVIEW

6 如何以編程方式最大化報表預覽視窗?
象這樣:
KEYBOARD "{ctrl+f10}"
REPORT FORM MyReport PREVIEW

7 我有一個 VFP 主視窗不可見的,作?頂層表單運行的應用程式,不幸的是, 這也意味著報表視窗的不可見. 怎?辦?
在 VFP 5.0 中, 唯一的辦法是在預覽前直接恢復 VFP 窗口,並在預覽後隱藏它. 代碼如下:
_SCREEN.Visible = .T.
REPORT FORM MyReport PREVIEW
_SCREEN.Visible = .F.
在 VFP 6.0 中, 你可以在一個普通表單中預覽報表. 它自己是一個頂層表單, 因此不必顯示 VFP 主視窗. 要達到這一點, 創建一個叫做 frmPreview 的表單. 設置它的 ShowWindow 屬性? 2 (作?頂層表單). 然後?動表單, 例如用 DO FORM 命令. 最後象這樣預覽你的報表:
REPORT FORM MyReport PREVIEW IN WINDOW frmPreview

8 我用帶 FOR 子句的 REPORT FORM 命令來列印一個表中的部分資料. 在很多情況下, 沒有問題. 但當用戶預覽報表並單擊預覽工具條上的列印按鈕時, 整個表中的資料都被列印了.
這是 VFP 5.0 的一個 BUG. 在該情況下, 列印按鈕不理會象下面一樣的命令中的 FOR 子句:
REPORT FORM customers PREVIEW FOR country = "UK"
解決辦法是用篩選代替:
SET FILTER TO country = "UK"
REPORT FORM customers PREVIEW
SET FILTER TO
該 bug 在 VFP 5.0a 中已修正.

9 我想用報表設計器來生成發票. 一些發票會包含多個頁. 怎樣使發票合計每張發票的最後一頁的底部? 如果把它放在概要(summary)帶中, 它只在細節帶的最後一行列印. 如果把它放在頁腳帶中, 它又在每一頁中都列印出來.
將合計放在頁腳帶中其他的欄位和標簽的下面. 在報表運算式對話方塊中, 單擊打印條件按鈕, 然後在滿足以下條件時列印文本框中輸入:
RECNO()=RECCOUNT()
這會使合計只在最後一條記錄時列印. (該情況假設你?每一張發票使用一個單獨的臨時表或游標, 且沒有設置排序.)

10 如果用戶在一個沒有安裝列印驅動程式的電腦上運行我的程式,會發生什?情況?
在執行與列印相關的任務時會?生一個或多個運行時錯誤. 典型的錯誤是 "印表機未準備好", "載入列印驅動程式錯", 兩個. 它們會在應用程式列印報表時出現, 也會在執行 SET PRINTER, GETPRINTER() 和其他相似的命令或函數時發生, 但幸運的是可以預覽報表.
要避免這些運行時錯誤, 在執行與列印相關的任務前,檢查 APRINTERS() 函數的返回值. 如果該值?零, 就意味著未安裝列印驅動程式.

11 能否廢止或移去報表預覽工具條上的列印按鈕?
要移去VFP 內置的工具條上的按鈕, 在開發環境中打開工具條, 按住Alt 鍵, 將按鈕拖離工具條. 該設置保存在資源檔案中 (FOXUSER.DBF 和 FOXUSER.FPT), 因此要使該設置在用戶系統上生效,你必須將這兩文件複製到用戶系統中.

12 我想在報表中包含頁數, 例如, "共 Y 頁第 X 頁", Y 是報表總頁數,X是當前頁號. 可能嗎?
唯一的辦法是運行該報表兩次, 象這樣:
nTotalPages = 0
REPORT FORM MyReport NOCONSOLE
nTotalPages = _pageno
REPORT FROM MyReport TO PRINT NOCONSOLE
第一次不會實際列印任何東西 (因?沒有使用TO PRINT 子句), 但該過程會將報表總頁數放入 VFP 的系統記憶體變數 _pageno 中. 要列印"共 Y 頁第 X 頁", 報表中應包含以下運算式:
"共 "+ ALLTRIM(STR(nTotalPages))+ " 頁第 "+ALLTRIM(STR(_pageno)) +" 頁"

13 我使用 Microsoft Web Browser 控制項來顯示 HTML 頁. 怎樣列印頁呢?
Web Browser 控制項沒有Print 方法. 但是你可以用它的ExecWB 方法來列印當前文檔. 通常, 該方法將執行browser 用戶介面的通常可用的命令.
你的代碼可應該象這樣:
THISFORM.WebBrowser.ExecWB(6,1)
第一個參數, 6, 告訴method 你想進行列印. 第二個參數設置? 1, browser 將顯示一個列印對話方塊(象Internet Explorer 中那個一樣). 若不想顯示該對話方塊, 設置該參數?2

Ruey · 發表於: 星期一六月 23, 2003 1:08 pm 文章主題:

1.在報表預覽視窗中我就是缺少下達
KEYBOARD "{ctrl+f10}"
視窗未見最大化
雖然表單屬性Maximized

2.能否廢止或移去報表預覽工具條上的列印按鈕?
除了此種方式,是否有辦法用程式控制

Ruey · 發表於: 星期三八月 06, 2003 5:50 pm 文章主題:

关于打印机设置的五个对话框的用法

關於印表機設置的五個對話方塊的用法

*-- 將下面內容複製為.PRG檔執行即可

* 1.VFP 的 SYS(1037) 函數

SYS(1037)

* 2.VFP 的 GETPRINTER() 函數

GETPRINTER()

* 3.用API PrinterProperties 函數

*-- 打開印表機 - 返回值:非零表示成功，零表示失敗。會設置GetLastError
DECLARE INTEGER OpenPrinter IN Winspool.drv ;
STRING cPrinterName,; && 印表機或印表伺服器名字。在 Win NT/2000 若取 NULL 值則表示本地印表機/印表伺服器
INTEGER @hPrinter,; && 印表機或印表伺服器控制碼
STRING pDefault && LPPRINTER_DEFAULTS 結構，可為 NULL。
*-- 打開印表機
M.hPrinter = 0
M.pDefault = REPLICATE(CHR(0),4)+; && pDatatype - 印表機使用的默認資料類型的名字指針。可設為 NULL ，表示使用當前的默認配置
REPLICATE(CHR(0),4)+; && pDevMode - 印表機默認配置資訊的一個位址。可設為零，表示使用當前默認設置
DecToAscii(4+8,4) && DesiredAccess - 4-管理或 8-使用，或者是一個常規的安全值（取決於您是需要配置印表機，還是僅僅訪問它）
OpenPrinter('EPSON LQ-1600KIII',@M.hPrinter,M.pDefault)

*-- 印表機屬性對話方塊
DECLARE INTEGER PrinterProperties IN Winspool.drv ;
INTEGER HWnd,; && 對話方塊的父窗口
INTEGER hPrinter && 一個已打開的印表機的控制碼
PrinterProperties(0,M.hPrinter)

* 4.用API DocumentProperties 函數(WIN2000/XP)

*-- 讀取/設置 DEVMODE 結構。返回值負數示失敗。會設置GetLastError
DECLARE INTEGER DocumentProperties IN Winspool.drv ;
INTEGER hWnd,; && 父窗口控制碼
INTEGER hPrinter,; && 已打開的印表機控制碼
STRING pDeviceName,; && 設備名稱
STRING @pDevModeOutput,; && 修正的驅動模式
STRING pDevModeInput,; && 最初的驅動模式
INTEGER fMode && 模式選項
DocumentProperties(0,M.hPrinter,'EPSON LQ-1600KIII',NULL,NULL,4)

* 5.用API AdvancedDocumentProperties 函數(WIN2000/XP)

*-- 啟動印表機文檔設置對話方塊
DECLARE INTEGER AdvancedDocumentProperties IN Winspool.drv ;
INTEGER hWnd,; && 父窗口控制碼
INTEGER hPrinter,; && 已打開的印表機控制碼
STRING pDeviceName,; && 設備名稱
STRING @pDevModeOutput,; && 修正的驅動模式
STRING pDevModeInput && 最初的驅動模式
AdvancedDocumentProperties(0,M.hPrinter,'EPSON LQ-1600KIII',NULL,NULL)
RETURN

FUNCTION DecToAscii
LPARAMETER tn_i,tn_j
LOCAL lc_i,ln_i
M.lc_i = ''
FOR M.ln_i = 1 TO M.tn_j
M.lc_i = M.lc_i + CHR(MOD(M.tn_i,256))
M.tn_i = INT(M.tn_i / 256)
ENDFOR
RETURN M.lc_i
ENDFUNC