当我打印出由宏创建的发票时,会显示默认页眉和页脚。我想在我的宏中删除它们。
问问题
1060 次
1 回答
0
我发现这是关闭页眉和页脚的方法:
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
于 2015-05-18T19:30:41.737 回答