เครื่องพิมพ์ PassBook Printer ของธนาคารเป็นแบบพิเศษครับ ไม่เหมือนเครื่องพิมพ์ทั่วไป เข้าใจว่ามันสามารถรับรู้ตำแหน่งที่พิมพ์ไปแล้วบนสมุดบัญชีได้ด้วย ดังนั้นเราจึงทำอย่างนั้นโดยอัตโนมัติไม่ได้

แต่ถ้าเราสามารถรู้ได้ว่าบรรทัดต่อไปที่จะพิมพ์เป็นบรรทัดที่เท่าไหร่ ก็อาจทำได้ครับ โดยหน้าที่จะสั่งพิมพ์ให้ป้อนเลขบรรทัดเลขสุดท้าย สมมุติชื่อ textbox ว่า myLastLine แล้วกัน ส่วนในรายงานก็ให้ใส่โค้ดข้างล่างนี้ ซึ่งโปรแกรมจะเริ่มพิมพ์เรคอร์ดแรกในบรรทัดต่อจากบรรทัดสุดท้ายที่กำหนดไว้ใน myLastLine ครับ

Option Compare Database
Option Explicit

Dim myLine As Long   ' เป็นตัวนับบรรทัด เพื่อใช้หาว่าจะเริ่มพิมพ์บรรทัดแรกได้หรือยัง

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
    myLine = myLine + 1
    
    If myLine <= Forms("ชื่อฟอร์ม").myLastLine Then ' ถ้าบรรทัดที่กำลังจะพิมพ์ในรายงานน้อยกว่าบรรทัดสุดท้ายที่เคยพิมพ์ไปแล้ว
        Me.NextRecord = False        ' โปรแกรมจะไม่ข้ามไปยังเรคอร์ดต่อไป
        Me.ชื่อคอลโทรล.Visible = False ' ซ่อนคอลโทรลต่างๆไว้เพื่อให้พิมพ์ออกมาเป็นบรรทัดเปล่าๆ
    Else
        Me.ชื่อคอนโทรล.Visible = True
    End If

    ' ชื่อคอลโทรลคือคอลโทรลต่างๆใน Detail Section ที่ไม่ต้องการพิมพ์เมื่อเป็นบรรทัดเปล่าๆ เช่น ถ้ามี 5 คอลโทรลก็กำหนดไป 5 บรรทัด
End Sub

Private Sub Report_Open(Cancel As Integer)
    myLine = 0
End Sub

ขอบคุณหลาย ๆ
ช่วยมาหลายราการแล้ว
ทำให้สำเร็จลุล่วงได้

เครื่องพิมพ์สมุดเงินฝาก compuprint รุ่น sp40
เป็นเครื่องพิมพ์ที่มีความเร็วในการพิมพ์สูงสุดที่จำหน่ายในประเทศไทย และเป็นเครื่องที่ธนาคารและสหกรณ์ออมทรัพย์ไว้วางใจเลือกใช้ เช่น ธนาคารออมสิน ธนาคารเพื่อการเกษตรและสหกรณ์ (ธกส) ธนาคารกรุงศรีอยุธยา ธนาคารไทยพาณิชย์ ธนาคารธนชาต ธนาคารไทยธนาคาร เป็นต้น รวมถึงสหกรณ์ เช่น สหกรณ์ออมทรัพย์ครู สหกรณ์ออมทรัพย์สาธารณสุข สหกรณ์ออมทรัพย์ตำรวจ และธนาคารต้นแบบกองทุนหมู่บ้านทั่วประเทศ
                      คุณสมบัติเครื่องพิมพ์ยี่ห้อ Compuprint รุ่น SP40
(หัวพิมพ์ปรับระยะอัตโนมัติตามความหนาของสมุดคู่ฝาก/กระดาษ)

ระบบการพิมพ์                         : หัวพิมพ์สามารถปรับระดับความ บาง/หนา ของสมุดคู่ฝากอย่างอัตโนมัติ(Automatic Gap Adjustment )                   
จำนวนหัวพิมพ์               : 24 เข็มพิมพ์
ความเร็วในการพิมพ์.                            : มีความเร็วในการพิมพ์สูงสุด 600 CPS
                                                                                     15 cpi        12 cpi        10 cpi
                                                                Draft             600 cps      480 cps       400 cps
                                                                LQ               200 cps      164 cps       133 cps
