1. เพิ่ม field ขึ้น สมมติชื่อฟิลด์ว่า switch ตั้งค่า default = 0
2. ที่เหตุการณ์ OnClick ของปุ่ม Print เขียน Code ดังนี้

Private Sub CmdPrint_Click()
If Msgbox("คุณต้องการพิมพ์ออกทางเครื่องพิมพ์ หรือไม่?",vbQuestion+vbYesNo)=vbYes Then
DoCmd.OpenReport "Report_Name", acViewNormal
switch = -1
Else
DoCmd.OpenReport "Report_Name",acViewPreview
End Sub

...ลองประยุกต์ใช้ดูครับ

ทำได้แล้วครับ ขอขอบคุณคุณ BADMan มากครับ
ผมแนบตัวอย่างที่ทำเสร็จแล้วมาแบ่งปันกันครับ