Office中国论坛/Access中国论坛

标题: 上传一个报表生成PDF的例子 [打印本页]

作者: pq318 时间: 2012-3-12 10:07
标题: 上传一个报表生成PDF的例子
如标题，在群里找了很久没有实例，这次有个事例传上，谢谢了，我的最后一个模块做完了，呵呵，可以放开手脚做我的兴趣了！

作者: 轻风 时间: 2012-3-12 11:49
谢谢分享

作者: pq318 时间: 2012-3-12 11:58
呵呵谢谢轻风的捧场

作者: xie62 时间: 2012-3-12 13:40
谢谢分享

作者: 风中漫步 时间: 2012-3-12 13:42
谢谢分享,偶先收藏了

作者: ynjxw 时间: 2012-3-12 13:56
多谢分享。

作者: asklove 时间: 2012-3-12 14:08
收藏了

作者: JosephTan 时间: 2012-3-12 15:43
本帖最后由 JosephTan 于 2012-3-13 00:40 编辑

不是本来就有这个功能吗，还弄什么例子呢
下载来看以后，原来是06年的某人的模块。过时的东西，还好意思拿出来。

作者: roych 时间: 2012-3-12 23:13
和之前王站的例子一样，依然是2282错误，格式不对。看样子莫非该重装PDF阅读器。

作者: pq318 时间: 2012-3-13 08:59
我用的福昕阅读器，没有错误，呵呵

作者: zhao__feng 时间: 2012-3-13 13:25
多谢分享。

作者: pq318 时间: 2012-3-14 15:44
这个例子是人家的，呵呵，有的就勿怪，对了我用的报表是自己设计的，一旦超过一个记录就会有几页报表，但是呢我就需要导出生成第一页的就好，于是导出按钮做了点处理Public Sub Command7_Click()
Dim blRet As Boolean
DoCmd.OpenReport "标签9", acViewReport, , acPages = 1
blRet = ConvertReportToPDF("标签9", vbNullString, "订单.pdf", False, True, 1, "", "", 0, 1)
DoCmd.Close acReport, "标签9"
End Sub
这样就可以实现目的，
其实编程的路上谁都是学习，创新，至于能否超越看自己的了，谢谢大家，

作者: hongyin 时间: 2012-3-14 17:47
多谢分享。

作者: jingyu 时间: 2012-3-16 09:17
太牛啦。。顶

作者: vbstring 时间: 2012-3-23 09:57
谢谢分享

作者: XB2009 时间: 2012-8-21 17:08
{:soso_e163:}

作者: wang1950317 时间: 2012-8-23 08:23

谢谢分享,收藏备用！

作者: wufeng980114 时间: 2012-9-1 12:39
好DD，谢谢分享

作者: c101 时间: 2012-9-3 10:40
谢谢分享

作者: roych 时间: 2014-11-19 16:28

pq318 发表于 2012-3-13 08:59
我用的福昕阅读器，没有错误，呵呵

用Access 2010打开倒是可以用。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)