VFP 愛用者社區

Patrick Wu · 註冊時間: 2007-01-03 文章: 228 來自: 台北市 第 1 樓

SET PRINTER TO NAME 的問題
電腦列表機安裝有 NEC , PANASONIC , EPSON , WINFAX 等
NET_CALL.SET_PRT是指定給 PANASONIC 列表機列印但為何輸出還是 NEC 的列表機(STM_1PRT 是於 NEC 列表機的環境下作成的)
請高手指導謝謝

SELECT 56
GOTO TOP
SET PRINTER TO NAME TRIM(NET_CALL.SET_PRT) &&指定為PANASONIC
SET PRINTER TO ON
SELECT 10

REPORT FORM C:\VFP6-PRG\PRT\STM_1PRT RECORD RECNO() PREVIEW
REPORT FORM C:\VFP6-PRG\PRT\STM_1PRT RECORD RECNO() NOCONSOLE TO PRINT PROMPT

liangszpt · 發表於: 星期三一月 31, 2007 1:02 am 文章主題:

我试过因为列印机的“名字”太长，VFP认不了，所以自动输出到默认列印机上。

Patrick Wu · 發表於: 星期三一月 31, 2007 9:51 am 文章主題:

謝謝同胞 liangszpt 的指導試過了用變數取代還是無解

syntech · 發表於: 星期三一月 31, 2007 10:49 am 文章主題:

"SET PRINTER TO ON "

沒有這種寫法,
只有
"SET PRINTER ON "

---------------------------------------------------------------------
Syntax

SET PRINTER ON [PROMPT] | OFF
-or-
SET PRINTER FONT cFontName [, cFontSize]
[STYLE cFontStyle]
-or-
SET PRINTER TO [FileName [ADDITIVE] | PortName]
-or-
SET PRINTER TO [DEFAULT | NAME WindowsPrinterName]
-or-
SET PRINTER TO NAME \\ServerName\PrinterName

---------------------------------------------------------------------

你的寫法應該是被 COMPILER 認為是
"SET PRINTER TO [FileName [ADDITIVE] | PortName]"

比較可能是 SET PRINTER TO PortName,
因為找不到,所以又設為預設值.

liangszpt · 發表於: 星期三一月 31, 2007 1:01 pm 文章主題:

APRINTERS(laPrinterName)

IF ASCAN(laPrinterName,列印机名字的变数) > 0
SET PRINTER TO NAME (列印机名字的变数)
ELSE
SET PRINTER TO DEFAULT
ENDIF

我在做的一个案例当中，可以设定各种报表要在那台列印机输出的，在打印前，我都会检查一下这台列印机是否还在，如果不在，就用默认的打印机输出。

以前我也试过有你这种问题，就是因为类似你“NET_CALL.SET_PRT”这个FIELD的长度太短，而致我设定打印机名字时，都给截尾了，所以就查找不出来，都在默认打印机输出了。
你可以再检查一下NET_CALL.SET_PRT的字名，在SET PRINTER之前，是否完整的。还有，那括弧，应该这样括吧

set printer to name (trim(net_call.set_prt))

Patrick Wu · 發表於: 星期三一月 31, 2007 3:04 pm 文章主題:

SORRY 此行 COPY 過來時有誤 SET PRINTER TO ON 應為 SET PRINTER ON

Patrick Wu · 發表於: 星期三一月 31, 2007 3:18 pm 文章主題:

有用過此方法:
USE STM_1PRT.FRX
REPL TAG WITH ""
在下 SET PRINTER TO NAME TRIM(NET_CALL.SET_PRT) &&指定為PANASONIC
列表機即為 PANASONIC 的列表機但紙張為 XP 列印伺服器內的第一種紙張(13.. MMX 13.MM) 而非 PANASONIC 的預設紙張
.FRX 錯誤提示 (明細橫段區過小)

Patrick Wu · 發表於: 星期四二月 01, 2007 8:16 am 文章主題:

利用空檔研究了幾天終於解決了問題如下:
VFP 好像只認得 EPSON 的列表機將全部的 .FRX 之預設列表機 (MODIFY REPORT XXXXX.FRX)改為 EPSON 的模式紙張 A4 之後於 PRG 下

SELECT 56
GOTO TOP
SET PRINTER TO NAME TRIM(NET_CALL.SET_PRT)

SELECT 10
REPORT FORM C:\VFP6-PRG\PRT\STM_1PRT RECORD RECNO() PREVIEW
REPORT FORM C:\VFP6-PRG\PRT\STM_1PRT RECORD RECNO() NOCONSOLE TO PRINT PROMPT

一確 OK

syntech · 發表於: 星期四二月 01, 2007 8:41 am 文章主題:

只認得EPSON 真是第一次聽到.

不知道我們公司用的 FUJITSU 3400,3600,3800,HP DJ650,DJ1225,DJ970
客戶用的 PANASONIC,CITIZEN,CANNON,.....

那些是什麼?

Patrick Wu · 發表於: 星期四二月 01, 2007 9:42 am 文章主題:

SORRY 應該說 VFP <認得> EPSON 的列表機模式下 MODIFY REPORT 的 FRX 可作 SET REPORTER TO NAME .........
至少我於 NEC 列表機模式下制作的 FRX 無法 SET REPORTER TO NAME ..... 所以才請教各位先進高手及前輩

liangszpt · 發表於: 星期日二月 04, 2007 3:35 am 文章主題:

楼主，我都给你搞糊涂了。
现在要打印，都是交给WINDOWS去处理的，如果你有多台打印机，你想在那台输出，可以用SET PRINTER TO NAME 视窗下打印机名，然后直接REPROT FORM就可以啦。至于打印机就是无关性的，怎么会只支持那个牌子这种说法的呢。
如果你一份报表在其它打印机不正常，只在那EPSON正常，你看看是否你的REPORT中那个SAVE PRINTER ENVIRONMENT是否打了勾。我曾经试过打上勾后，在其它打印机输出，有点不正常。

Patrick Wu · 發表於: 星期日二月 04, 2007 9:31 pm 文章主題:

USER 的情況是 :
1. NEC 的 PRIN 裝 9 1/2 中一刀紙張
2. PANASONIC 的 PRINT 裝的是發票
3. EPSON 的 PRINT 裝的是 A4 的紙張
4. 每部電腦皆安裝 WINFAX
USER 的 ORDER 是 :
1. 程式執行 <請款單> 直接給 NEC 的 PRINT 因請款單的規格是 9 1/2 中一
刀的紙張 (不用 GETPRINT() 下拉式選單因如忘了選擇列表機就會跑到
EPSON OR PANASONIC 的列表機上而影响作業)
2. 程式執行 <發票> 直接給 PANASONIC 的 PRINT
3. 程式執行 <報表> 直接給 EPSON 的 PRINT
4. 有時客戶訂貨須先收款 <請款單> 就要用 WINFAX 先傳真
.............. 總之執行 A 程式用預設 A 列表機執行 B 程式用預設 B 列表機
不用選擇
此狀況供 liangszpt 同胞參考

Patrick Wu · 發表於: 星期日二月 04, 2007 9:46 pm 文章主題:

這幾天研究 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=")) 是否有更好的寫法謝謝

Patrick Wu · 發表於: 星期日二月 04, 2007 9:57 pm 文章主題:

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