VB中打印ACCESS报表

2016-01-29 13:21 105 1 收藏

VB中打印ACCESS报表,VB中打印ACCESS报表

【 tulaoshi.com - ASP.NET 】

Dim acc As Object
Set acc = CreateObject("Access.Application")
If Right$(Trim$(App.Path), 1) = "" Then
acc.OpenCurrentDatabase App.Path & "data.mdb"
'打开数据库
Else
acc.OpenCurrentDatabase App.Path & "data.mdb"
End If
acc.docmd.OpenReport "打印准考证" ', acPreview
打印报表“打印准考证”
acc.Quit
Set acc = Nothing使用ACCESS报表主要缺点就是不能预览

来源:https://www.tulaoshi.com/n/20160129/1489872.html

上一篇： PHP程序员的优化调试技术和技巧
下一篇：针对配置文件操作 PHP最常用的四个ini函数

看过《VB中打印ACCESS报表》的人还看了以下文章更多>>

Access如何制作复杂报表——利用Excel输出复杂报表

标签：编程语言网络编程

如何制作复杂报表——利用excel输出复杂报表在读这篇文章以前首先要提醒大家，Access 本身的报表也具有很强的实用性和强大的功能，只有当你发掘了其本身全部的功能却仍不能满足你对报表的特殊要求时才请使用 Excel 输出报表。很明显，使用 Excel 输出报表第一个弱点就是必须同时打开 Access 和 Excel （当然，你得在...

调用Access数据库的报表

标签：编程语言网络编程

以下是引用片段： Dim db As ADODB.Connection Dim i As Integer '用来标记前一个控件的编号 Dim ii As Integer '用来标记目前控件的标号 Dim path As String Set db = New ADODB.Connection db.CursorLocation = adUseClient '设置游标引擎的位置为客户游标。 &...

在vb中动态加载水晶报表rpt文件的方法

这个问题在很多论坛里边都有问到。但是一直没找到满意的答案。下边写出一个解决办法 Dim sql As String Dim rstLiuShui As New ADODB.Recordset Dim Rpt As New CRAXDDRT.Report Dim PrintApp As New CRAXDDRT.Application If Option2.Value = True Then sql = "select * from n_ihbill where datediff(d,日期,'" & Format(DTPicker1.V...

在Access报表中每隔N行显示一条粗线

标签：编程语言网络编程

问题： 1.如何在报表中每隔N行显示一条粗线 2.如何为报表增加一个行号列？回答： ◆1、在设计模式里打开该报表，在报表主体里面加一个TextBox，把Name属性改为InputID。 ◆2、把InputID的控件

Access中以文字方式保存文件名的图片如何在报表中预览？

标签：编程语言网络编程

以文字方式保存文件名的图片如何在报表中预览？问题：报表中如何预览图片？数据库表中存放着下面几个字段，学号，姓名，性别，图片路径，如下：1002003001，张三，男，10020031002003001.jpg。现在做报表，想把图片显示出来，因为图片路径为字符类型，所以显示出来的是10020031002003001.jpg，怎样做能把图片显示出来？图片就在数据库所...

查看更多精彩>>