以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]打印分组框内容  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=55878)

--  作者:青岛立邦达
--  发布时间:2014/8/25 15:38:00
--  [求助]打印分组框内容
一个窗口里面10多个groupbox

Dim grp As WinForm.GroupBox = e.Form.Controls("GroupBox1")
Dim doc As PrintDoc = e.Form.GernatePrintDoc(grp)
doc.Preview()
Dim gre As WinForm.GroupBox = e.Form.Controls("GroupBox2")
Dim dec As PrintDoc = e.Form.GernatePrintDoc(gre)
dec.Preview()

依次类推
打印的话 是这么写 按钮么

--  作者:Bin
--  发布时间:2014/8/25 15:41:00
--  
对的.如果是 GroupBox1-10的话,可以简化一下代码

for i as integer = 1 to 10
  Dim grp As WinForm.GroupBox = e.Form.Controls("GroupBox" & i)
Dim doc As PrintDoc = e.Form.GernatePrintDoc(grp)
doc.Preview()
next 

--  作者:青岛立邦达
--  发布时间:2014/8/25 15:46:00
--  
但是输入这个代码以后 点打印 它是依次打印的,一个GROUPBOX对应一张纸,如何能够将这些GROUPBOX  一次打印到一张A4纸呢?
--  作者:Bin
--  发布时间:2014/8/25 15:49:00
--  
不行
--  作者:有点甜
--  发布时间:2014/8/25 15:53:00
--  

 这个做不到。

 

 1、用线去画一个分组框代替呗;

 

 2、你试试先保存成图片,在合并起来看是否可以 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=55807&replyID=371786&skin=1