EXCEL逐份打印当前工作表的奇数页，求修改。

japhler

附件如下。。。。。

lss001

请参考2楼更新

japhler

2楼打印还是打一张停一下

lss001

请参考一下2楼附件代码

japhler

Sub 打印奇数页()
    Dim v&, p&, i&, r$, a$(), b$(), c&
   
    With ActiveSheet 'Sheet2
         .UsedRange.EntireColumn.Hidden = False '取消隐藏
        p = Val(ExecuteExcel4Macro("GET.DOCUMENT(50)")) '总页数
        ActiveWindow.View = xlPageBreakPreview '打印视图
        r = Split(.UsedRange.Address, ":")(1) '最后数据行
        '’h = .HPageBreaks.Count '水平分页符总数
        v = .VPageBreaks.Count '垂直分页符总数

        If v Then
            ReDim arr(1 To v + 1)
            For i = 1 To v '获取水平与垂直分页符地址
                arr(i) = .VPageBreaks(i).Location.Address
                '’arr(i) = .HPageBreaks(i).Location.Address
            Next
            
            arr(v + 1) = r
            For i = 1 To v Step 2
                a = Split(arr(i), "$") '起始地址
                b = Split(arr(i + 1), "$") '结束地址
                c = Cells(1, b(1)).Column - 1 '列
                .Range(.Cells(a(2), a(1)), .Cells(b(2), c)) _
                    .EntireColumn.Hidden = True '隐藏偶数页
            Next
        End If
        
        p = .PageSetup.Pages.Count '隐藏后总页数
   
        .PrintOut 1, p, 2, , , , 1 '打印
   
    End With
    ActiveWindow.View = xlNormalView '页面视图
End Sub





你说的是这个吗？说实话，VB我还只是懂点皮毛，有些还不太懂，参考这个去改我也改不了。能帮我写个完整的不？大师

lss001

japhler 发表于 2024-12-29 20:10
Sub 打印奇数页()
    Dim v&, p&, i&, r$, a$(), b$(), c&
   

请参考2楼更新附件
附件代码增加偶数页逆序打印

japhler

lss001 发表于 2024-12-30 09:30
请参考2楼更新附件
附件代码增加偶数页逆序打印

那个代码我原来就有，就是因为打印一张就要停顿，所以我才想改的。

lss001

请参考2楼附件

japhler

很好！非常感谢！