共1 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：[求助]导出PDF保存的问题
1楼
2425004926 发表于：2020/10/30 11:08:00两个问题：
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
共1 条记录, 每页显示 10 条, 页签:
[1]