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

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

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

Dim doc As PrintDoc = e.Form.GernatePrintDoc()

doc.SavePDF("d:\ff.pdf")

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

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

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")

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

多谢

1、动态设置表格的最大行数

2、乱码问题，是你窗口字体问题。你窗口的控件换一种字体

不能一次保存为三种，一次只能保存一种。

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

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

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

1、哦，写错了，你可以设置最小行数，动态的设置就好。

2、如果你设置成黑体行不行？table的字体设置，参考 http://www.foxtable.com/webhelp/scr/0497.htm

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

以下是引用zhsenchzhi在2017/7/24 2:14:00的发言：
1 我就是设置最小行数为 20，才出现的上下重叠现象，实际中，可能出现超过20的情况更多

最小行数，根据你表格的行数设置，在打印之前用代码设置，赋值为动态的值；

主题：窗口保存为pdf文档