Access轻松打印带相片的证件

　　1. 创建“打印预览面板”，依次放置一个用于查询的文本框，并命名为“inputname”；两个命令按钮“预览”、“关闭”。

　　2. 依次点击菜单栏“视图→代码”命令，进入VBA代码编写窗口，编写如下代码：

　　Public stuname As String '定义全局变量stuname

　　Sub PrintReports(PrintMode As Integer)

　　' 创建打印预览子程序

　　Dim strWhereCategory As String

　　If stuname <> Empty Then

　　 strWhereCategory = "姓名= '" + stuname + "'"

　　End If

　　DoCmd.OpenReport "证书信息", PrintMode, , strWhereCategory

　　DoCmd.Close acForm, "打印预览面板"

　　End Sub

　　Private Sub inputname_Change()

　　' 将文本框输入的字符赋给全局变量sname，用于给打印预览限定条件

　　stuname = inputname.Text

　　End Sub

　　Private Sub 预览_Click()

上一页  [1] [2] [3] 下一页