如何使用VBA在Excel中打印出不連續的列？

Question

大家，早安！

我需要構建一個宏，該宏將基於當前活動的工作表打印出報告。 該工作表包含多個宏按鈕，每個宏按鈕將在此特定表的相同范圍內顯示不同的內容。 並不是我需要在報告中包含的所有列，但是，它們不能四處移動。 所以現在我寫這個來解決這個問題。

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

但是，它永遠運行，並且在單獨的頁面中打印出列。 我該如何解決？

謝謝！

Answer 1

在運行宏之前，請先運行以下命令：

Sub RunMeFirst()
    Columns.Hidden = True
    Range("G:G, K:L, Q:Q, S:T").EntireColumn.Hidden = False
End Sub

運行宏后，取消隱藏所有列。