宏更改“页面设置”不起作用

时间:2013-03-21 15:58:50

标签: excel vba excel-vba excel-2007

我有一个简单的宏,记录格式化一些单元格,并设置一些页面格式(边距页脚标题等)。宏运行没有错误,它格式化单元格正常,但不保存/更改任何页面设置选项。我运行后,如果我检查页面设置,一切仍然是默认的。以下是页面设置部分。我已经在多个文件/工作簿上尝试了这个,它似乎无论如何都不会保存更改。有什么想法吗?

由于

ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
    .LeftHeader = ""
    .CenterHeader = "&F"
    .RightHeader = ""
    .LeftFooter = ""
    .CenterFooter = "Page &P of &N"
    .RightFooter = ""
    .LeftMargin = Application.InchesToPoints(0.25)
    .RightMargin = Application.InchesToPoints(0.25)
    .TopMargin = Application.InchesToPoints(0.5)
    .BottomMargin = Application.InchesToPoints(0.5)
    .HeaderMargin = Application.InchesToPoints(0.25)
    .FooterMargin = Application.InchesToPoints(0.25)
    .PrintGridlines = True
    .Orientation = xlLandscape
    .FirstPageNumber = xlAutomatic
    .FitToPagesWide = 1
End With

1 个答案:

答案 0 :(得分:0)

我遇到了同样的问题,经过一些研究后发现了以下解决方案。

"如果没有安装打印机,则无法在Excel中使用页面设置属性"

http://support.microsoft.com/kb/291298

我希望这会有所帮助。感谢。