主题：[求助]按字段 牌号 尺寸 长度保存为PDF文件名

 回复1楼，理解不了你的意思，你的牌号，尺寸等，来自于哪里？Table表的当前行？

 

 

 Dim fl As String = ProjectPath & "Reports\质量证明书新版" & Tables("表A").Current("牌号") & ".xls"

再有，可以直接保存为pdf了

 

http://www.foxtable.com/help/topics/2930.htm

 

 

看2楼。

就是这样啊，自己看2、3楼，处理一下

Dim Book As New XLS.Book(ProjectPath & "Attachments\质量证明书新版.xls")
Dim fl As String = ProjectPath & "Reports\质量证明书新版" & Tables("质量证明书").Current("尺寸") & Tables("质量证明书").Current("牌号") & Tables("质量证明书").Current("长度") & ".pdf"
Book.Build() '生成细节区
Book.SaveToPDF(fl) '保存为PDF文件
Dim Proc As New Process '打开PDF文件
Proc.File = fl
Proc.Start()

 

为什么不能指定文件夹？直接修改保存的文件名或者路径即可。

Dim Book As New XLS.Book(ProjectPath & "Attachments\质量证明书新版.xls")
Dim fl As String = ProjectPath & "Reports\质量证明书" & Tables("质量证明书").Current("尺寸") & Tables("质量证明书").Current("牌号") & Tables("质量证明书").Current("长度") & ".PDF"
Book.Build() '生成细节区
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "PDF文件|*.PDF" '设置筛选器
dlg.FileName = fl
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Book.SaveToPDF(dlg.FileName) '保存为PDF文件
   
    Dim Proc As New Process '打开PDF文件
    Proc.File = fl
    Proc.Start()
End If