以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于 panel 打印  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=104234)

--  作者:zhsenchzhi
--  发布时间:2017/7/25 23:07:00
--  关于 panel 打印
一个 panel 比较长,有扩展尺寸,发现 当 这个panel 滚动到底部,上面部分显示不出来的时候,这时候 打印,居然 打印不出来上半部分,但是 上半部分显示,下半部分不显示的时候,

能全部打印出来,导出到pdf 也是这种情况,请问这是怎么回事?

另外就是,如果这个  panel 里面 如果还有另外一个 子panel, 则子panel 里面 的内容也不能打印出来,如果子panel以及子子panel里的内容也要打印出来,该怎么办呢?

代码如下:

Dim p As WinForm.Panel = Forms("会议_季报编辑窗口").Controls("PanelMiddle")

Forms("会议_季报编辑窗口").Page.PaperKind = 9 \'纸张类型改为A4

Forms("会议_季报编辑窗口").Page.LeftMargin = 1 \'设置左边距
Forms("会议_季报编辑窗口").Page.RightMargin = 1 \'设置右边距
Forms("会议_季报编辑窗口").Page.TopMargin = 30 \'设置上边距
Forms("会议_季报编辑窗口").Page.BottomMargin = 20 \'设置下边距


Dim doc As PrintDoc = Forms("会议_季报编辑窗口").GernatePrintDoc(p)
doc.Preview()
[此贴子已经被作者于2017/7/26 0:31:34编辑过]

--  作者:有点甜
--  发布时间:2017/7/26 9:31:00
--  
 在顶部放一个按钮,然后打印前,写代码 Forms("会议_季报编辑窗口").controls("Button1").select
--  作者:zhsenchzhi
--  发布时间:2017/7/26 10:38:00
--  
另外就是,如果这个  panel 里面 如果还有另外一个 子panel, 则子panel 里面 的内容也不能打印出来,如果子panel以及子子panel里的内容也要打印出来,该怎么办呢?

这个该怎么办呢?

--  作者:有点甜
--  发布时间:2017/7/26 12:37:00
--  

 不行,只能打印一个panel。

 

 如果确实要做,自己实现窗口打印功能。

 

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=101744&skin=0