打印成PDF想要文件名跟着数据表的两个内容走，求代码

若离ヘ不弃°

用表做成的窗体，里面有一项合同号和一项尺寸，希望用“-”连接这两个做文件名打印成PDF（一次一条记录，打印当前选中的记录），代码要怎么写啊

admin

docmd.openreport rs("合同号") & rs("尺寸")
导出PDF,找论坛中的实例

若离ヘ不弃°

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

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

huangli0356

又或者你想要的什么结果扣个图上来说明一下更合适些..让大家光看文字猜结果有些难度..

若离ヘ不弃°

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

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

yanwei82123300

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

笑嘻嘻哦

问题是我也不知道代码啊

若离ヘ不弃°

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

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

yanwei82123300

你搜索站长的转换PDF例子，或者搜索我的帮助就能够找到例子

若离ヘ不弃°

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

多谢，问题解决了