主题：打印设置里有没有顶置标题行的功能？

Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表

With Sheet.PrintSetting

    '页眉左边为日期,中间为时间,右边为表名

    .Header = "&L&D &C&T &R&A"

    '在页脚右边打印页号和总页数

    .Footer = "&R第&P页,总&N页"

End With

如果指定了每页最大可打印的细节区数，我们就可以将某一行或某几行设为页首行，这样每次换页的时候，将自动插入这几行作为页首使用。

指定页首行的格式为：

<HeaderRow>

需要注意的是，必须明确指定每页可打印的细节区数量，页首行的设置才会生效。