ทำ Report ออกมา 2 ชุดเลยครับ แล้วก็ใส่ Macro ให้พิมพ์ Report 2 ตัว
ก็น่าจะโอเคและครับ

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

DoCmd.OpenReport "Report1",,,,,"1"    ' พิมพ์ชุดแรก
DoCmd.OpenReport "Report1",,,,,"2"    ' พิมพ์ชุดที่สอง
DoCmd.OpenReport "Report1",,,,,"3"    ' พิมพ์ชุดที่สาม

ส่วนใน section ของรายงาน ในส่วนที่พิมพ์คำพูดนั้น ให้เขียนโค้ดลงใน OnFormat ของ section นั้น เช่น ถ้าพิมพ์ใน PageHeader section โค้ดก็จะเป็น

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)

    Select Case Me.OpenArgs
        Case "1"
            Me.Text1 = "ต้นฉบับ"
        Case "2"
            Me.Text1 = "สำหรับสโตร์"
        Case "3"
            Me.Text1 = "สำหรับลูกค้า"
    End Select

End Sub

ขอโทษนะคะ   อยากทราบว่า ถ้าเรา จะใส่ macro ให้พิมพ์ report 2 ตัว ต้องทำอย่างไรคะ

เลือก OpenReport ใน Action ของ macro   แล้วก็ใส่ชื่อตัวรายงานในช่อง Report Name ครับ อยากพิมพ์ 2 รายงานก็ใส่คำสั่ง 2 บรรทัดได้ครับ