EXCEL实现奇偶页打印的方法

2025-12-20 13:34 来源:快学会计网 阅读量:167

导读:一是粘贴到WORD中打印; 二是用宏,编程代码如下: Sub PrintOddEven() tpg = ExecuteExcel4Macro(GET.DOCUMENT(50)) For i = 1 To tpg Step 2 ActiveSheet.PrintOut i, i Next For i = 2 To tpg Step 2 ActiveSheet.PrintOut i, i Next End Sub

 一是粘贴到WORD中打印;

  二是用宏,编程代码如下:

  Sub PrintOddEven()

  tpg = ExecuteExcel4Macro("GET.DOCUMENT(50)")

  For i = 1 To tpg Step 2

  ActiveSheet.PrintOut i, i

  Next

  For i = 2 To tpg Step 2

  ActiveSheet.PrintOut i, i

  Next

  End Sub

大家都在问
您正在与金牌答疑老师聊天