VFP 愛用者社區

[Chien]

最近遇上一個問題，真的束手無策，我找不出問題癥結在哪？

客戶列印標籤時會跑空白頁，但不是常常，距離上次跑出空白頁的時間是半年前，那次的問題是列印１張標籤，後面就跟著跑出一張空白的，若是列印３張，則是第一張正常，第二張空白，第三跟第四張又正常，我將標籤機帶回公司測試，在我這邊沒問題，於是又帶去給客戶，一印又跑空白頁，而且是變成印幾張就跑幾張空白頁，等於是每張正常標籤後都跟著一張空白標籤，於是我使用標籤機附贈的標籤軟體列印看看，結果正常沒有跑出空白頁，那就表示標籤機沒問題吧！

於是我回公司將標籤內容縮小，在遠端幫客戶修改程式，結果...無效，仍舊跑空白頁，最後我將客戶的系統重做，就恢復正常了！可是，今天客戶告訴我又跑出空白頁了，我在猜想是否我程式寫的不夠嚴謹，或是哪裡有問題？可否請各位大大幫我看一下，是否我的寫法有問題呢？謝謝！萬分感謝！

以下是標籤按鈕的整段程式：

IF M.Y > 0
SELECT Prod
IF SETFLOCK()
REPLACE Pro014 WITH M.TEXT2
ENDIF
UNLOCK ALL
COPY STRU TO &OPT1
USE &OPT1 ALIAS WORK1 EXCL IN 0
SELECT WORK1
FOR I = 1 TO M.Y
APPEND BLANK
REPLACE Pro001 WITH Prod.Pro001
REPLACE Pro002 WITH Prod.Pro002
REPLACE Pro024 WITH Prod.Pro024
REPLACE Pro014 WITH Prod.Pro014
REPLACE Pro014_2 WITH Prod.Pro014_2
NEXT
SELECT WORK1
GO TOP
THISFORM.VISIBLE=.F.
SET PRINTER TO NAME ALLTRIM(PSIZE_PLabel)
LABEL FORM Prodlabel NOCONSOLE TO PRINTER PROMPT PREVIEW
THISFORM.VISIBLE=.T.
USE
ENDIF
SELECT Prod

PS.不好意思，我第一次詢問，若有遺漏或不足的地方請見諒！＞＂＜謝謝！

[Chien]

是否我表達的不夠完整？真是抱歉！＞＂＜

若是大大有其他寫法可以印標籤，可否給我參考一下呢？我會非常感激！

PS.客戶是使用TSC-244這台標籤機，在程式裡建立好商品後，依客戶需求設定售價與特價這兩種價格，在讓客戶自己去選擇今日要印的是售價或特價，所以會有２個標籤按鈕"售價"＆"特價"！

[區榮熾]

[Chien]

雖然還不知道真正的原因，但我還是將標籤內容縮小去試看看，大大所說的紙張高度是不是指標籤機的紙張設定大小，那邊我查看過並無更動到！

對了，客戶上禮拜曾經中毒(出現很多網卡那種病毒)，因為病毒掃的掉所以我也就沒重做客戶的電腦，這個會影響到標籤列印嗎？謝謝！

[區榮熾]

[goodnight]

移除 TSC-244 所有設定及驅動程式, 重新安裝