主题：word excel转pdf 之后在项目开发机器上可以正常阅读打开并显示 在客户端或别的电脑上就不能正常打开与显示了……

word excel转pdf 之后在项目开发机器上可以正常阅读打开并显示   在客户端或别的电脑上就不能正常打开与显示了……

 根据项目需要，不允许word或excel文件被修改，需要在上传的时候就直接转化成pdf

转换后的pdf  在客户端上安装了pdf11.0.23  office2007  wps2019  win10 专业版64位下  出现无法正常打开与显示

代码如下：

If Values(1).Contains("doc") Or  Values(1).Contains("docx")  Then
                fl2 = ProjectPath & "上传文件\" &  Values(0) & ".pdf"
               
                Dim app As New MSWord.Application
                try
                    Dim doc = app.Documents.Open(fl)
                    doc.ExportAsFixedFormat(fl2, MSWord.WdExportFormat.wdExportFormatPDF)
                    doc.saved = True
                    app.Quit
                catch ex As exception
                    msgbox(ex.message)
                    app.Quit
                End try
            Else  If Values(1).Contains("xls") Or Values(1).Contains("xlsx") Then
                fl2  = ProjectPath & "上传文件\" &  Values(0) & ".pdf"
               
                Dim App As New MSExcel.Application
                try
                    Dim Wb2 As MSExcel.WorkBook = App.WorkBooks.Open(fl)
                    wb2.Saved = True
                    wb2.ExportAsFixedFormat(MSExcel.XlFixedFormatType.xlTypePDF,fl2, MsExcel.XlFixedFormatQuality.xlQualityStandard, False, False,  System.Reflection.Missing.Value,  System.Reflection.Missing.Value, False,  System.Reflection.Missing.Value)
                    app.quit
                catch ex As exception
                    app.quit
                End try
            Else  If Values(1).Contains("bmp")  Or Values(1).Contains("jpg") Or Values(1).Contains("gif") Or Values(1).Contains("png") Or Values(1).Contains("pdf") Then
                fl2  = fl
            End If
            r("文件名") = FileSys.GetName(fl2) '写入文件名
            r.Save '必须先保存
            r.DataRow.SQLInsertFile("附件",fl2) '插入文件
            r.DataRow.SQLSetValue("CRC值", CRCCheckFile(fl2)) '保存crc检验值

直接pdf文件可以正常打开的