LibreOffice Calc宏 - 如何删除给定工作表中的页眉和页脚？

Question

当我打印出由宏创建的发票时，默认页眉和页脚会显示。 我想在我的宏中删除它们。

Answer 1

我发现这是关闭页眉和页脚的方法：

Dim oDoc As Object
Dim oSheet As Object
Dim oStyles As Variant
Dim oPstyle As Variant

oDoc=ThisComponent

oSheet=oDoc.Sheets.getByName("Sheet1")

oStyles=oDoc.StyleFamilies.getByName("PageStyles")
oPstyle=oStyles.getByName(oSheet.PageStyle)
oPstyle.HeaderOn=FALSE
oPstyle.FooterOn=FALSE