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

表为“质量证明书” 按字段 牌号 尺寸 长度保存为文件名帮改下代码。如：20HRB40012米 。谢谢！

Dim Book As New XLS.Book(ProjectPath & "Attachments\质量证明书新版.xls")
Dim fl As String = ProjectPath & "Reports\质量证明书新版.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿

Dim flt1,flt2 As String
flt1 = fl
flt2 = ProjectPath & "Reports\质量证明书新版.pdf"

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(flt1)
wb.ExportAsFixedFormat(MSExcel.XlFixedFormatType.xlTypePDF, flt2)
App.Quit

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

文件保存成功了，但提示

.NET Framework 版本：2.0.50727.3053
Foxtable 版本：2014.8.24.1
错误所在事件：
详细错误信息：
系统找不到指定的文件。
不能自动打开文件

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" '设置筛选器

Book.SaveToPDF(dlg.FileName,fl) '保存为PDF文件
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    MessageBox.Show("你要保存为:" & dlg.FileName,"提示") '提示用户选择的文件
End If

Dim Proc As New Process '打开PDF文件
Proc.File = fl
Proc.Start()

请问保存时如何设置筛选器？

顶

Dim Book As New XLS.Book(ProjectPath & "Attachments\质量证明书新版.xls")
Dim fl As String = 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 = dlg.FileName
    Proc.Start()
End If

楼上的代码保存后打不开文件，改下代码可以了