[已解决]如何添加excel双面打印按钮

bnlzm239

不好意思，excel双面打印添加按钮做不出来啊，求助

[此贴子已经被瑾暟于2010-1-14 10:21:44编辑过]

最佳答案

月排行榜 / 总排行榜

枯禅

2010-1-14 10:24

'顺序打印奇数页
Sub PrintOddPage()
    Dim TotalPg As Integer
    Dim i As Integer
    TotalPg = ExecuteExcel4Macro("GET.DOCUMENT(50)")
    For i = 1 To TotalPg Step 2
        ActiveSheet.PrintOut From:=i, To:=i
    Next
End Sub

'顺序打印偶数页
Sub PrintEvenPage()
    Dim TotalPg As Integer
    Dim i As Integer
    TotalPg = ExecuteExcel4Macro("GET.DOCUMENT(50)")
    For i = 2 To TotalPg Step 2
        ActiveSheet.PrintOut From:=i, To:=i
    Next
End Sub

'逆序打印奇数页
Sub PrintOddPageFrontward()
    Dim TotalPg As Integer
    Dim i As Integer
    TotalPg = ExecuteExcel4Macro("GET.DOCUMENT(50)")
    If TotalPg Mod 2 = 0 Then TotalPg = TotalPg - 1
    For i = TotalPg To 1 Step -2
        ActiveSheet.PrintOut From:=i, To:=i
    Next
End Sub

'逆序打印偶数页
Sub PrintEvenPageFrontward_2()
    Dim TotalPg As Integer
    Dim i As Integer
    TotalPg = ExecuteExcel4Macro("GET.DOCUMENT(50)")
    If TotalPg Mod 2 = 1 Then TotalPg = TotalPg - 1
    For i = TotalPg To 1 Step -2
        ActiveSheet.PrintOut From:=i, To:=i
    Next
End Sub

跳转到最佳答案楼层

hyetal

我也不会，跟贴学习下

枯禅

'顺序打印奇数页
Sub PrintOddPage()
    Dim TotalPg As Integer
    Dim i As Integer
    TotalPg = ExecuteExcel4Macro("GET.DOCUMENT(50)")
    For i = 1 To TotalPg Step 2
        ActiveSheet.PrintOut From:=i, To:=i
    Next
End Sub

'顺序打印偶数页
Sub PrintEvenPage()
    Dim TotalPg As Integer
    Dim i As Integer
    TotalPg = ExecuteExcel4Macro("GET.DOCUMENT(50)")
    For i = 2 To TotalPg Step 2
        ActiveSheet.PrintOut From:=i, To:=i
    Next
End Sub

'逆序打印奇数页
Sub PrintOddPageFrontward()
    Dim TotalPg As Integer
    Dim i As Integer
    TotalPg = ExecuteExcel4Macro("GET.DOCUMENT(50)")
    If TotalPg Mod 2 = 0 Then TotalPg = TotalPg - 1
    For i = TotalPg To 1 Step -2
        ActiveSheet.PrintOut From:=i, To:=i
    Next
End Sub

'逆序打印偶数页
Sub PrintEvenPageFrontward_2()
    Dim TotalPg As Integer
    Dim i As Integer
    TotalPg = ExecuteExcel4Macro("GET.DOCUMENT(50)")
    If TotalPg Mod 2 = 1 Then TotalPg = TotalPg - 1
    For i = TotalPg To 1 Step -2
        ActiveSheet.PrintOut From:=i, To:=i
    Next
End Sub