VFP 愛用者社區

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

你可能誤會不要太在意明細段的大小的意思，資料當然要在可列印範圍內，明細段當然要比紙張小或相同，舉我的一個報表為例。
*紙張實際大小寬 6in(600) 高4in(400)*設計報表時,紙張自訂為寬 6in(600) 高4in(400) 列印時就會越往下，經慢慢調整到高為 (385)後，一天印幾千張的貨物標籤都不會發生不準的現象。你自己要慢慢試試看。 Shocked

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

你可能誤會我的意思，明細段當然要與紙張大小相同或較小才能，資料當然要印在可列印頁上，舉我的一個例子，*紙張實際大小為寬 6in(600) 高4in(400) *設計報表時,紙張自訂暫為寬 6in(600) 高4in(400)結果是越印越往下，但經慢慢調整到*紙張自訂為高(385)，每日印千張標籤都沒發生問題。

Abel · 發表於: 星期三四月 27, 2005 6:45 pm 文章主題:

感謝 BIN 的指正：

不過我所遇到的是怪格式非制式的，它是張長 10 英吋，有 19 個孔，

但是這樣一張只有實際支票的 1.5 張，也就是需 1.5 張的報表紙才有實際

支票的兩張長，報告完了。

Abel · 發表於: 星期三四月 27, 2005 8:39 pm 文章主題:

感謝 Waterelon 的再回覆：

可是若明細段設接近實際紙張大小，會出現明細橫區段太大無法放入列印頁中的錯誤，

若要不出現錯誤，我現在又發現在設定列印格式中 / 列印區域 / 勾選整頁好像就可以將明細段

設的比較接近實際大小。

要下班了明天找時間再 try，謝謝各位。 Laughing

BIN · 發表於: 星期四四月 28, 2005 3:15 pm 文章主題:

Abel · 發表於: 星期四四月 28, 2005 6:02 pm 文章主題:

Abel 謝謝各位大力的參與和幫忙

這個會出現明細橫區段太大無法放入列印頁中的錯誤，原來是在

VFP / 報表設計工具 / 檔案 / 設定列印格式中 / 列印區域 / 勾選整頁就可以將明細段設的與實際大小相近。

原本的我是勾可列印頁所以才會發生如是的錯誤，目前已經接近完成，過兩天我會再將心得整理出來，

謝謝各位，真的有你們在這裡真好。

Laughing

abcyei · 註冊時間: 2004-01-01 文章: 48 第 22 樓

TO 各位大大：
小弟最近剛好正在寫要套印支票的程式，也是碰到同樣的問題，
我的支票是連續報表(共26孔，比一般的連續報表紙多出了4孔)，每張報表紙包含4張支票，
依照前面的算法每張報表紙就是13吋，但是要如何建立一個新的列印格式??
小弟一直找不到要如何建立，煩請各位大大指教，謝謝。

作業系統 WIN 2000 Pro && VFP 6.0
列表機是 EPSON LQ-1170C 或者 EPSON LQ-2180C

abcyei · 註冊時間: 2004-01-01 文章: 48 第 23 樓

小弟找到了，原來是在印表機資料夾的功能表\\檔案，我還以為是在所安裝的印表機裏呢，難怪之前麼找都找不到。

Abel · 註冊時間: 2005-03-14 文章: 189 來自: 鹿港小鎮 第 24 樓

Abcyei 您的動作真快，不過既然做了還是放上吧。

如何建立一個新的列印格式??

以 XP 為例 (通用 WINDOWS 2000)

在開始 / 控制台 / 印表機和傳真機 / 檔案 / 伺服器內容 / 建立新格式就成了

Rolling Eyes

對了我原本有抓畫面，請問板主，我要如何放上圖片

frank_asst · 註冊時間: 2005-04-15 文章: 15 第 25 樓

