以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]在页面集合上的打印问题？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=89302)
--  作者：wendude
--  发布时间：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
--  发布时间：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方法有一个参数，用于指定要打印的容器，如果省略，则打印整个窗口。
--  作者：大红袍
--  发布时间：2016/8/18 20:38:00
--  
 2楼的代码没问题。如果要设置页面等，也像1楼那样设置。
[此贴子已经被作者于2016/8/18 20:38:15编辑过]