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

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

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

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