窗口保存为pdf文档 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口保存为pdf文档

共有1946人关注过本帖树形打印复制链接主题：窗口保存为pdf文档

zhsenchzhi

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

加好友

发短信

等级：一尾狐帖子：423 积分：3196 威望：0 精华：0 注册：2013/5/10 10:01:00

窗口保存为pdf文档 发帖心情

Post By：2017/7/21 22:21:00 [显示全部帖子]

一个窗口中，有很多内容，包括表格，label，button等等，能不能将窗口显示的内容，直接保存为一个 word文档，或者excel ，pdf文档呢？

主要不是保存窗口的模板，而是他显示出具体的内容之后，保存为文件

zhsenchzhi

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

加好友

发短信

等级：一尾狐帖子：423 积分：3196 威望：0 精华：0 注册：2013/5/10 10:01:00

Post By：2017/7/21 23:04:00 [显示全部帖子]

多谢，不过我试了一下，保存的pdf文件，都是乱码，请问该怎么样设置才行呢？

zhsenchzhi

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

加好友

发短信

等级：一尾狐帖子：423 积分：3196 威望：0 精华：0 注册：2013/5/10 10:01:00

Post By：2017/7/23 18:26:00 [显示全部帖子]

目前窗口打印和输出存在的问题及代码

1 打印时表的行数较多时，上边的表和下面的数据发生重叠

代码如下：

Dim p As WinForm.Panel = Forms("会议_季报编辑窗口").Controls("PanelMiddle")

Forms("会议_季报编辑窗口").Page.PaperKind = 9 '纸张类型改为A4

Forms("会议_季报编辑窗口").Page.LeftMargin = 1 '设置左边距

Forms("会议_季报编辑窗口").Page.RightMargin = 1 '设置右边距

Forms("会议_季报编辑窗口").Page.TopMargin = 30 '设置上边距

Forms("会议_季报编辑窗口").Page.BottomMargin = 20 '设置下边距

Dim doc As PrintDoc = Forms("会议_季报编辑窗口").GernatePrintDoc(p)

doc.Preview()

2 保存为 pdf 中文为乱码，保存为 htm 和 image 居然数据为空，啥也没有

代码如下：

Dim p As WinForm.Panel = Forms("会议_季报编辑窗口").Controls("PanelMiddle")

Forms("会议_季报编辑窗口").Page.PaperKind = 9 '纸张类型改为A4

Forms("会议_季报编辑窗口").Page.LeftMargin = 1 '设置左边距

Forms("会议_季报编辑窗口").Page.RightMargin = 1 '设置右边距

Forms("会议_季报编辑窗口").Page.TopMargin = 30 '设置上边距

Forms("会议_季报编辑窗口").Page.BottomMargin = 20 '设置下边距

Dim doc As PrintDoc = Forms("会议_季报编辑窗口").GernatePrintDoc(p)

doc.SavePDF("c:\aaa.pdf")

doc.SaveHTM("c:\aaa.htm")

doc.SaveImage("c:\aaa.jpg")

请各位老师指点一下，上面的代码问题出在什么地方

多谢

zhsenchzhi

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

加好友

发短信

等级：一尾狐帖子：423 积分：3196 威望：0 精华：0 注册：2013/5/10 10:01:00

Post By：2017/7/23 20:17:00 [显示全部帖子]

1 不能设置最大行数，只能设置最小行数，因为我们是要打印出所有的数据的，设置最大行数，就会造成数据丢失

2 请问，窗口控件应该设置成什么字体？我现在用的字体都是宋体 12pt，如下图所示，另外， table 无法在界面设置字体，该怎样设置？

此主题相关图片如下：1.png

zhsenchzhi

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

加好友

发短信

等级：一尾狐帖子：423 积分：3196 威望：0 精华：0 注册：2013/5/10 10:01:00

Post By：2017/7/24 2:14:00 [显示全部帖子]

1 我就是设置最小行数为 20，才出现的上下重叠现象，实际中，可能出现超过20的情况更多

zhsenchzhi

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

加好友

发短信

等级：一尾狐帖子：423 积分：3196 威望：0 精华：0 注册：2013/5/10 10:01:00

Post By：2017/7/24 16:13:00 [显示全部帖子]

想问一下，保存为 pdf 到底用的是什么字体呢？总不能让我们的客户拿到一堆乱码，我去给人解释 foxtable 就是这样的吧

或者说，我到底要设置成啥字体，或者需要在 C:\Windows\Fonts 下拷贝啥字体，才能是 pdf 正常吧

[此贴子已经被作者于2017/7/24 16:13:50编辑过]

zhsenchzhi

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

加好友

发短信

等级：一尾狐帖子：423 积分：3196 威望：0 精华：0 注册：2013/5/10 10:01:00

Post By：2017/7/25 10:58:00 [显示全部帖子]

打印代码如下：

Dim p As WinForm.Panel = Forms("会议_季报编辑窗口").Controls("PanelMiddle")

Forms("会议_季报编辑窗口").Page.PaperKind = 9 '纸张类型改为A4

Forms("会议_季报编辑窗口").Page.LeftMargin = 1 '设置左边距

Forms("会议_季报编辑窗口").Page.RightMargin = 1 '设置右边距

Forms("会议_季报编辑窗口").Page.TopMargin = 30 '设置上边距

Forms("会议_季报编辑窗口").Page.BottomMargin = 20 '设置下边距

'Tables("会议_季度参会统计").set

'Forms("会议_季报编辑窗口").Controls("会议_季度参会统计").MinRows = IIF(Tables("会议_季度参会统计").Rows.Count>20,Tables("会议_季度参会统计").Rows.Count,20)

Forms("会议_季报编辑窗口").Controls("TableJdchtj").MinRows = 20 ‘这里是根据提示，动态设置最小打印行数的地方

Dim doc As PrintDoc = Forms("会议_季报编辑窗口").GernatePrintDoc(p)

doc.Preview()

打印预览效果如下：在两个红色方框的地方，都是上边的表把下边的内容覆盖的地方，请问，该怎么解决？

此主题相关图片如下：1.png

zhsenchzhi

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

加好友

发短信

等级：一尾狐帖子：423 积分：3196 威望：0 精华：0 注册：2013/5/10 10:01:00

Post By：2017/7/25 14:24:00 [显示全部帖子]

我之前的保存为 pdf，之前设置的为宋体，出现乱码

根据要求，改为黑体后，不再乱码了

现在的问题就是，我检查了 C:\Windows\Fonts 文件夹，里面的黑体和宋体都有，为什么宋体就出现乱码呢？见下图，红色部分，说明既有黑体也有宋体

另外，我怎样保证在用户那里一定不出现乱码呢？那种字体能保证一定不会出现乱码？黑体吗？是不是我需要制作一个安装盘，把需要的字体自动拷贝到 C:\Windows\Fonts 下面呢？

此主题相关图片如下：2.png

zhsenchzhi

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

加好友

发短信

等级：一尾狐帖子：423 积分：3196 威望：0 精华：0 注册：2013/5/10 10:01:00

Post By：2017/7/25 16:19:00 [显示全部帖子]

如果不正常，那么想问一下，别的软件怎么能用宋体呀，即使 foxtable 也能正常使用宋体，为啥导出成 pdf 就不行了呢？大家应该用的都是同一个资源呀

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

主题：窗口保存为pdf文档