หลายๆ ท่านอาจจะมีตัวอย่างให้ดูเลยก็ได้ครับ แต่กลัวไม่ตรง
ต้องขอข้อมูลเพิ่มเติมก่อนครับ ว่าคุณจะปริ๊นท์ออกอย่างไร
- ปริ๊นท์ออกกระดาษสติ๊กเกอร์ขนาด A4 แล้วไปใช้เครื่องตัด หรือคัตเตอร์ตัดแยกชิ้นเอาเอง
- ปริ๊นท์ออกเครื่องปริ๊นท์สติกเกอร์โดยตรง (เครื่องรุ่นไหน ยี่ห้ออะไร ปริ๊นท์ออกเป็นชิ้นต่อเนื่องกันเล็กๆ ที่ละคอลัมน์เลย หรือปริ์นท์ออกที่ละ 2 คอลัมน์)

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

ถ้าได้ความว่า ปริ๊นท์ออกเครื่องพิมพ์สติ๊กเกอร์โดยตรง อาจต้องรอผู้รู้ท่านอื่นๆ ที่มีประสบการณ์ในการใช้เครื่องครับ จะตรงประเด็นกว่า

สวัสดีค่ะอาจารย์yeadram
คือตอนนี้ยังเขียนด้วยมืออยู่ค่ะ
ใช้เลเบลสำเร็จรูปขนาดA12 มี 2 แถว ๆละ6 เลเบล
คิดว่าจะใช้ printer epson cx5500 เพราะมีอยู่แล้ว
ใช้วิซาร์ดช่วยสร้าง แต่มันออกให้เลเบลเดียว จะทำให้มันออกหลายๆอันทำอย่างไรคะ
แล้วจะให้สั่งพ??มพ์เลเบลจากฟอร์มใบสั่งซื้อเลย จะทำได้ไหมคะ

ที่คุณสงสัยทั้งหมด Access ทำได้อยู่แล้วครับ แต่มองดูแล้ว มีหลายระบบงาน
โจทย์นั้นไม่ยากและไม่ง่ายเกินไป ลองค่อยๆทำไปครับ สำหรับการออกหลายๆ Labelคงต้องเขียน CODE มา เหมือน Input box ว่าจะเอากี่ copy แล้วเราค่อยเติมค่าที่ต้องการอีกที เป็นต้น

ตัวอย่าง
DoCmd.PrintOut acPrintAll, , , acHigh, InputBox("กี่ชุด", , 1), True

ขอขอบคุณคุณKrathok-manมากค่ะที่เข้ามาช่วยตอบ ก็คงจะต้องค่อยๆทำไปอย่างว่าแหละค่ะ
แล้วคุณKrathok-man พอจะช่วยดูตรงโค้ดย่อราคาได้ไหมคะ ว่าจะทำอย่างไร

หมายถึงคุณจะแปลงตัวเลขราคาเป็น Code ย่อใช่ไหมครับ
เช่นรู้ว่าราคา 100/200 แต่ต้องแปลงเป็นตัวอักษรเพื่อสร้าง Label ใช่ไหมครับ
ถ้าเป็นอย่างนี้ให้เขียน Function เองครับ

Function Conv2Str(n As Double) As String
Dim i As Integer
Dim j As String
Dim strConv As String
n = Trim(Str(n))
For i = 1 To Len(Trim(Str(n)))
       j = Mid(n, i, 1)
        Select Case j
               Case 1
                         strConv = strConv & "K"
               Case 2
                         strConv = strConv & "W"
               Case 3
                         strConv = strConv & "N"
               Case 4
                         strConv = strConv & "A"
               Case 5
                         strConv = strConv & "P"
               Case 6
                         strConv = strConv & "S"
               Case 7
                         strConv = strConv & "M"
               Case 8
                         strConv = strConv & "B"
               Case 9
                         strConv = strConv & "Z"
               Case 0
                         strConv = strConv & "V"
        End Select
Next
Conv2Str = strConv
End Function

ลองปรับใช้ดูครับ

ขอขอบคุณ คุณditasilk มากเลยค่ะที่เข้ามาช่วยตอบให้ เดี๊ยวจะลองเอาไปปรับใช้ดู ได้ผลอย่างไรจะแจ้งให้ทราบนะคะ
ขอบคุณอีกครั้งค่ะ