以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助一个窗口打印  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=151323)

--  作者:long086
--  发布时间:2020/6/20 16:34:00
--  求助一个窗口打印

设计了一个出库打印(窗口打印),想实现一个窗口只打印10条记录,超过10条在第二页,

记录下面有本页小计和合计二行。请教老师怎么实现。


--  作者:有点蓝
--  发布时间:2020/6/20 16:40:00
--  
参考:http://www.foxtable.com/webhelp/topics/1607.htm


--  作者:long086
--  发布时间:2020/6/21 22:27:00
--  

谢谢老师,问题解决,现在还有一个问题,打印怎么把列标题的背景颜色去掉


图片点击可在新窗口打开查看此主题相关图片如下:20200621.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2020/6/21 23:21:00
--  
For Each c As Col In Tables("表A").Cols
    Tables("表A").SetHeaderCellBackColor(c.Name,Color.white)
Next

Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview()

For Each c As Col In Tables("表A").Cols
    Tables("表A").SetHeaderCellBackColor(c.Name,systemColors.control)
Next