พิมพ์เช็ค ตัวหนังสือยาวเกินไป

[nalisa]

พิมพ์เช็คแล้ว ตัวหนังสือจำนวนเงินพิมพ์ไม่พอ สามารถบีบตัวหนังสือได้มั้ยคะ

[savek]

หมายถึงมันยาวเกินช่องที่มีอยู่ในหน้าเช็คใช่ไหมครับ

แบบนั้นอาจจะใช้วิธีลดขนาดตัวอักษรเฉพาะในส่วนของยอดเงินที่เป็นตัวอักษรนี้ให้มีขนาดเล็กกว่าขนาดตัวอักษรปกติในเช็คครับ แต่ทั้งนี้จะต้องเป็นการพิมพ์แบบ Text Mode และคงต้องขอดูโค้ดคำสั่งในหน้าจอแก้ไขแบบฟอร์มเช็คที่ใช้งานอยู่ด้วยนะครับ

[nalisa]

ขอทราบวิธีทำหน่อยได้มั้ยคะ คือลองแก้มาหลายครั้งแล้ว ก็ยังไม่ได้น่ะคะ

[savek]

อย่างที่ผมเรียนแจ้งไปครับ ขอให้ก๊อปปี้โค้ดคำสั่งทั้งหมดจากหน้าจอแก้ไขแบบฟอร์ม แล้วมา Paste ลงในกระทู้นี้ได้เลยนะครับ

[nalisa]

* BKPCHQ.RN1 - Print Post Date Cheque
*
[report frame]
Bo: \027\074\100                                    ~CHQDAT                ~D1 ~D2 ~M1 ~M2 ~Y1 ~Y2 ~Y3 ~Y4
Bo:
Bo:
Bo: \027\074\000 $E~NAME                                    ////                                                                         
BO: \027\074\180$E~BAHT                                                                            $E                   
Bo: \027\074\075                                                    $E ~AMOUNT                                    $E
Bo:
Bo: $EA/C PAYEE ONLY  $E
[end frame]

[print options]
Left=0
Right=132
Lines=41
Output=Select, Printer, Screen, File,
File Name=BKPCHQ.TXT
Print Control=\027\106\040
Fix Foot Line=OFF
Select Scope=OFF
Select Page=OFF

[range of report]
From=CUR

[master file]
File=BKTRN
Alias=A
Tag=BKTRN3
System=DATA_PATH

[relate file]
File=APMAS
Alias=B
Tag=APMAS1
System=DATA_PATH
Master file=BKTRN
Master-Related Field=CUSCOD

[data spec]
*          len  (0)default, (>0)cut, (<0)cut to new line
*~dat:      len,    "pict",            "data",            "exp"
~CHQDAT:    0,      "", "",  "x=dtos(a->CHQDAT); y=str(val(substr(x,1,4))+543,4)"
~D1:        0,      "", "D1","D1=SUBSTR(x,7,1)"
~D2:        0,      "", "D2","D2=SUBSTR(x,8,1)"
~M1:        0,      "", "M1","M1=SUBSTR(x,5,1)"
~M2:        0,      "", "M2","M2=SUBSTR(x,6,1)"
~Y1:        0,      "", "Y1","Y1=SUBSTR(y,1,1)"
~Y2:        0,      "", "Y2","Y2=SUBSTR(y,2,1)"
~Y3:        0,      "", "Y3","Y3=SUBSTR(y,3,1)"
~Y4:        0,      "", "Y4","Y4=SUBSTR(y,4,1)"
 
~NAME:      0,      "",                "A->NAME",          ""   
~AMOUNT:    0,      "***,***,**9.99",  "A->AMOUNT",        ""
~BAHT:      0,      "",                "t_baht(A->AMOUNT)",""

[savek]

อืม เหมือนฟอร์มจะแก้ไขเอาไว้ผิดครับ

ปกติ Print Control ของฟอร์มเช็คจะเป็นแบบนี้ครับ  Print Control=\027\033\001

ส่วนสูตร \027\106\040 เป็นสูตรในการปรับการฟีดของกระดาษ ไม่ใช่ขนาดตัวอักษร ยังไงอาจจะลองเปลี่ยนให้เป็นตัวที่ถูกต้องก่อนคือ Print Control=\027\033\001 แล้วทดลองพิมพ์ดูอีกทีครับ

[CK]

ให้ดูตรงบรรทัด

BO: \027\074\180$E~BAHT                                                                            $E   

เราสั่งให้ข้อความ ~BAHT มันอยู่ระหว่าง $E ... $E  ดังนั้น ข้อความก็จะถูกพิมพ์เป็นตัวขยาย  ทำให้ล้นกระดาษ(เช็ค)
วิธีแก้ไข  ให้ลบ $E  ออกทั้งด้านซ้ายและขวาของ ~BAHT    เพื่อพิมพ์เป็นอักษรแบบธรรมดาครับ 

[nalisa]

ลองทำทั้งสองวิธีแล้วค่ะ ไม่มีอะไรเปลี่ยนแปลงเลยค่ะ

[savek]

ได้ลองพิมพ์จากข้อ 3 พิมพ์แบบทดสอบแล้วใช่ไหมครับ และเลือกพิมพ์แบบ Text Mode ไม่ใช่ Graphic Mode นะครับ

หากยังไม่ได้ รบกวนโทร.ติดต่อเข้ามา ให้ จนท.แนะนำวิธีแก้ไขไปทีละขั้นตอนได้เลยครับ