如果使用代码设置参考：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"