上传一个报表生成PDF的例子

zhao__feng

多谢分享。

pq318

这个例子是人家的，呵呵，有的就勿怪，对了我用的报表是自己设计的，一旦超过一个记录就会有几页报表，但是呢我就需要导出生成第一页的就好，于是导出按钮做了点处理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

多谢分享。

jingyu

太牛啦。。顶

vbstring

谢谢分享

wang1950317

谢谢分享,收藏备用！

XB2009

{:soso_e163:}

wufeng980114

好DD，谢谢分享

c101

谢谢分享

roych

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

用Access 2010打开倒是可以用。