选择一些相邻和不相邻的列范围并保存到pdf，就好像它们全部相邻一样

Question

我有一个问题需要帮助。我有一个 Excel 工作表，需要将报告导出为 pdf。每个报告中应包含前 2 个相邻列。我需要打印 4 个版本的报告，其中包含 A 列和 B 列并排的 85 行以及与这些列不相邻的一列（假设一个报告版本中的 F 列）。我希望 F 列与输出 pdf 中的 A 列和 B 列并排对齐。

我一直在研究范围选择，如下面的代码所示。遗憾的是，这给了我并排的 A 列和 B 列，下面是 F 列。 如果有人有任何指示，我将不胜感激。

    Sub Export()
      Dim Rng As Range
      With ActiveSheet
        Set Rng = .Range("A1:B85, F1:F85")
        Rng.ExportAsFixedFormat Type:=xlTypePDF, fileName:="test.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
      End With
    End Sub

Answer 1

导出前请尝试隐藏C:E列。

Sub Export()
    Dim Rng As Range
    With ActiveSheet
        Set Rng = .Range("A1:F85")
        With .Columns("C:E")
            .Hidden = True
            Rng.ExportAsFixedFormat Type:=xlTypePDF, Filename:="test.pdf", _
                Quality:=xlQualityStandard, IncludeDocProperties:=True, _
                IgnorePrintAreas:=False, OpenAfterPublish:=True
            .Hidden = False
        End With
    End With
End Sub