[求助]WIN10下PrintDoc.SavePDF无法用？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]WIN10下PrintDoc.SavePDF无法用？

共有3155人关注过本帖树形打印复制链接主题：[求助]WIN10下PrintDoc.SavePDF无法用？

HappyFt

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：八尾狐帖子：1930 积分：17558 威望：0 精华：0 注册：2014/7/29 19:09:00

Post By：2017/9/27 21:19:00 [显示全部帖子]

此主题相关图片如下：print.jpg

'---选择打印方式

If prt_method = "Preview" Then

Doc.Preview() '预览报表

ElseIf prt_method = "Print" Then

Doc.Print()

ElseIf prt_method = "Pdf" Then

'---输出为pdf

doc.SavePDF( "D:\print.pdf") '保存为PDF文件

Dim Proc As New Process '打开PDF文件

Proc.File = "D:\print.pdf"

Proc.Start()

End If

我的win10是存在C盘会出现上面的错误,如果改成D盘下面就没有问题

HappyFt

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：八尾狐帖子：1930 积分：17558 威望：0 精华：0 注册：2014/7/29 19:09:00

Post By：2017/9/28 19:31:00 [显示全部帖子]

应该是权限的问题,改用doc.SavePDF("c:\A\test.pdf")可以,此时如果将A下面的文件复制到C:\下会提示

此主题相关图片如下：print2.jpg

要人为点下继续才可以复制,所以用代码直接存在C就直接被拦截掉了,

设置一下win10直接写入c盘的权限应该就可以

主题：[求助]WIN10下PrintDoc.SavePDF无法用？