Private Sub 打印_Click()
On Error GoTo Err_打印_Click
Dim stDocName As String
stDocName = ChrW(25104) & ChrW(26412) & ChrW(25253) & ChrW(-30616)
DoCmd.OpenReport stDocName, acNormal
Exit_打印_Click:
Exit Sub
Err_打印_Click:
MsgBox Err.Description
Resume Exit_打印_Click
End Sub