ขนาดตัวอักษรต่อนิ้ว          : 5, 6, 7.5, 8.5, 10, 12, 15, 16.6, 17.1, 20, 24 CPI
ระบบการ Setup เครื่องพิมพ์                 : การ Setup printer SP40 เป็นแบบ Optical Mark Reading
ทางเข้ากระดาษ                           : สามารถวางสมุทรที่ช่องป้อนกระดาษตรงตำแหน่งไหนก็ได้ (Auto Aliqnment)
ความละเอียดในการพิมพ์          : Graphic 360x360 dpi
ชุดคำสั่ง (EMULATIONS)          : Emulations IBM ® Personal Printer 2390+, Proprinter XL24E, Proprinter XL24E-AGM and Epson ®
                                                              : LQ2550/ LQ1170,IBM ® 4722, Olivetti ® PR40 plus/PR2/PR2845, IBM 9068
ความกว้างของพื้นที่การพิมพ์          : 94 Characters at 10 CPI
ระบบต่อเชื่อม(มาตรฐาน)          : RS232 serial, IEEE1284 parallel, (Automatic Interface Switching) USB 2.0 specific version
อายุหัวพิมพ์               : พิมพ์ 400 ล้านตัวอักษร
ความหนาของกระดาษ          : สูงสุดถึง 2.0 มม.
จำนวนสำเนา               : (ต้นฉบับ+สำเนา 5 ฉบับ)
อายุผ้าหมึก               : 4 ล้านตัวอักษร
ระดับเสียงการพิมพ์          : 55 dBA
กระแสไฟ               : สูงสุด 120 วัตต์ Standby 7 วัตต์
ขนาด (WxDxH)               : 400 x 200 x 295 mm.
น้ำหนัก                    : 12 Kg.

บริษัท พีอาร์เอ็น เทคโนโลยี จำกัด
79 ซอยเสรีไทย 81/2 ถนนเสรีไทย แขวงคันายาว เขตคันนายาว กรุงเทพมหานคร 10230
Tel : 0-29063121-22   Fax : 0-29063132   Email : rakchart@prn-tech.com

