以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助，窗口打印容器内容！！  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=51238)
--  作者：zbmqs
--  发布时间：2014/5/22 14:49:00
--  求助，窗口打印容器内容！！

我在页面集合中打印Text box  (学生姓名），做如下程序

e.Form.Page.Landscape =  True  \'横向打印
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.Print()

 结果第一个学生信息横向打印了，但从第二个开始又竖着打印了，怎么办？错哪儿了？
--  作者：Bin
--  发布时间：2014/5/22 14:54:00
--  
上个例子看看.
--  作者：有点甜
--  发布时间：2014/5/22 15:03:00
--  

 试试

 

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.AutoRotate = False
doc.PageSetting.Landscape = True \'横向打印

doc.Print()
--  作者：zbmqs
--  发布时间：2014/5/24 11:44:00
--  
惨了！win7好像不好用照相与打印！！