[求助]在页面集合上的打印问题？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]在页面集合上的打印问题？

共有1469人关注过本帖树形打印复制链接主题：[求助]在页面集合上的打印问题？

wendude

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

加好友

发短信

等级：小狐帖子：349 积分：3600 威望：0 精华：0 注册：2014/4/11 16:05:00

[求助]在页面集合上的打印问题？ 发帖心情

Post By：2016/8/18 19:43:00 [只看该作者]

请问在页面集合TabControl1上，如何像在窗口中的打印设置一样呢？

代码：

e.Form.Page.Width = 300 '纸张宽度为100毫米

e.Form.Page.Height = 300 '纸张高度为120毫米

e.Form.Page.LeftMargin = 0 '设置左边距

e.Form.Page.RightMargin = 5 '设置右边距

e.Form.Page.TopMargin = 7 '设置上边距

e.Form.Page.BottomMargin = 5 '设置下边距

e.Form.Page.Landscape = True '横向打印

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

doc.Preview()

wendude

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

加好友

发短信

等级：小狐帖子：349 积分：3600 威望：0 精华：0 注册：2014/4/11 16:05:00

[求助]不起作用该代码？ 发帖心情

Post By：2016/8/18 19:56:00 [只看该作者]

再例如，窗口中有一个TabControl控件，希望打印该控件选定页面的内容，可以参考下面的代码：

Dim tb As WinForm.TabControl = e.Form.Controls("TabControl1")
Dim pg As WinForm.TabPage = tb.SelectedPage
Dim doc As PrintDoc = e.Form.GernatePrintDoc(pg)
doc.Preview()

说明：GernatePrintDoc方法有一个参数，用于指定要打印的容器，如果省略，则打印整个窗口。

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/8/18 20:38:00 [只看该作者]

2楼的代码没问题。如果要设置页面等，也像1楼那样设置。

[此贴子已经被作者于2016/8/18 20:38:15编辑过]

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

主题：[求助]在页面集合上的打印问题？