ใช้วิธีการซ่อน Control ต่างๆ ที่อยู่ในแต่ละ Area ของฟอร์มดูนะครับ  วิธีง่ายๆ ตามด้านล่างนี้ครับ
==================================================
เพิ่มปุ่ม Command เข้าไปในฟอร์ม 4 ปุ่ม
Name:    cmdShowAll  |  cmdShowA1 | cmdShowA2   |  cmdShowA3
Caption:  [Show All]    |   [Show #1]  |  [Show #2]    |   [Show #3]

และที่ Control แต่ตัว เฉพาะใน Area 1, 2 และ 3 ให้ระบายรวบ ทุกๆ Control ใน Area นั้นๆ
     แล้วเปลี่ยน Properties ที่ชื่อว่า tag เป็นตัวเลข 1, 2 และ 3 ตามแต่ละ Area
     ส่วน Control อื่นๆ ที่ต้องพิมพ์ทุกๆครั้ง ไม่ต้องระบุครับ
เมื่อคลิกปุ่มหนึ่งปุ่มใดใน 4 ปุ่ม นี้ จะทำการซ่อน/แสดง Control ตาม Area
หลังจากที่ซ่อนแล้ว สามารถสั่งพิมพ์ฟอร์มได้ต่างต้องการครับ
----------------------------------------------------------------------------------------

Option Compare Database
Option Explicit


Sub ShowForm(Optional ShowArea As Byte = 0)
   'ซ่อน/แสดง Control
   Dim ctl As Control
   Dim ShowMe As Boolean
   
   'ShowArea = 0 is Show All
   
   'ย้ายโฟกัสมาที่ Control ตัวอื่นก่อน กัน Error ขณะซ่อน Control ที่โฟกัสอยู่
   txtDATE.Tag = ""
   txtDATE.SetFocus
   'วนซ่อน Control
   For Each ctl In Me.Controls
        If ShowArea = 0 Or ctl.Tag = "" Or ctl.Tag = ShowArea Then
           'Show All | Show for No Tag | Show for Matching Area
           ctl.Visible = True
        Else
           ctl.Visible = Fase
        End If
       
   Next ctl
   
   'ซ่อนปุ่มคำสั่ง Show ต่างๆ
   cmdShowAll.Visible = False
   cmdShowA1.Visible = False
   cmdShowA2.Visible = False
   cmdShowA3.Visible = False
   '4 ปุ่มนี้ แสดงเมื่อ Form_load หรือ Detail_DblClick
End Sub

Private Sub cmdShowAll_Click()
   ShowForm
End Sub

Private Sub cmdShowA1_Click()
  Call ShowForm(1)
End Sub

Private Sub cmdShowA2_Click()
  Call ShowForm(2)
End Sub

Private Sub cmdShowA3_Click()
  Call ShowForm(3)
End Sub


Private Sub Detail_DblClick(Cancel As Integer)
   'คลิกๆ ที่ว่าง (Form Detail) เพื่อแสดงปุ่มที่ซ่อนไป
   cmdShowAll.Visible = True
   cmdShowA1.Visible = True
   cmdShowA2.Visible = True
   cmdShowA3.Visible = True
End Sub

----------------------------------------------------------------------------------------


ลองปรับใช้ดูนะครับ
ูู๋^J^

ถ้าอยาก ระบุพิกัดเอง ผมจำได้ว่าเคยใช้ในลักษณะนี้

DoCmd.MoveSize {Right}, {Down}, {Width}, {Height}
ที่ Form_Open() หรือ ..

โดย..
{Right}    ระยะห่างจากขอบซ้ายไปทางขวา  |  ไม่ระบุค่า คือ ตามค่าที่คุณ PNR แนะนำไว้
{Down}   ระยะห่างจากขอบบนไปด้านล่าง    |  ไม่ระบุค่า คือ ตามค่าที่คุณ PNR แนะนำไว้
{Width}   ความกว้่างของฟอร์ม                |  ไม่ระบุค่า คือ ตามความกว้างของฟอร์ม
{Height}  ความสูงของฟอร์ม                   |  ไม่ระบุค่า คือ ตามความสูงของฟอร์ม

ผมเคยใช้ๆ อยู่แบบนี้ครับ
ใช้กล่องข้อความ กำหนดให้มีขนาดเท่าความกว้างของส่วน Detail
ใช้ Font เป็น Webdings และขนาดใหญ่หน่อย เช่น 36 Point
จะได้เต็มบรรทัด และระบุสีอักษรตามต้องการ
และที่ค่าใน Control Source ในป้อนคำสั่ง IFตามเงื่อนไขที่ต้องการ
เช่น  =IIf([IDNO] Mod 2=0,"","gggggggggggg")
หมายถึง ถ้าเลข IDNO เป็นเลขคู่ ให้เป็นค่าว่างๆ หากเป็นเลขคี่
ให้่ได้ค่า gggggggggggg ซึ่งอักษร "g" ใน Webdings คือค่า




ลองดูนะครับ
ู๋^J^