ทำไม code นี้ไม่ได้ผล

[UnKnown]

คุณ kChantra Original post

พอกดสั่งพิมพ์ในฟอร์มต้องการให้พิมพ์ออกมาทางเครื่องพิมพ์เลย จึงเขียนโค๊ตดังนี้ แต่ทำไม ไม่เป็นผลตามที่ต้องการครับ
Private Sub Report_Page()
    If Me.is_addressForDoc = -1 Then
        Me.AD1.Visible = True
        Me.AD1 = "P"
        Me.AD2.Visible = False
        ElseIf Me.is_addressForDoc = 0 Then
        Me.AD1.Visible = False
        Me.AD2.Visible = True
        Me.AD2 = "P"
    End If
End Sub

[PookPuy]

ผมทำเป็นสั่งปริ้นจากรีพอร์ตครับ

โค๊ด: [Select]

Private Sub Print_Click()
On Error GoTo Err_Print_Click

    Dim stDocName As String

    stDocName = "R_Bill"  'ชื่อรีพอร์ต
    DoCmd.OpenReport stDocName, acNormal

Exit_Print_Click:
    Exit Sub

Err_Print_Click:
    MsgBox Err.Description
    Resume Exit_Print_Click

End Sub