ขอแนะนำเครื่องพิมพ์เช็ค HCC PR3 สำหรับองค์การบริการส่วนตำบล สหกรณ์ ธนาคารและสถาบันการเงิน โดยคุณสมบัติเครื่องพิมพ์มีดังนี้
- เครื่องพิมพ์สมุดบัญชี (PASSBOOK PRINTER) ระบบ DOT MATRIX 24 หัวเข็ม
- ใช้ระบบการพิมพ์แนวราบ (FLATBED) เพื่อป้องกันการติดขัดของเอกสารระหว่างพิมพ์ จึงสามารถพิมพ์เอกสารได้ทั้งในรูปแบบสมุด (PASSBOOK) กระดาษธรรมดา และกระดาษต่อเนื่องแบบหลายสำเนา (MULTI PART FORM)
- ปรับระยะห่างระหว่างหัวพิมพ์และเอกสารโดยอัตโนมัติ ด้วย Automatic Print-Head Gap Adjustment (AGA) จึงทำให้คุณภาพงานพิมพ์สม่ำเสมอ ไม่ติดขัด แม้ในเอกสารที่พิมพ์จะมีความหนาไม่สม่ำเสมอ และช่วยรักษาหัวพิมพ์ให้มีอายุการใช้งานได้นานขึ้น
- ใช้งานง่าย เนื่องจากเครื่องพิมพ์จัดตำแหน่งการวางกระดาษในตำแหน่งที่ถูกต้องให้โดยอัตโนมัติ เพื่อความสะดวกในการใช้งาน
- ความละเอียด Resolution 360 x 360 DPI
- ความเร็วในการพิมพ์สูงสุด ที่ 400 cps ใน Mode Draft , 150 cps ใน Mode N.L.Q., และ 133 cps ใน Mode L.Q.
- พิมพ์ได้ความกว้างสูงสุดที่ 258,76 mm, 94 ตัวอักษร ที่ 10 cpi
- ตั้งการเว้นระยะระหว่างบรรทัดได้ที่ 1/5”, 1/6”, n/216”,n/240”
- พิมพ์ขนาดตัวอักษรได้ที่ 10, 12, 15, 17.1,20 cpi
- สามารถป้อนกระดาษได้ความหนาสูงสุด 2 mm
- พิมพ์ได้ 1 ต้นฉบับ + 5 สำเนา
- เชื่อมต่อแบบ RS 232 serial + IEEE 1284 parallel ทำงานแบบ Auto switching
- หน่วยความจำ 64 KB
- RIBBON 1 ตลับ พิมพ์ได้ 4 ล้าน ตัวอักษร
- หัวพิมพ์ มีอายุการใช้งานนาน 400 ล้านตัวอักษร
- สามารถพิมพ์งานได้หลากหลาย นอกจากการใช้งานเพื่อธุรกรรมทางธนาคาร เช่น เช็ค,ใบรับฝากเงินและใบถอนเงิน   สามารถใช้งานเพื่อการพิมพ์ตั๋วโดยสาร สมุดทะเบียนต่างๆ เอกสารประจำตัว เช่น พาสปอร์ต ซองจดหมาย ฯลฯ ในองค์กรต่างๆ อาทิ บริษัทประกันภัย องค์กรเพื่อสาธารณูปโภค โรงพยาบาล บริษัทขนส่ง และอุตสาหกรรมท่องเที่ยว
- สามารถปรับการใช้งานให้เข้ากับเครื่องพิมพ์ได้หลายรุ่น อาทิ   Epson LQ 2550 , IBM Proprinter X24   
- ใช้พลังงานระหว่างพักเครื่อง 10 W และระหว่างพิมพ์ 120 W
*** ได้รับการ Approved จาก Team Programmer ในการทดสอบใช้งานกับระบบ E-Laas โดยเครื่องพิมพ์เช็ค HCC รุ่น PR3 ได้มีการทดสอบแล้วว่าสามารถใช้งานพิมพ์เช็คและใบถอนเงินกับระบบบันทึกบัญชีขององค์กรปกครองส่วนท้องถิ่น (e-LAAS)ได้อย่างถูกต้อง ***

นอกจากนี้ทางบริษัทยังให้สินค้าและบริการอื่นๆดังนี้ :
Card Printer เครื่องพิมพ์บัตรพลาสติก (พีวีซี) มีทั้งแบบพิมพ์หน?าเดียวและสองหน้าอัตโนมัติ
Passbook printer เครื่องพิมพ์สมุดคู่ฝาก สมุดบัญชีและเช็คมีความเร็วในการพิมพ์สูง
Heavy duty printer เครื่องพิมพ์ชนิดดอทแมทริกซ์ 24 เข็มที่มีความทนทานในการใช้งานสูงกว่าเครื่องพิมพ์ทั่วไป
Line printer เป็นเครื่องพิมพ์ความเร็วสูง สามารถพิมพ์ได้ครั้งละบรรทัด สำหรับงานที่ต้องการความเร็วมากๆ
Ribbon for printer วัสดุสิ้นเปลืองสำหรับเครื่องพิมพ์ทุกรุ่น ทุกยี่ห้อ
Toner for laser printer ผงหมึกที่นำไปใช้งานกับเครื่องพรินเตอร์ประเภทเลเซอร์ปริ้นเตอร์
Financial Machine เครื่องนับธนบัตรและเหรียญไทย พร้อมคัดแยกอัตโนมัติ
Software ระบบบริหารสหกรณ์และโปรแกรมสแกนไวรัส
Service บริการรับทำบัตรประจำตัวนักศึกษา,พนักงาน ฯลฯ และบริการทำทำสัญญาบำรุงรักษาเครื่องพิมพ์รายปี

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

