用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()
' 预览报表，本过程使用自定义的 PrintReports 子程序
　　 PrintReports acPreview
　　 End Sub
　　 Private Sub 关闭_Click()
　　 ' 关闭窗体
　　 DoCmd.Close
　　 End Sub

创建主切换面板窗体