Office中国论坛/Access中国论坛

标题: 打印成PDF想要文件名跟着数据表的两个内容走，求代码 [打印本页]

作者: 若离ヘ不弃° 时间: 2013-1-24 09:09
标题: 打印成PDF想要文件名跟着数据表的两个内容走，求代码
用表做成的窗体，里面有一项合同号和一项尺寸，希望用“-”连接这两个做文件名打印成PDF（一次一条记录，打印当前选中的记录），代码要怎么写啊

作者: admin 时间: 2013-1-24 10:42
docmd.openreport rs("合同号") & rs("尺寸")
导出PDF,找论坛中的实例

作者: 若离ヘ不弃° 时间: 2013-1-24 13:34

admin 发表于 2013-1-24 10:42
docmd.openreport rs("合同号") & rs("尺寸")
导出PDF,找论坛中的实例

试过了这个不行的，论坛中的列子也没有合适的

作者: huangli0356 时间: 2013-1-24 13:54
又或者你想要的什么结果扣个图上来说明一下更合适些..让大家光看文字猜结果有些难度..

作者: 若离ヘ不弃° 时间: 2013-1-24 15:03

huangli0356 发表于 2013-1-24 13:54
又或者你想要的什么结果扣个图上来说明一下更合适些..让大家光看文字猜结果有些难度..

[attach]51193[/attach][attach]51194[/attach][attach]51195[/attach]
DoCmd.OutputTo acForm, "表1", , "", False, "", 0
希望那边跳出来的表的名字是【名称】里的内容，S.3.03……这样
试过DoCmd.OutputTo acForm, "表1", , "&[名称]&", False, "", 0
类似这样的但是不行，我是逐个导出的，选择选中内容打印，跟内置打印选项差不多。

作者: yanwei82123300 时间: 2013-1-24 16:48
本帖最后由 yanwei82123300 于 2013-1-24 16:49 编辑

Private Sub Command56_Click()
On Error GoTo Err_Command56_Click
Dim blRet As Boolean
Me.Refresh
Me.Requery

' Call our convert function
' Please note the last param signals whether to perform
' font embedding or not. I have turned font embedding ON for this example.
blRet = ConvertReportToPDF(Me.lstRptName, vbNullString, _
[Forms]![frmtransforPDFNEW]![MO].Value & ".pdf", False, True, 0, "", "", 0, 0) '导出，打印预览就会有文件名，与窗体匹配
Me.Refresh
Me.Requery
'DoCmd.Minimize
DoCmd.OpenReport "rptMOheaderandDetailNEW", acViewPreview, "", "", acNormal
DoCmd.Close acReport, "rptMOheaderandDetailNEW"
Me.Refresh
Me.Requery

Exit_Command56_Click:
Exit Sub

Err_Command56_Click:
MsgBox Err.Description

Resume Exit_Command56_Click
End Sub

作者: 笑嘻嘻哦 时间: 2013-1-24 20:42
问题是我也不知道代码啊

作者: 若离ヘ不弃° 时间: 2013-1-25 16:11

yanwei82123300 发表于 2013-1-24 16:48
Private Sub Command56_Click()
On Error GoTo Err_Command56_Click
Dim blRet As Boolean

能不能给个例子啊，我代码用过去测试不成功

作者: yanwei82123300 时间: 2013-1-25 19:13
你搜索站长的转换PDF例子，或者搜索我的帮助就能够找到例子

作者: 若离ヘ不弃° 时间: 2013-1-26 09:25

yanwei82123300 发表于 2013-1-25 19:13
你搜索站长的转换PDF例子，或者搜索我的帮助就能够找到例子

多谢，问题解决了

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