สนใจกรุณาติดต่อสอบถามได้ที่
ชื่อผู้ติดต่อ : คุณศิริพงษ์ จันทร์กระจ่าง (ปู)
ที่อยู่ : 15 ซอยรามอินทรา 80 ถนนรามอินทรา แขวงมีนบุรี เขตมีนบุรี กรุงเทพฯ 10510
สำนักงาน : บริษัท โปรเฟสชั่นแนล ไฮเทค การ์ด จำกัด
50/254 ซ.หทัยราษฏร์ 6 ถ.หทัยราษฏร์ แขวงบางชัน เขตคลองสามวา กรุงเทพฯ 10510
โทร : 08-9133-1587,0-2906-5300
แฟกซ์ : 0-2906-5301
E-mail : info@procard.co.th
website : www.procard.co.th

บริษัทพีอาร์เอ็น เทคโนโลยี จำกัด
79 ซอยเสรีไทย81/2 ถนนเสรีไทย แขวงคันนายาว เขตคันนายาว กรุงเทพมหานคร 10230
Tel : 0-2906-3121-2 Fax : 0-2906-3132 Email : suphachai@prn-tech.com.

Passbook Printer Compuprint Model SP40 Plus (รุ่นใหม่ล่าสุด)
เครื่องพิมพ์เช็คหรือสมุดบัญชี (Passbook Printer) โดยทั่วไปจะเป็นเครื่องพิมพ์ประเภทหัวเข็ม ซึ่งจะทำให้เกิดตัวอักษรนูนหรือลึก เวลาพิมพ์เอกสารเช่น เช็ค ใบถอนเงิน ใบเสร็จรับเงิน หรือสมุดบัญชี ซึ่งสามารถใช้เป็นจุดสังเกตที่ชัดเจนในการตรวจสอบเช็คหรือเอกสารต่างๆ รวมทั้งสามารถสำเนาคาร์บอนในกรณีที่ใช้กระดาษชุดคาร์บอน
          โดยทั่วไปเครื่องพิมพ์เช็คจะสามารถรับกระดาษ (Feed) และจัดรูปแบบกระดาษได้อัตโนมัติ ทั้งขนาด A4 หรือขนาดเช็ค ใบถอน โดยไม่ต้องคั่นหน้ากระดาษหรือทำการกำหนดขอบเขตในการพิมพ์เหมือนเครืองพิมพ์ทั่วไป ซึ่งจะอำนวยความสะดวกในกรณีที่มีการพิมพ์เช็คมากและบ่อยครั้ง
        ข้อดีของเครื่องพิมพ์เช็ค/สมุดเงินฝาก
•     การป้อนกระดาษและการจัดหน้ากระดาษ ทำได้อัตโนมัติ
•     ค่าหมึกเครื่องพิมพ์มีราคาถูก (ประมาณ 350 บาท/1 ตลับ/10,000 เช็ค)
•     รองรับกระดาษหนาประมาณ 20 แผ่น (สามารถใส่เอกสารทั้งเล่มได้)
•     พิมพ์กระดาษคาร์บอนได้ประมาณ 6 ชั้น (กรณีต้องการใช้กระดาษคาร์บอนในการเก็บสำเนา)
       
          ระบบบันทึกบัญชีขององค์กรปกครองส่วนท้องถิ่น (e-LAAS) ได้ทำการทดสอบแล้วว่าสามารถพิมพ์เช็คและใบถอนเงิน ได้ด้วยเครื่องพิมพ์ หลายประเภท ทั้งเครื่องพิมพ์ดอตแมทริกซ์ (Dot Matrix Printer), เครื่องพิมพ์แบบพ่นหมึก (Ink-Jet Printer), เครื่องพิมพ์เลเซอร์ (Laser Printer) หรือเครื่องพิมพ์เช็ค (Passbook Printer) ผู้ใช้งานสามารถเลือกเครื่องพิมพ์ได้ความเหมาะสม
          สำหรับผู้ใช้งานที่ต้องการใช้เครื่องพิมพ์เช็ค(Passbook Printer) ที่ได้ทดสอบการใช้งานกับระบบ e-LAAS ว่าสามารถพิมพ์ได้อย่างถูกต้อง สามารถ Download คุณสมบัติของเครื่องพิมพ์เช็ค Compuprint รุ่น Sp40Plus ได้ ที่นี่   http://www.passbookprinterthai.com
   
