ผมใช้คำสั่งซ่อนตามนั้นแล้วทำปุ่ม Preview จะเรียกเฉพาะชุดคำสั่งปริ้นมาแสดงครับ
Private Sub Cmd_View_Click()
On Error GoTo Err_Cmd_View_Click
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