Private Sub ReportFooter_Format(Cancel As Integer, FormatCount As Integer)
If Me.TR2 = "" Or IsNull(Me.TR2) Then
Me.T21.Visible = False
Me.T22.Visible = False
Me.T23.Visible = False

Me.T31.Visible = False
Me.T32.Visible = False
Me.t33.Visible = False

Me.T11.Left = Me.T11.Left + 1500
Me.T12.Left = Me.T12.Left + 1500
Me.T13.Left = Me.T13.Left + 1500
End If
End sub

ตรง
Me.T11.Left = Me.T11.Left + 1500
Me.T12.Left = Me.T12.Left + 1500
Me.T13.Left = Me.T13.Left + 1500

ผม preview แล้วมันได้อย่างต้องการ แต่เมื่อ print จริง
เหมือนมันบวกเลื่อนเพิ่มอีกประมาณ 1000   ผมนึกไม่ออกว่า
มันน่าจะเกี่ยวข้องกับอะไรอีก ทำไมมันไม่เหมือนหน้าจอที่ต้องการ
รบกวนด้วยครับ