为什么生成PDF时，感觉行数少（2行）时，一下生成了，多时（20行）生成不了？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 为什么生成PDF时，感觉行数少（2行）时，一下生成了，多时（20行）生成不了？

共有2722人关注过本帖树形打印复制链接主题：为什么生成PDF时，感觉行数少（2行）时，一下生成了，多时（20行）生成不了？

yancheng

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

加好友

发短信

等级：四尾狐帖子：843 积分：5982 威望：0 精华：0 注册：2013/6/29 9:36:00

为什么生成PDF时，感觉行数少（2行）时，一下生成了，多时（20行）生成不了？ 发帖心情

Post By：2016/9/16 15:00:00 [显示全部帖子]

Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")

Dim tmp As String = ProjectPath & "Attachments\主材选型确认表.xls"

Dim rpt As String = ProjectPath & "Reports\主材选型确认表.pdf"

Dim Book As New XLS.Book(tmp)

Book.Build()

Book.SaveToPDF(rpt) '保存为pdf文件

wbr.AddRess = rpt

为什么生成PDF时，感觉行数少（2行）时，一下生成了，多时（20行）生成不了？

我点行生

此主题相关图片如下：uc截图20160916145943.jpg

成少的，再点生成多的，有时又生成出来了。

yancheng

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

加好友

发短信

等级：四尾狐帖子：843 积分：5982 威望：0 精华：0 注册：2013/6/29 9:36:00

Post By：2016/9/16 15:05:00 [显示全部帖子]

好像都生成不了了。不明白什么意思。

我用XLS直接生成文件，可以。正常。只是PDF预览不成生。

Dim Book As New XLS.Book(ProjectPath & "Attachments\主材选型确认表.xls")

Dim str As String =Tables("材料选型").Current("合同名称")

If str <> "" Then

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog

dlg.Filter= "Excel文件|*.xls" '设置筛选器

dlg.FileName=str & "-" &Forms("材料选型").Name

If dlg.ShowDialog = DialogResult.Ok Then

Book.Build() '生成细节区

Book.Save(dlg.FileName)

Dim Proc As New Process

Proc.File = dlg.FileName

Proc.Start()

End If

Else

MessageBox.show("请选择要生成的'材料选型'表的订单!")

End If

我是OFFICE 2007 但是已经安装了，转PDF插件的。

[此贴子已经被作者于2016/9/16 15:24:02编辑过]

yancheng

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

加好友

发短信

等级：四尾狐帖子：843 积分：5982 威望：0 精华：0 注册：2013/6/29 9:36:00

Post By：2016/9/16 15:32:00 [显示全部帖子]

再试了一下，用XLS生成预览，也不行了。好像第一次能生成，后面的都不能生成了。

Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")

Dim tmp As String = ProjectPath & "Attachments\主材选型确认表.xls"

Dim rpt As String = ProjectPath & "Reports\主材选型确认表.xls"

Dim Book As New XLS.Book(tmp)

Book.Build()

Book.Save(rpt)

wbr.OfficeToolBar = True '如果不需要显示工具栏,可删除此行代码

wbr.AddRess = rpt

yancheng

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

加好友

发短信

等级：四尾狐帖子：843 积分：5982 威望：0 精华：0 注册：2013/6/29 9:36:00

Post By：2016/9/24 11:33:00 [显示全部帖子]

这个，还是无法预览，有没有解决办法？

我用： http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=88255&authorid=0&page=0&star=2 大红老师下面的代码，也不行。

比较麻烦，你需要把对应的 excel 进程杀死才行的。不然在webbrowser里面的文件，就一直是打开状态，即便设置了address，也需要一段时间才会结束进程的。

web控件.Address = Nothing

GC.Collect()

Dim ps As System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("excel")
For Each p As System.Diagnostics.Process In ps

msgbox(p.MainWindowTitle)
If p.MainWindowTitle = Nothing Then p.kill
Next

yancheng

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

加好友

发短信

等级：四尾狐帖子：843 积分：5982 威望：0 精华：0 注册：2013/6/29 9:36:00

Post By：2016/9/24 12:16:00 [显示全部帖子]

我试过，这种杀进程，我也试了。不行。

我把：EXCEL,改成了：pdf的进程名。也不行。

下一主题 >> << 上一主题

主题：为什么生成PDF时，感觉行数少（2行）时，一下生成了，多时（20行）生成不了？