主题：PrintDoc保存为pdf发生错误时，进度框如何关闭？

    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