当打印更长的工作表时,您可能渴望一种打印奇数页或偶数页的方法。不幸的是,Excel不包含此功能。但是,有两种方法可以解决此问题。

首先,如果您打印奇数页和偶数页的目的是双面打印,则可以检查打印机驱动程序以查看其是否可以进行双面打印,或者是否可以以某种方式仅打印奇数页或偶数页。这种方法使您可以完全绕开Excel。

绕过Excel的另一种方法是简单地从输出中创建PDF文件。然后,您可以打开PDF文件,并使用Acrobat或Adobe Reader打印奇数或偶数页面。

如果您想保留在Excel中,那么处理这种情况的最好方法可能就是提出一个可以处理打印的宏。

可以以多种方式访问​​这种宏。这是一个简短的例子:

Sub PrintOddEven()

Dim TotalPages As Long     Dim StartPage As Long     Dim Page As Integer

StartPage = InputBox("Enter starting page number")

TotalPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")

If StartPage > 0 And StartPage <= TotalPages Then         For Page = StartPage To TotalPages Step 2             ActiveSheet.PrintOut From:=Page, To:=Page, _               Copies:=1, Collate:=True         Next     End If End Sub

运行宏时,系统会要求您提供起始页码。在大多数情况下,您可以输入1或2,但实际上可以输入所需的任何页码。然后宏将打印起始页和从其开始的每隔两页。

如果需要,您还可以通过在Excel中创建两个自定义视图来打印奇数页和偶数页-一个用于奇数页,一个用于偶数页。您所需要做的就是为每个视图指定一个不连续的单元格范围(由奇数或偶数页中的单元格组成)作为您的打印区域。

例如,如果要定义一个由所有奇数页的单元格组成的打印区域,则可以执行以下操作:

。更改为分页符预览。

。使用鼠标选择第1页的所有单元格。 。选择第3页的所有单元格时,请按住Ctrl键。 。反过来,仍然按住Ctrl键,选择其他奇数页的所有单元格。

。将选定的单元格定义为打印区域。

选择打印区域后,保存视图。然后擦拭打印区域,使用相同的技术选择所有偶数单元,然后保存视图。现在,您可以打印两个视图,每个视图将仅包含奇数或偶数页面。这种方法的唯一缺点是Excel按顺序对打印的页面编号(1、2、3、4),而不是实际的编号(1、3、5、7)。

注意:

如果您想知道如何使用此页面(或_ExcelTips_网站上的任何其他页面)中描述的宏,我准备了一个特殊页面,其中包含有用的信息。

链接:/ excelribbon-ExcelTipsMacros [点击此处在新的浏览器标签中打开该特殊页面]。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧(8843)适用于Microsoft Excel 97、2000、2002和2003。可以在以下功能区中为Excel的功能区界面(Excel 2007及更高版本)找到本技巧的版本:

链接:/ excelribbon-Printing_Odd_or_Even_Pages [打印奇数页或偶数页]。