如何修改VBA代码实现多打印区域横向排列而非纵向堆叠？

需求说明 #

原代码会将选中的多个Excel区域纵向堆叠在同一页打印（比如选中A列10行和C列10行，C列内容会放在A列下方），需要修改为第二个及后续选中区域横向排列在首个区域的右侧，实现并排打印效果。

修改后的代码 #

Sub printOutRange()
    Dim xRng1 As Range
    Dim xRng2 As Range
    Dim xNewWs As Worksheet
    Dim xWs As Worksheet
    Dim colIndex As Long ' 替换原行索引为列索引
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    Set xWs = ActiveSheet
    Set xNewWs = Worksheets.Add
    xWs.Select
    
    colIndex = 1 ' 初始列位置从第1列开始
    For Each xRng2 In Selection.Areas
        xRng2.Copy
        ' 目标区域起始位置：第1行，当前列索引
        Set xRng1 = xNewWs.Cells(1, colIndex)
        xRng1.PasteSpecial xlPasteValues
        xRng1.PasteSpecial xlPasteFormats
        ' 更新列索引：当前列数 + 刚粘贴区域的列数
        colIndex = colIndex + xRng2.Columns.Count
    Next
    
    xNewWs.Columns.AutoFit
    xNewWs.PrintPreview
    xNewWs.Delete
    
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

关键修改点 #

• 将原代码中控制纵向位置的xIndex（行索引）替换为colIndex（列索引），控制横向排列的起始位置
• 每次粘贴区域时，从临时工作表的第1行、当前列索引位置开始粘贴，保证所有区域横向对齐
• 处理完一个区域后，列索引增加该区域的总列数，确保下一个区域紧排在右侧，不会重叠
• 保留原代码的临时工作表创建、格式/值粘贴、自动列宽、打印预览后自动删除的核心逻辑

内容的提问来源于stack exchange，提问作者user20594516