如何清除打印区域

Question

我对宏还很陌生。

我正在尝试寻找一个宏，它可以清除没有单元格 u1="x" 的指定工作表上的打印区域。我的工作簿有超过 80 个工作表。

Answer 1

编写以下 VBA 代码：

 Sub clearPrintAreas1()   
   Dim wks As Worksheet  

 For Each wks In ActiveWorkbook.Worksheets       
     If Not (wks.Range("u1") = "X") Then      
       wks.PageSetup.PrintArea = ""        
     End If  
   Next     
   Set wks = Nothing  
End Sub

PrintArea= "" 将清除打印区域，并且代码将测试每张纸，如果 U1 不为“X”，则将清除该纸的打印区域。