请问如何在excel中实现只打印奇数页或者偶数页?

来源：学生作业学帮网 编辑：学帮网 时间：2024/05/07 07:32:33

请问如何在excel中实现只打印奇数页或者偶数页?

Sub PrintOddPage()
Dim TotalPg As Integer
TotalPg = ExecuteExcel4Macro("GET.DOCUMENT(50)")
For i = 1 To TotalPg Step 2
ActiveSheet.PrintOut From:=i,To:=i
Next
End Sub
这个是宏.是打印奇数页的.把For i = 1 To TotalPg Step 2改为For i = 2 To TotalPg Step 2就变为打印偶数页了.

请问如何在excel中实现只打印奇数页或者偶数页? 如何在SPSS或EXCEL中实现等距抽样,具体一点, 如何在word2003中打印偶数页 如何在EXCEL表格中实现数字反排 Excel表格打印怎么设置打印奇数页或偶数页? word2007无法选择奇数或偶数页打印 如图 EXCEL怎么设置奇数页打印和偶数页打印 excel里的表格怎么打印偶数页或奇数页?请告知详细些. 如何在EXCEL中实现四舍五不入去处EXCEL表格中的数字后的小数点,如何能实现四舍五不入 请问如何在EXCEL中算方差和标准差 请问一下如何在excel中计算公式的值? 请问如何在excel中计算公式的值? 怎么只打印批量打印文件夹中word中的奇数页文件夹中有很多word文档,如何先批量打印奇数页,在批量打印偶数页 如何在ARCGIS中建立数据库如何在ARCGIS中建立小型数据库,导入ACCESS格式或EXCEL的数据? 如何在excel中求标准差, 如何在excel中一格写两行字 如何在Excel中计算同比,增长率 如何在Excel中计算同比,增长率