各銀行的電子支票格式不一，甚至不是英吋規格，若非英吋規格者，建議您使用W2K/XP系統，就能精準指定該公分的格式支票
列印多張報表的方式，可參考小弟以下的語法
with thisform
TmpExpr=;
"PAPERSIZE="+xsize+chr(13)+chr(10)+;
"PRINTQUALITY="+xres+chr(13)+chr(10)+;
"YRESOLUTION="+xres+chr(13)+chr(10)+;
"PAPERLENGTH="+alltrim(len_p)+chr(13)+chr(10)+;
"PAPERWIDTH="+alltrim(wid_p)+chr(13)+chr(10)+;
"ORIENTATION="+alltrim(iif(thisform.opt3.value=1,'0','1'))+chr(13)+chr(10)+;
"COPIES="+alltrim(thisform.t_copy.value)+chr(13)+chr(10)
update (.file+ ".frx") set expr=TmpExpr,tag="",tag2="" where objtype=1 and objcode=53
use in .file
endwith
***重點在於報表檔 .frx 的 expr 欄位內，加入 COPIES=1(份數) 必須是大寫喔!

garfield · 發表於: 星期五五月 06, 2005 8:52 am 文章主題:

[quote=Abel]
...，請問板主，我要如何放上圖片
[/quote]
只要不是用 "快速回覆", 而是去按[回覆文章]的按鈕, 那裡就可以附加檔案, 可以將你的圖片上傳, 或是你將圖片放在別的網站, 再用超連結也可以.

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

對不起哦!這麼久了不知Abel的問題解決了嗎?
可能是我說的不夠清楚，我舉一個我公司印自粘摽的例子可能比較容易懂。
標籤長5吋，起初紙張在使用者自訂也是5吋，心想印出來應合理才是，可是天不從人願，印越多差距越大，問題跟Abel的一模一樣，後來慢慢把試著把使用者自訂調4.8972吋，才算正確，印幾天都不用從新進紙。

Patrick Wu · 發表於: 星期一八月 27, 2007 4:19 pm 文章主題:

提供一下後學的淺見 :
1.先於 WIN XP 列表機伺服器內新增所須要的纸張 (如 H : 84 MM X W : 175MM )
2.MODIFY REPORT 例如檔名為 CHK_1PRT
3.USE C:\VFP6-PRG\PRT\CHK_1PRT.FRX
REPLACE TAG WITH "" , TAG2 WITH "" , EXPR WITH ""
去除 TAG TAG2 EXPR 等資訊即可

此為後學的作法提供給各位先進參考相互共勉之

Patrick Wu · 發表於: 星期一八月 27, 2007 4:34 pm 文章主題:

後學補充一點 :
列表機伺服器內新增寬 24 cm(含兩端洞洞) * 長 17 cm ==>取名為 24X17
印表機 epson LQ-300+ 備好，=> 列表機設定 =>預設纸張 (曳引送紙器) 應為 24X17
如此即可分厘不差

Darren · 註冊時間: 2007-10-18 文章: 57 第 30 樓

with thisform
TmpExpr=;
"PAPERSIZE="+xsize+chr(13)+chr(10)+;
"PRINTQUALITY="+xres+chr(13)+chr(10)+;
"YRESOLUTION="+xres+chr(13)+chr(10)+;
"PAPERLENGTH="+alltrim(len_p)+chr(13)+chr(10)+;
"PAPERWIDTH="+alltrim(wid_p)+chr(13)+chr(10)+;
"ORIENTATION="+alltrim(iif(thisform.opt3.value=1,'0','1'))+chr(13)+chr(10)+;
"COPIES="+alltrim(thisform.t_copy.value)+chr(13)+chr(10)
update (.file+ ".frx") set expr=TmpExpr,tag="",tag2="" where objtype=1 and objcode=53
use in .file
endwith

不知是否能請你給我一些上面例子的數值 (例如: xsize-多少, xres-???, ...)

還有想請教你, 如果用以上的例子的話, 還需要在列表機設定 =>預設纸張
那裡設定纸張長短嗎?

如果想要連續列印, 不要跳頁 (列印報表完畢後也不要跳頁), 行嗎? 需要改甚麼嗎?

謝謝你的幫忙