ติดต่อได้ที่ คุณศุภชัย กรุดสัมพันธ์ 086-3094504
[/url]                            

รบกวน อาจารย์สันติสุขด้วยครับ
ผมลองทำแล้วยังไม่ได้ คือเมื่อสั่งพิมพ์แล้วออกมาทุกบรรทัดของ report เลยครับ
ความหมาย ของอาจารย์คือ สร้าง form ขึ้นมา สมมุติชื่อ form1
โดย form1 มี textbox ชื่อ myLastLine
และสร้าง report กำหนดตามอาจารย์ ดังนี้
   Option Compare Database
Option Explicit

Dim myLine As Long   ' เป็นตัวนับบรรทัด เพื่อใช้หาว่าจะเริ่มพิมพ์บรรทัดแรกได้หรือยัง

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
    myLine = myLine + 1
    
    If myLine <= Forms("form1").myLastLine Then ' ถ้าบรรทัดที่กำลังจะพิมพ์ในรายงานน้อยกว่าบรรทัดสุดท้ายที่เคยพิมพ์ไปแล้ว
        Me.NextRecord = False        ' โปรแกรมจะไม่ข้ามไปยังเรคอร์ดต่อไป
        Me.drug_id.Visible = False ' ซ่อนคอลโทรลต่างๆไว้เพื่อให้พิมพ์ออกมาเป็นบรรทัดเปล่าๆ
    Else
        Me.drug_id.Visible = True
    End If

    ' ชื่อคอลโทรลคือคอลโทรลต่างๆใน Detail Section ที่ไม่ต้องการพิมพ์เมื่อเป็นบรรทัดเปล่าๆ เช่น ถ้ามี 5 คอลโทรลก็กำหนดไป 5 บรรทัด
End Sub

Private Sub Report_Open(Cancel As Integer)
    myLine = 0
End Sub     
จากนั้น สร้างปุ่มสำหรับสั่งพิมพ์ ใชไหมครับ
ช่วยกรุณาอธิบายเพิ่มเติมด้วยครับ

ในเท็กส์บ็อกส์ myLastLine ต้องป้อนค่าเป็นหมายเลขบรรทัดสุดท้ายที่ได้พิมพ์ไปแล้วบนหน้ากระดาษนะครับ มันควรจะต้องพิมพ์ต่อจากบรรทัดนั้นครับ ไม่น่ามีอะไรผิด

ส่วนปุ่มสำหรับสั่งพิมพ์ก็น่าจะสร้างเอาไว้บนฟอร์ม form1 นั่นแหล่ะครับ

ต้องขอโทษอาจารย์ครับ พึ่งกลับมาจากต่างจังหวัด
ความหมายคือว่า ถ้า report นั้นมี 20 บรรทัด
ผมใส่ตัวเลข 15 ในเท็กส์บ็อกส์ myLastLine
เมื่อสั่งพิมพ์ โปรแกรมจะพิมพ์ ตั้งแต่บรรทัด ที่ 16 เป็นต้นไป
ใช่ไหมครับ

ใช่ครับ

เรียนอาจารย์ครับ
ผมสั่งพิมพ์แล้ว จะออกมาทุกบรรทัดเลยครับ
รบกวนอาจารย์ด้วยนะครับ

คุณต้องลองดีบัก ที่บรรทัด If myLine <= Forms("form1").myLastLine Then ดูครับ ว่ามันให้ค่า myLine และ myLastLine เป็นอะไรในแต่ละครั้ง

อาจารย์ครับ ช่วยอธิบายคำว่าดีบัก ด้วยครับว่าคืออะไร
และทำอย่างไร และทำตรงไหนครับ
รบกวนด้วยนะครับ

ผมคงไม่มานั่งอธิบายนะครับ เพราะถ้าทำก็เท่ากับเขียนหนังสือได้บทนึงทีเดียว คิดว่าคลิปนี้คงช่วยอธิบายได้ http://www.youtube.com/watch?v=fIJTqXf6UJY หรือไม่ก็หาใน Google ด้วยคำว่า ดีบัก VB

ขอบคุณอาจารย์มากครับ