- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 为什么不能在WebBrowser显示，而且不能生成PDF文件 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=140041)
-- 发布时间：2019/8/28 12:26:00
-- 为什么不能在WebBrowser显示，而且不能生成PDF文件
此主题相关图片如下：问题.jpg
此主题相关图片如下：无法显示.jpg
不知道为什么不能显示，PDF也无法生成
xls文件生成没有问题
代码如下：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:wt1.txt |
-- 发布时间：2019/8/28 14:00:00
--
试试
Dim App1 As New MSExcel.Application
try
Dim Wb1 As MSExcel.WorkBook = App1.WorkBooks.Open(rpt)
Dim Wb2 As MSExcel.WorkBook = App1.WorkBooks.Open(rpt2)
Dim Ws1 As MSExcel.WorkSheet = Wb1.WorkSheets(1) \'指定要复制的工作表
Dim Ws2 As MSExcel.WorkSheet = Wb2.WorkSheets(1)
Ws2.UsedRange.Copy
ws1.Select
Dim count As Integer = Ws1.UsedRange.Rows.Count+1
Ws1.Rows(count).PageBreak = MSExcel.XlPageBreak.xlPageBreakManual
\'ws1.Cells(1,Ws1.UsedRange.Columns.Count).Select \'横向拷贝
ws1.Cells(count,1).Select \'纵向拷贝
ws1.paste
For i As Integer = count To Ws1.UsedRange.Rows.Count
If ws1.cells(i,1).Text.Contains("本页合计") Then
If i < Ws1.UsedRange.Rows.Count Then
Ws1.Rows(i+1).PageBreak = MSExcel.XlPageBreak.xlPageBreakManual
End If
End If
Next
wb1.Save
wb1.ExportAsFixedFormat(MSExcel.XlFixedFormatType.xlTypePDF, pdf, MsExcel.XlFixedFormatQuality.xlQualityStandard, True, False, System.Reflection.Missing.Value, System.Reflection.Missing.Value, False, System.Reflection.Missing.Value)
\'app1.visible = True
app1.quit
catch ex As exception
msgbox(ex.message)
app1.quit
End try
-- 发布时间：2019/8/29 10:57:00
--
此主题相关图片如下：问题.jpg
还是不行
-- 发布时间：2019/8/29 11:00:00
--
上传实例测试
-- 发布时间：2019/8/29 11:21:00
--
测试，8888
-- 发布时间：2019/8/29 11:22:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:测试1.rar |
-- 发布时间：2019/8/29 11:29:00
--
相关模板文件一起发上来
-- 发布时间：2019/8/29 14:20:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:工资签收单.xls |
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:工资清单.xls |
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:历史工资清单.xls |
-- 发布时间：2019/8/29 14:50:00
--
连接不到数据库无法测试。做个内部表的项目发过来
-- 发布时间：2019/8/29 15:04:00
--
再试试
[此贴子已经被作者于2019/8/29 16:34:37编辑过]