VB中打印ACCESS报表

2016-01-29 13:21 112 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报表主要缺点就是不能预览

来源:http://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的控件

利用XML实现通用WEB报表打印实际使用中的例子

标签： Web开发

最近做的一个B/S项目，在打印时采用了在IE中嵌入.net winform控件和XML结合的方式（参见http://www.yesky.com/20030214/1652186.shtml），在实际应用过程中，有一些心得，和大家分享。（一）.使用通用模版格式化XML文件系统中共用到了三种单据，分别为出库单，入库单，送货单，因此，定义三个模版文件，格式如下： chukudan....

查看更多精彩>>