excel单双面打印定义.pdfVIP

打开 excel ，按 alt+F11 ，在工程窗口里找到当前的 project ， 然后右键插入一个新模块，将代码粘贴进去 将以下代码贴进去： Sub PrintOddPage() Dim TotalPg As Integer, i As Integer TotalPg = ExecuteExcel4Macro(get.document(50)) For i = 1 To TotalPg Step 2 ActiveSheet.PrintOut from:=i, to:=i Next i End Sub 然后在“工具 -宏 -宏”里面找到 PrintOddPage，按执行就可 以了 以上是打印单面，打印双面时，把代码改为： Sub PrintOddPage() Dim TotalPg As Integer, i As Integer TotalPg = ExecuteExcel4Macro(get.document(50)) For i = 2 To TotalPg Step 2 ActiveSheet.PrintOut from:=i, to:=i Next i End Sub 重新执行即可