主题：Excel报表中标题行高度如何设置？

如果使用代码设置参考：http://www.foxtable.com/webhelp/scr/1158.htm

版主：

     在下面的语句中，如何设置标题行高度，如何固定标题行？

With Ws.PageSetup      '所有需要设置的参数, 均在下面, 不用的就注释了, 没有删除, 编程时, 根据情况使用
    '设置打印区域
    '.PrintArea = "A1:H10"                            '打印工作表的指定区域
    '.PrintArea = Ws.UsedRange.Address                '打印工作表的使用区域
    '.PrintTitleColumns = Ws.Columns("A:H").Address   '打印列标题(在每一页的左边重复出现)
    '.PrintTitleRows = Ws.Rows(1).Address             '打印行标题(在每一页的顶部重复出现)
    '设置页面
    .PaperSize = MSExcel.XlPaperSize.xlPaperA4        '纸张大小
    .LeftMargin   = 40   '页面     左     边距,左边距1.4
    .RightMargin  = 30   '页面     右     边距,右边距1.1
    .TopMargin    = 40   '页面    顶部    边距
    .BottomMargin = 40   '页面    底部    边距
    .HeaderMargin = 15   '页面 顶端到页眉 的距离
    .FooterMargin = 15   '页脚 到页面底端 的距离, 

    '.CenterHorizontally = True   '页面水平居中

    '.CenterVertically = True     '页面垂直居中
    '设置页眉
    '.LeftHeader = "打印日期: &D"                     '左页眉,&D表示日期
    '.CenterHeader = "&""隶书,常规""&20 数据分析表"   '中页眉,并将字体设置为隶书和20号字大小
    '.RightHeader = "打印者: " & App.UserName         '右页眉
    '设置页脚
    '.LeftFooter  = "文件: &F  &A"                    '左页脚,&F表示文件名,&A表示工作表名
    .CenterFooter = "共 &N 页 / 第 &P 页"             '右页脚
    .RightFooter  = "打印日期: &D"                    '左页眉,&D表示日期
    '打印模式
    '.Orientation = MSExcel.xlPageOrientation.xlPortrait  '纵向打印
    .Orientation = MSExcel.xlPageOrientation.xlLandscape  '横向打印
    ' .PrintHeadings = True         '打印行号和列标
    '.PrintGridlines = True         '打印网格线
    '缩放打印
    '.Zoom = False                  '以下设置将缩印在一页内
    '.FitToPagesWide = 1            '按照1页的宽度打印
    '.FitToPagesTall = 1            '按照1页的高度打印
End With

谢谢了，试试看。

版主：

    这个语句把所有行高都设置为40了，不对。

    我希望标题行设置为固定行高，其他行没有问题，都是根据内容自动行高的。

    另外，我的表头（包括标题行是三行），打印页数超过1页时，如果固定表头？

固定标题行正确的语句是：

     .PrintTitleRows = "$1:$3"