以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  打印表问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=40270)
--  作者：magangzmc
--  发布时间：2013/9/13 17:09:00
--  打印表问题
打印表时，如何不打印列标题和行标题？
我代码是这样的：
With Tables(e.Form.Name & "_Table1").PrintInfo
    .Title = "对账明细报表"
    .PageFooter = "第[PageNo]页,共[PageCount]页"
    .PageFooterLine = True
    .PaperKind = 9
    .LandScape = True
    .FitIntoPage = True
End With

Tables(e.Form.Name & "_Table1").Print(True,True)
--  作者：Bin
--  发布时间：2013/9/13 17:14:00
--  
这个好像没得设置,你可以考虑使用专业报表 或者Excel模板打印 
--  作者：magangzmc
--  发布时间：2013/9/13 17:24:00
--  
那有没有隐藏列标题高度和行标题宽度的方法来实现呀？
--  作者：Bin
--  发布时间：2013/9/13 17:25:00
--  
是可以设置 标题高度的,设置为0可解决 http://www.foxtable.com/help/topics/1548.htm
[此贴子已经被作者于2013-9-13 17:33:03编辑过]
--  作者：czy
--  发布时间：2013/9/13 17:33:00
--  

不打印行号加一行代码就可以，不打印列标题真不懂。

 


    .PrintFixedCols = False
--  作者：有点甜
--  发布时间：2013/9/13 19:52:00
--  
类似下面代码

Dim t As Table = Tables("报价表")
Dim temp As Double = t.Grid.Rows(0).Height
t.Grid.Rows(0).Height = 0

With t.PrintInfo
    .Title = "对账明细报表"
    .PageFooter = "第[PageNo]页,共[PageCount]页"
    .PageFooterLine = True
    .PaperKind = 9
    .LandScape = True
    .FitIntoPage = True
.PrintFixedCols = False
End With

t.Print(True,True)
t.Grid.Rows(0).Height = temp