- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 怎么能在同一张纸上打印两份同样的窗口画面呢？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=26245)
-- 发布时间：2012/11/28 7:41:00
-- 怎么能在同一张纸上打印两份同样的窗口画面呢？
打印要横向打印，左右各一份。 两份的内容完全相同。如果表头可以改成 客户用，保管用，更好
窗口的名字为“窗口2” 请各位大侠指点啊！！
-- 发布时间：2012/11/28 8:40:00
--
没有办法，用专业报表吧
-- 发布时间：2012/11/28 9:33:00
--
其实，是可以的，遍历复制Doc的所有对象，贴一段通用代码。
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Dim ls_Obj As New List(Of Object)
For Each c As Object In Doc.Body.Children
Dim o As Object = c.clone()
o.y = o.y.Value + 80 \'没有办法,试了很多,不能把窗口的高度转成unit类型,只能自己填写具体的值了
ls_Obj.Add(o)
Next
For Each o As Object In ls_Obj
Doc.body.Children.Add(o)
Next
doc.Preview()
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2012/11/28 9:40:00
--
哈哈，聪明！！
-- 发布时间：2012/11/28 21:23:00
-- 非常非常感谢，但是我想左右分，有没有办法
非常非常感谢，但是我想横向打印，左右分，有没有办法？
-- 发布时间：2012/11/29 8:47:00
--
以下是引用jinzhengbe在2012-11-28 21:23:00的发言：
非常非常感谢，但是我想横向打印，左右分，有没有办法？
非常非常感谢，但是我想横向打印，左右分，有没有办法？
横向打印的话，就调整对象的横坐标。
比如 o.x = o.x + 100
-- 发布时间：2012/11/30 9:38:00
--
非常好用，收藏
-- 发布时间：2012/12/24 19:31:00
--
以下是引用lin_hailun在2012-11-28 9:33:00的发言：
其实，是可以的，遍历复制Doc的所有对象，贴一段通用代码。
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Dim ls_Obj As New List(Of Object)
For Each c As Object In Doc.Body.Children
Dim o As Object = c.clone()
o.y = o.y.Value + 80 \'没有办法,试了很多,不能把窗口的高度转成unit类型,只能自己填写具体的值了
ls_Obj.Add(o)
Next
For Each o As Object In ls_Obj
Doc.body.Children.Add(o)
Next
doc.Preview()
请问打印次数怎么修改
其实，是可以的，遍历复制Doc的所有对象，贴一段通用代码。
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Dim ls_Obj As New List(Of Object)
For Each c As Object In Doc.Body.Children
Dim o As Object = c.clone()
o.y = o.y.Value + 80 \'没有办法,试了很多,不能把窗口的高度转成unit类型,只能自己填写具体的值了
ls_Obj.Add(o)
Next
For Each o As Object In ls_Obj
Doc.body.Children.Add(o)
Next
doc.Preview()
| 下载信息 [文件大小：292.0 KB 下载次数：30] | |
 点击浏览该文件:管理项目1.table |
请问打印次数怎么修改