大家，早安！
我需要构建一个宏，该宏将根据当前活动的工作表打印出报告。工作表包含几个宏按钮，每个宏按钮将在此特定表的相同范围内显示不同的内容。并非我需要在报告中包含的所有列，但是，它们无法四处移动。所以现在我写这个来解决这个问题。
Sub Macro111()
Dim PrintThis As Range
Dim LastRow As Long
LastRow = Sheets("Reports").Range("G" & Rows.Count).End(xlUp).Row
With Sheets("Reports")
Set PrintThis = Union(.Range("G1:G" & LastRow), .Range("k1:L" & LastRow), .Range("Q1:Q" & LastRow), .Range("S1:T" & LastRow))
End With
PrintThis.PrintPreview
End Sub
但是，它永远运行，并且在单独的页面中打印出列。我该如何解决？
谢谢！
在运行宏之前，请先运行以下命令：
Sub RunMeFirst()
Columns.Hidden = True
Range("G:G, K:L, Q:Q, S:T").EntireColumn.Hidden = False
End Sub
运行宏后，取消隐藏所有列。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句