พิมพ์สติ๊กเกอร์ตามจำนวนแผ่น ตามจำนวนใน Query

[nawahovvp]

จากคำสั่ง Dim prtDufault As Printer
    DoCmd.SelectObject acReport, "Rpt_Product", True
    DoCmd.PrintOut , , , , จำนวนใน Quety
End Sub
อยากให้พิมพ์จำนวนแผ่นสติ๊กเกอร์ ตามจำนวน Query  โดยพิมพ์เรียงทีละ code
ไม่ทราบจะเขียนคำสั่งอย่างไรได้บ้างครับ

Query
Code   Product   Qty
1   โค๊ก   50
2   แปปซี่   60
4   แฟนต้า   70
5   สไปร์ท   50

[OddyWriter]

ไฟล์ตัวอย่างครับ

[nawahovvp]

ได้แล้วครับขอบคุณมากครับ