- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 项目发布 (http://www.foxtable.com/bbs/list.asp?boardid=5)
---- [求助]导出PDF保存的问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=5&id=157831)
-- 发布时间：2020/10/30 11:08:00
-- [求助]导出PDF保存的问题
两个问题：
1.标题和目录框中间的距离好长呀
2.多次导出时如何设置一下本地电脑里的某个文件夹
Dim dlg As New FolderBrowserDialog \'保存目录
\'dlg.Filter = "PDF文件|*.pdf"If dlg.ShowDialog = DialogResult.Ok Then
Dim t As Integer
For t = 1 To 1000
If FileSys.FileExists(dlg.SelectedPath & "\\照片目录" & t & ".pdf") Then
Continue For
Else
Dim fl As String = dlg.SelectedPath & "\\照片目录" & t & ".pdf"
doc.SavePDF(fl) \'保存为PDF文件
Dim Proc As New Process \'打开PDF文件
Proc.File = fl
Proc.Start()
Exit For
End If
Next
此主题相关图片如下：1604026577(1).png