以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  打印  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=51690)
--  作者：散客
--  发布时间：2014/5/31 17:22:00
--  打印

With Tables("订单").PrintInfo
    .Title = "2011年9月订单"
    .PageFooter = "第[PageNo]页,共[PageCount]页"
    .PageFooterLine = True
    .PaperKind = 9
    .FitIntoPage = True
End With
Tables("订单").Print(True,False)

 

这段代码可以吧表格线打成实线吗？请教了
--  作者：狐狸爸爸
--  发布时间：2014/6/3 8:46:00
--  
本来就是实线的哦
--  作者：有点甜
--  发布时间：2014/6/3 9:11:00
--  

 可以随意改变表格的网格线的，参考。

 

Tables("表A").grid.styles.Normal.Border.Color = Color.Red
Tables("表A").grid.styles.Normal.Border.Style = 1
Tables("表A").grid.styles.Normal.Border.width = 5
--  作者：散客
--  发布时间：2014/6/3 17:02:00
--  

谢了