สวัสดีครับ

ผมได้ออกแบบโปรแกรมสำหรับปริ้นบิลเงินสดมาและทำปุ่มคำสั่งสำหรับพิมพ์ใว้ด้วยกัน ดังนี้
1.ปุ่มคำสังตัวอย่างก่อนพิมพ์
Private Sub Cmd_View_Click()
On Error GoTo Err_Cmd_View_Click
    T_total.Value = T_total_au.Value
    T_total_text.Value = T_BAHTTEXT_auto.Value
    DoCmd.RunCommand acCmdSaveRecord
    Dim stDocName As String
    stDocName = "R_Bill"
    DoCmd.OpenReport stDocName, acPreview

Exit_Cmd_View_Click:
    Exit Sub

Err_Cmd_View_Click:
    MsgBox Err.Description
    Resume Exit_Cmd_View_Click

End Sub

2.ปุ่มคำสั่งพิมพ์
Private Sub Print_Click()
On Error GoTo Err_Print_Click
    T_total.Value = T_total_au.Value
    T_total_text.Value = T_BAHTTEXT_auto.Value
    DoCmd.RunCommand acCmdSaveRecord
    Dim stDocName As String
    stDocName = "R_Bill"
    DoCmd.OpenReport stDocName, acNormal

Exit_Print_Click:
    Exit Sub

Err_Print_Click:
    MsgBox Err.Description
    Resume Exit_Print_Click

End Sub

ทั้งสองปุ่มจะดึงฟอร์มเดี่ยวกันคือ "R_Bill" ตามที่ต้องการ
-ปุ่มคำสั่งพิมพ์- กดแล้วพิมพ์ออกมาทันที่ไม่มีปัญหา
-แต่ปุ่มคำสังตัวอย่างก่อนพิมพ์ จะแสดงแค่บนหน้าจอตาม "R_Bill" เท่านั้น ที่ปริ้นออกมากลับเป็นหน้าต่างของฟอร์มก่อนกดปุ่ม
(สั่งปริ้นจากรูปเคลื่องปริ้นในหน้าตัวอย่างก่อนพิมพ์เลย)

มีวิธีแก้ไขให้สั่งพิมพ์จากหน้าแสดงตัวอย่าง ให้ตาม "R_Bill" ที่ออกแบบใว้ใหมครับ