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

延伸阅读
如何制作复杂报表——利用excel输出复杂报表     在读这篇文章以前首先要提醒大家,Access 本身的报表也具有很强的实用性和强大的功能,只有当你发掘了其本身全部的功能却仍不能满足你对报表的特殊要求时才请使用 Excel 输出报表。很明显,使用 Excel 输出报表第一个弱点就是必须同时打开 Access 和 Excel (当然,你得在...
以下是引用片段: 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 '设置游标引擎的位置为客户游标。  &...
这个问题在很多论坛里边都有问到。但是一直没找到满意的答案。下边写出一个解决办法 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...
问题: 1.如何在报表中每隔N行显示一条粗线 2.如何为报表增加一个行号列? 回答: ◆1、在设计模式里打开该报表,在报表主体里面加一个TextBox,把Name属性改为InputID。 ◆2、把InputID的控件
标签: Web开发
最近做的一个B/S项目,在打印时采用了在IE中嵌入.net winform控件和XML结合的方式(参见http://www.yesky.com/20030214/1652186.shtml),在实际应用过程中,有一些心得,和大家分享。 (一).使用通用模版格式化XML文件 系统中共用到了三种单据,分别为出库单,入库单,送货单,因此,定义三个模版文件,格式如下: chukudan....

经验教程

576

收藏

25
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部