[已解决]求助：怎么把一个工作薄的所有工作薄进行取消打印区域操作，工作表名称不是Sheet1...

tongguo84

求助：怎么把一个工作薄的所有工作薄进行取消打印区域操作，工作表名称不是Sheet1，2.。。


谢谢

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-8-22 10:10

写个宏，删除一个工作薄中所有工作表中定义的名称Print_Area就行了。
刚测了下，这个想法有点好像不怎么好实现。我录了个宏，改了下。
Sub delname()
    Dim i&
    For i = 1 To Sheets.Count
        'Debug.Print Sheets(i).PageSetup.PrintArea
        Sheets(i).PageSetup.PrintArea = ""
    Next
End Sub

跳转到最佳答案楼层

hwc2ycy

写个宏，删除一个工作薄中所有工作表中定义的名称Print_Area就行了。
刚测了下，这个想法有点好像不怎么好实现。我录了个宏，改了下。
Sub delname()
    Dim i&
    For i = 1 To Sheets.Count
        'Debug.Print Sheets(i).PageSetup.PrintArea
        Sheets(i).PageSetup.PrintArea = ""
    Next
End Sub

hwc2ycy

PrintArea 属性
参阅参阅参阅参阅返回或设置欲打印的区域，使用宏语言字符串中以 A1-样式的引用。String 类型，可读写。

说明
将本属性设置为 False 或空字符串 ("")，就可打印整个工作表。

本属性仅适用于工作表页面。

欢迎楼主测试。