vsprint打印实例

vsprint打印实例(10)     con.Close
    Set rst = Nothing
    Set con = Nothing
    Exit Sub
err1:
    MsgBox Err.Description, vbOKOnly + vbInformation, "提示"
End Sub