Access2016 : สร้าง Label Report แล้วพบปัญหาสั่งพิมพ์รายงานไม่ครบทุกหน้า



0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

26 ก.ย. 61 , 16:47:11
อ่าน 484 ครั้ง

sinawat

รบกวนเพื่อนๆ พี่ๆ ที่เคยเจอปัญหาแนะนำด้วยครับ
ผมสร้าง label report ขึ้นมา ตอน Preview ก็แสดงข้อมูลได้ครบทุกหน้า
แต่ ตอนสั่งพิมพ์รายงาน จะแสดงออกมาเฉพาะหน้าสุดท้ายแผ่นเดียวครับ
สั่งให้พิมพ์ออกทุกแผ่นก็ แสดงออกมาเฉพาะหน้าสุดท้ายแผ่นเดียว
Setup กระดาษก็ไม่เกิน

ขอบคุณครับ
« แก้ไขครั้งสุดท้าย: 26 ก.ย. 61 , 17:05:51 โดย sinawat »

 

26 ก.ย. 61 , 17:02:57
ตอบกลับ #1

sinawat

ในส่วนของ Report ผมนำ Code ของ อ.สุภาพ มาดัดแปลง ดังนี้
Option Compare Database
Option Explicit

Private intCountCopies

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
    Me.txtQuantity = Me.Qty_Box
   
End Sub

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)

Me.txtQuantity = Me.Qty_Box

If intCountCopies < Me.[No of Labels] - 1 Then
    Me.NextRecord = False
    intCountCopies = intCountCopies + 1
   
Else
         ' กรณี จำนวนสินค้า หาร STD Packing (จำนวนสินค้า/แพ็ค) แล้ว ไม่มีเศษ
         ' Label แผ่นสุดท้าย จะแสดงรายการจำนวนเท่ากับ จำนวน STD Packing
         If intCountCopies > Me.[No of Labels] Then
            Me.txtQuantity = [Qty_PCs] - [Qty_Box] * Int([Qty_PCs] / [Qty_Box])
       
        Else
            ' กรณี จำนวนสินค้า น้อยกว่า STD Packing (จำนวนสินค้า/แพ็ค) ให้แสดง จำนวนสินค้าจริง
            If Me.Qty_PCs < Me.Qty_Box Then
                Me.txtQuantity = Qty_PCs
       
            Else
                ' กรณี จำนวนสินค้า มากกว่า STD Packing (จำนวนสินค้า/แพ็ค) ให้แสดง จำนวนตาม STD
                Me.txtQuantity = Qty_Box
       
            End If
           
        End If
       
End If

End Sub

ตอนนี้ออก รายการ และจำนวน Label ถูกต้อง แสดงข้อมูลใน Preview ถูกต้อง
แต่ ติดปัญหาที่ พิมพ์ออกมาได้ เฉพาะแผ่นสุดท้ายเท่านั้น
รบกวนแนะนำด้วยครับ

 

26 ก.ย. 61 , 17:14:59
ตอบกลับ #2

sinawat


 


บอร์ดเรียนรู้ Access สำหรับคนไทย