1. ในส่วนของ รายงาน พื้นที่ Page Footer ให้สร้าง Text Box ขึ้นมา 1 และใส่ค่าที่ Property > Data > Control Source: =[Pages]
ชื่ออะไรก็ได้ ขอให้มี ถ้ามี Text Box ลักษณะนี้อยู่แล้วก็ไม่ต้องสร้าง และถ้าไม่อยากให้เห็นก็กำหนด Property > Format > Visible: No

2. โค๊ดที่คุณจะสั่งพิมพ์ (สมมุติรายงานชื่อ Report1)
- พิมพ์หน้าสุดท้ายอย่างเดียว
    DoCmd.OpenReport "Report1", acViewPreview, , , acHidden
    DoCmd.SelectObject acReport, "Report1", False
    DoCmd.PrintOut acPages, Reports!Report1.[Pages], Reports!Report1.[Pages]
    DoCmd.Close acReport, "Report1"

- เปิดรายงานหน้าสุดท้ายอย่างเดียว
    DoCmd.OpenReport "Report1", acViewPreview
    SendKeys "{End}", True

- เปิดรายงานหน้าสุดท้ายพร้อมพิมพ์หน้าสุดท้าย
    DoCmd.OpenReport "Report1", acViewPreview
    DoCmd.SelectObject acReport, "Report1", False
    DoCmd.PrintOut acPages, Reports!Report1.[Pages], Reports!Report1.[Pages]
    SendKeys "{End}", True

ประมาณนี้ครับ ปรับใช้ดู

ขอบคุณครับท่าน