怎样写这个打印代码？

不见高手们赐教，自己又不大会用代码，只好找高手的代码套用了。

虽然看不太明白，好像也能解决问题。代码如下（还请高手指点）：

Private Sub 打印客户信息卡_Click()
On Error GoTo Err_打印客户信息卡_Click
        Dim stDocName As String
        stDocName = "102客户"
        DoCmd.OpenReport stDocName, , , "自动编号=" & Me![子窗体]![自动编号]
Exit_打印客户信息卡_Click:
    Exit Sub

Err_打印客户信息卡_Click:
    MsgBox "您确认要取消打印吗？", vbOKOnly, "提示"
    Resume Exit_打印客户信息卡_Click
End Sub