以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  PrintDoc保存为pdf发生错误时,进度框如何关闭?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=185655)

--  作者:xluoping
--  发布时间:2023/3/8 12:46:00
--  PrintDoc保存为pdf发生错误时,进度框如何关闭?
Dim doc As New PrintDoc() \'定义一个报表
.........
..........
...........
    Dim fl As String = file & "样品二维码000" & ".pdf"
    Try
        doc.SavePDF(fl) \'保存为PDF文件
        Dim Proc As New Process \'打开PDF文件
        Proc.File = file
        Proc.Start()
        Proc.File = fl
        Proc.Start()
        PopMessage("请选择40×30mm的标签纸打印,个别打印机需自定义40×30.5mm标签纸!","提示", PopIconEnum.OK,8)
    Catch ex As Exception
        MessageBox.Show("文件已经被其它程序打开,无法保存!","提示",MessageBoxButtons.OK)
    End Try

发生错误时,生成进度...正在保存 关不掉

--  作者:有点蓝
--  发布时间:2023/3/8 13:19:00
--  
先关闭弹出的MessageBox
--  作者:xluoping
--  发布时间:2023/3/8 13:36:00
--  
关闭了MessageBox,但生成进度...正在保存 没有控制按钮 关不掉
--  作者:有点蓝
--  发布时间:2023/3/8 13:39:00
--  
这个没有办法。出什么错,提示什么错误?
--  作者:xluoping
--  发布时间:2023/3/8 13:59:00
--  
 Dim fl As String = file & "样品二维码000" & ".pdf"

前面已生成过 fl ,打开未关闭,就报错

--  作者:有点蓝
--  发布时间:2023/3/8 14:07:00
--  
试试:http://www.foxtable.com/webhelp/topics/2126.htm
或者