WEB开发网
开发学院数据库Access 用Access打印带相片证件 阅读

用Access打印带相片证件

 2005-10-31 12:40:15 来源:WEB开发网   
核心提示: 2. 依次点击菜单栏“视图→代码”命令,进入VBA代码编写窗口,用Access打印带相片证件(2),编写如下代码:Public stuname As String '定义全局变量stunameSub PrintReports(PrintMode As Integer)' 创建打印预览子程序Dim st

  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



  创建主切换面板窗体

  1. 创建“主切换面板”,放置三个命令按钮“打印学生证书”、“返回数据窗口”、“退出管理系统”。

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

Private Sub 打印学生证书_Click()

  Dim strFormName As String

  strFormName="打印预览面板"

  ' 打开打印预览面板

  DoCmd.OpenForm strFormName, , , , , acDialog

End Sub

Private Sub 关闭当前窗口_Click()

  Dim strDocName As String

  strDocName = "证书信息"

  ' 关闭“主切换面板”窗体。

  DoCmd.Close

  ' 设置焦点到数据库窗口;选择“证书信息”表。

  DoCmd.SelectObject acTable, strDocName, True

End Sub

Private Sub 退出管理系统_Click()

  ' 退出 Microsoft Access.

  DoCmd.Quit

End Sub



  设置启动时显示主切换面板

  依次点击菜单栏“工具→启动”命令,打开“启动”设置窗口,在“显示窗体→页”选项下选择主切换面板,并取消“显示数据库窗口”,这样在下一次打开此Access数据库时,就会自动显示主切换面板窗体。读者也可根据自己的需要决定是否取消菜单栏和快捷菜单栏,如果取消以后又要显示它们,可以在打开Access数据库时按住Shift键。

  至此,技能证书打印系统开发完毕。本系统在Windows 2000 Server SP4、Microsoft Office Access 2003下调试通过。

上一页  1 2 

Tags:Access 打印 相片

编辑录入:coldstar [复制链接] [打 印]
赞助商链接