LibreOffice Calc 宏 - 如何删除给定 sheet 中的页眉和页脚？
LibreOffice Calc macro - How to remove header and footer in given sheet?
当我打印出由宏创建的发票时，会出现默认的页眉和页脚。
我想在我的宏中删除它们。
我发现这是关闭页眉和页脚的方法：
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
当我打印出由宏创建的发票时，会出现默认的页眉和页脚。 我想在我的宏中删除它们。
我发现这是关闭页眉和页脚的方法：
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