VFP 愛用者社區

jtcom01 · 註冊時間: 2005-07-29 文章: 408 第 1 樓

用getprinter()選用印表機列印report form..結果會從預設印表機印出..
我不是選預設列表機..請指導...感激不盡...
mlen=getprinter()
if len(mlen)>0
set printer to name &mlen
report form ..... to printer
endif

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

先清掉報表檔的 tag 及 tag2
例:
use yourreport.frx
repl tag with '',tag2 with ''
use

jtcom01 · 註冊時間: 2005-07-29 文章: 408 第 3 樓

謝謝你ㄉ指導...我去試試....再次感謝妳...

jtcom01 · 註冊時間: 2005-07-29 文章: 408 第 4 樓

garfield..
使用你的方式.在編輯成exe檔前先將report之tag.tag2..with ''
結果還是一樣從預設列表機印出,不知是否還有其它方法可用..
期待你再次的指導....感機激不盡.

syntech · 發表於: 星期四十一月 23, 2006 1:47 am 文章主題:

expr,tag,tag2 本來VFP就會重新清除,
其實是做了和沒做一樣.

我還是認為是樓主自己的問題,
如果沒有疑慮,
乾脆就把整個form和prg搬過來,
這樣比較快

jtcom01 · 註冊時間: 2005-07-29 文章: 408 第 6 樓

謝謝你..是沒什疑慮啦..
其實..就是這樣而已
我先將資料轉到一個讚時資料檔..然後再report做成報表
mpriname=getprint()
if len(mpriname)>0
set print to name &mpriname
report xxxx to print
endif
只是如此而已..這個程式有10張報表..就只有2張會如此..
所以..特來請教高手..我是用vfp6.0...請不吝指導...謝謝 !

區榮熾 · 註冊時間: 2005-11-14 文章: 191 第 7 樓

Watermelon · 註冊時間: 2005-01-22 文章: 197 第 8 樓

我認為在設計報表的時候，自己的電腦不要選您想要變更的那一部列印機即可解決!

Patrick Wu · 發表於: 星期六十一月 03, 2007 3:58 pm 文章主題:

此問題後學有研究過後學的作法如下提供給各先進參考 :

http://vfp.sunyear.com.tw/viewtopic.php?t=3863&highlight=%A4%A4%A4%40%A4M

這幾天研究 REPORT 有點心得僅供各位作參考如有錯誤請各位指教 :

SELECT 60
USE C:\VFP6-PRG\PRT\L106X235.FRX
REPLACE TAG WITH "" , TAG2 WITH "" ;
EXPR WITH STUFF(EXPR,AT( "DEVICE=" , EXPR) , AT( "OUTPUT=" , EXPR) - AT( "DEVICE=" , EXPR) -1 , "DEVICE=")
USE

SELECT 56
GOTO TOP
SET PRINTER TO NAME TRIM(NET_CALL.SET_PRT) && 另一程式指定列表機執行 A 程式用預設 A 列表機
將 .FRX 之 EXPR 內之 DEVICE= EPSON LQ1050C 取代為 DEVICE= 取消取消於 MODIFY REPORT XXX.FRT
時所設定為 EPSON LQ1050C 取消但保留紙張 SIZE FONT ..... 的設定
請各位高手前輩指教(EXPR WITH STUFF(EXPR,AT( "DEVICE=" , EXPR) , AT( "OUTPUT=" , EXPR) - AT( "DEVICE=" , EXPR) -1 , "DEVICE=")) 是否有更好的寫法謝謝
EXPR 的內容為 :
DRIVER=winspool
DEVICE=EPSON LQ1050C ===================> 此行
OUTPUT=LPT1:
ORIENTATION=0
PAPERSIZE=1
ASCII=1
COPIES=1
DEFAULTSOURCE=4
PRINTQUALITY=180
COLOR=1
YRESOLUTION=180
TTOPTION=2
COLLATE=1

改成如下

DRIVER=winspool
DEVICE= <============= 如此
OUTPUT=LPT1:
ORIENTATION=0
PAPERSIZE=1
ASCII=1
COPIES=1
DEFAULTSOURCE=4
PRINTQUALITY=180
COLOR=1
YRESOLUTION=180
TTOPTION=2
COLLATE=1

jeff25 · 發表於: 星期六十一月 03, 2007 4:59 pm 文章主題:

2個問題
1. 可以用 SET PRINTER TO NAME GETPRINTER( ) 比較簡單
2. 如果要用 set printer to name &mlen , 這樣的寫法是不洽當的,容易發生錯誤,(why? 自己想)
應該改成 set printer to name (mlen )
看了樓上諸位的解法,要指定vfp report 由哪一台印表機印出來,真有這麼複雜嗎?
找出真正問題在哪裡,請勿將問題複雜化.

richshih · 註冊時間: 2007-10-11 文章: 153 第 11 樓

syntech · 發表於: 星期日十一月 04, 2007 9:37 pm 文章主題:

如果搞不清楚 &, (), EVAL()
就先想辦法搞懂吧.

這就是VFP這種直譯式資料庫開發工具優於其他爛東西的地方. ^_^

主題?
我現在對幫別人debug沒啥興趣,
尤其是早就有答案的問題. ^_^