Excel页面设置没有该选项,重新设置较麻烦.如:
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
打开excel,按alt+F11,在工程窗口里找到当前的project,然后右键插入一个新模块,将代码粘贴进去,然后在“工具-宏-宏”里面找到PrintOddPage,按执行就可以了
打印偶数页只需将for循环改为i=2
有些用户要打印价格表,要求双面、多栏先直后横顺序打印。某软件用 Report Machine 很容易实现。虽然狐表有专业报表,但如果项目发布后交付用户使用,普通用户只能用Excel报表设计自己喜欢的打印格式。(如果用专业报表给每个客户设计报表,不累死才怪)
Excel报表如果能增加以下功能,就更完美了:
打印选择:打印奇数页、打印偶数页、打印当前页;多栏先直后横顺序打印