ในส่วนของ 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 ถูกต้อง
แต่ ติดปัญหาที่ พิมพ์ออกมาได้ เฉพาะแผ่นสุดท้ายเท่านั้น
รบกวนแนะนำด้วยครับ
