电子表格中如何打印奇数页
简述如何打印工作表的选定区域。
简述如何打印工作表的选定区域。
随着Excel的出现，许多工作都可以使用Excel来解决，Excel 用来制作表格，它可以根据需要对数据进行定制。
有时，您可能需要只打印工作表中的一部分数据，而不是整个工作表。
这时，您可以使用Excel提供的功能，即打印选定区域。
下面将简要介绍如何打印工作表的选定区域。
首先，打开Excel，然后打开您需要打印的工作表。
在Excel中，您可以选择要打印的区域。
选择要打印的区域时，可以把鼠标放在右上角的第一个单元格，然后按住鼠标左键，拖动到最后要打印的单元格，可以选择出整个要打印的区域。
接下来，打开您的打印机，可以选择印刷设置，包括打印的方向、纸张的尺寸、打印的页数等，然后点击确定。
接着，进入“文件”菜单，选择“打印”，Excel会显示一个打印窗口。
在这里，您可以查看有关此文档打印的信息，同时可以选择要打印的部分。
此时，点击右下角的“选定区域”按钮，弹出“选定要印刷的区域”对话框，点击“选取”，就可以选择到之前选定的区域，然后点击“确定”完成选定区域的操作。
最后，返回到“打印”窗口，点击“打印”，即可将所选的区域打印出来。
以上就是打印工作表的选定区域的简要步骤。
打印工作表选定区域可以减少纸张的浪费，还可以更好地保护数据安全。
Excel中打印工作表选定区域的步骤非常简单，欢迎大家不断去尝试学习，以获取
更好的结果。
如何在Excel中设置自动打印区域
如何在Excel中设置自动打印区域在Excel中，设置自动打印区域可以提高工作效率和打印准确度。
通过正确设置自动打印区域，可以确保只打印需要的数据，并且可以节省打印纸张和墨水的使用。
本文将向您介绍如何在Excel中设置自动打印区域。
一、打开Excel并选择工作表首先，打开Excel并选择您要设置自动打印区域的工作表。
请注意，不同的工作表可以有不同的自动打印设置。
二、选择要打印的区域在Excel中，您可以选择要打印的特定区域。
首先，单击并拖动鼠标以选择您要打印的区域。
您也可以使用Ctrl键配合鼠标单击选择多个区域。
三、进入页面设置在Excel的菜单栏中，找到“页面布局”或“页面设置”选项。
点击进入页面设置。
四、设置打印区域在页面设置中，选择“打印”选项卡。
您将看到一个“打印区域”或“区域”选项。
点击该选项。
五、设置自动打印区域在“打印区域”选项中，选择“自定义”或“自动”选项。
在某些版本的Excel中，您可能需要点击“编辑”按钮来设置自动打印区域。
六、设置自动打印区域范围在设置自动打印区域的对话框中，选择“输入”或“选择”选项。
然后，输入或选择您想要自动打印的区域范围。
您还可以设置其他打印选项，如打印方向、纸张大小等。
七、确认并保存设置设置完自动打印区域后，点击“确定”保存设置。
您可以预览打印效果，确保打印的内容符合您的需求。
八、打印工作表设置完成后，您可以直接打印工作表。
根据您所选择的自动打印设置，Excel将自动打印指定的区域。
您可以通过点击“打印”按钮或使用打印快捷键Ctrl + P来执行打印操作。
总结：通过正确设置自动打印区域，您可以在Excel中提高工作效率和打印准确度。
请确保在设置自动打印区域之前，正确选择工作表和要打印的区域。
通过页面设置中的“打印区域”选项，选择“自定义”或“自动”选项来设置自动打印区域。
最后，确认并保存您的设置，并执行打印操作。
希望本文对您在Excel中设置自动打印区域有所帮助。
excel2003设置打印奇数页的方法
excel2003设置打印奇数页的方法excel2003设置打印奇数页的方法设置打印奇数页步骤1：点击“文件——页面设置”，打开“页面设置”对话框设置打印奇数页步骤2：在“页面”选项卡中，单击“选项”按钮，打开打印机属性对话框设置打印奇数页步骤3：在“完成”选项卡中选择“双面打印”，完成页面设置。
设置打印奇数页步骤4：另外，在“文件——打印...”菜单中也可以完成设置。
设置打印奇数页步骤5：对于不同打印机，设置位置略有不同，参见下图：excel2003设置打印奇数页的方法图1excel2003设置打印奇数页的方法图2excel2003设置打印奇数页的方法图3 excel中巧用函数组合进行多条件的计数统计例：第一行为表头，a列是“姓名”，b列是“班级”，c列是“语文成绩”，d列是“录取结果”，现在要统计“班级”为“二”，“语文成绩”大于等于104，“录取结果”为“重本”的人数。
统计结果存放在本工作表的其他列。
公式如下：=sum(if((b2:b9999="二")*(c2:c9999>=104)*(d2:d9999="重本"),1,0))输入完公式后按ctrl+shift+enter键,让它自动加上数组公式符号"{}"。
excel中如何判断单元格里是否包含指定文本假定对a1单元格进行判断有无"指定文本",以下任一公式均可:=if(countif(a1,"*"&"指定文本"&"*")=1,"有","无")=if(iserror(find("指定文本",a1,1)),"无","有")excel中求某一区域内不重复的数据个数例如求a1:a100范围内不重复数据的个数，某个数重复多次出现只算一个。
优化Excel电子的技巧如何设置合适的打印区域和页面布局
优化Excel电子的技巧如何设置合适的打印区域和页面布局Excel是一款强大的电子表格软件，广泛应用于数据处理、数据分析和报表制作等各个领域。
在使用Excel时，合适的打印区域和页面布局对于提高效率和美化打印输出非常重要。
本文将介绍如何优化Excel电子表格的技巧，以及如何设置合适的打印区域和页面布局。
一、设置合适的打印区域在Excel中，我们可以通过设置打印区域来确定需要打印的数据范围，以便在打印输出时只打印所需的内容，从而节省纸张和打印时间。
1. 选择打印区域：要设置打印区域，首先需要选中需要打印的区域。
可以使用鼠标拖拽、按住Shift键加方向键选择多个区域，或者按住Ctrl键单击选择非连续的区域。
2. 设置打印区域：在Excel的菜单栏中点击“文件”，然后选择“打印”。
在打印设置中，找到“设置打印区域”的选项，点击“设置打印区域”按钮。
在弹出的对话框中，选择“选定区域”以打印我们之前选择的区域。
3. 预览打印效果：设置完打印区域后，可以点击“打印预览”按钮来查看打印效果。
如果需要调整打印区域，可以返回到之前的步骤重新选择和设置。
二、设置合适的页面布局合适的页面布局可以保证打印输出的效果符合我们的要求，使得表格易读、美观。
1. 页面设置：在Excel的菜单栏中点击“页面布局”，然后选择“页面设置”。
在弹出的页面设置对话框中，我们可以设置打印方向（纵向或横向）、纸张大小、页边距等。
2. 调整页面缩放：在页面设置对话框中，我们还可以通过调整页面缩放来控制表格在打印页面上的大小。
可以选择“适合”或者具体的百分比来调整页面缩放比例。
3. 设置打印标题：在Excel的菜单栏中点击“页面布局”，然后选择“打印标题”。
在弹出的“页眉/页脚设置”对话框中，我们可以设置需要在每页顶部和左侧显示的标题，如公司名称、报表名称等。
4. 调整打印排列顺序：在Excel的菜单栏中点击“页面布局”，然后选择“打印顺序”。
如何在Excel中设置打印的格式和样式
如何在Excel中设置打印的格式和样式在Excel中设置打印的格式和样式Excel是一款功能强大的电子表格软件，广泛应用于办公、教育和个人使用领域。
当我们需要将Excel表格打印出来时，合适的打印格式和样式可以使打印结果更加清晰、美观。
本文将介绍如何在Excel中设置打印的格式和样式。
一、页面设置在进行打印前，首先要进行页面设置，以确定打印的页边距、方向和纸张大小等。
以下是一些常用的页面设置选项：1. 页边距设置：点击“页面布局”选项卡中的“页边距”按钮，弹出“页面设置”对话框。
在该对话框中，可以调整上下左右的页边距大小，设置合适的边距能够让打印结果更加整齐。
2. 纸张大小设置：点击“页面布局”选项卡中的“纸张大小”下拉菜单，选择所需的纸张大小。
一般常用的有A4、A3、Letter等。
根据实际需求选择合适的纸张大小，以确保打印结果符合预期。
3. 打印方向设置：点击“页面布局”选项卡中的“页面设置”按钮，在“页面设置”对话框的“页面”选项卡中，选择合适的打印方向，如纵向或横向。
根据表格的内容和横向展示需求，选择适合的打印方向。
二、打印区域的设置在进行打印时，有时候我们只需打印表格的一部分，而不是全部内容。
为了避免浪费纸张和提高打印效率，我们可以设置打印区域，只打印需要的部分。
1. 单元格区域选择：选中需要打印的区域，可以是一列、一行或者多个单元格。
按住鼠标左键不放，拖动鼠标进行选择，选中后的区域会呈现虚线框。
选择好打印区域后，进入下一步的打印预览或直接进行打印。
2. 打印区域设置：点击“页面布局”选项卡中的“打印区域”按钮，在下拉菜单中选择“设置打印区域”。
在弹出的对话框中，选择需要打印的区域，点击确定即可。
三、打印样式设置Excel提供了多种打印样式供用户选择，包括网格线、行号、列标题等。
可以通过以下步骤进行打印样式的设置：1. 行列标题设置：点击“页面布局”选项卡中的“打印标题”按钮，在弹出的对话框中，选择需要打印的行或列标题。
excel表格打印技巧
excel表格打印技巧
以下是一些Excel表格打印的技巧：
1. 调整页面设置：在打印前，可以调整页面设置以适应内容，并选择横向或纵向打印方向。
2. 设置打印区域：如果只想打印表格的一部分，可以设置打印区域。
选择需要打印的区域，然后在“页面布局”选项卡上的“打印区域”中选择“设置打印区域”。
3. 调整列宽和行高：确保在打印时所有的列和行都能完整显示内容。
可以手动调整列宽和行高，也可以使用“自动调整列宽”和“自动调整行高”选项。
4. 设置标题行和列：在打印时，可以确保标题行和列在每一页都会显示。
在“页面布局”选项卡上的“打印标题”中选择要打印的标题行和列。
5. 设置页眉和页脚：可以在打印时在每一页的顶部和底部添加页眉和页脚。
可以在“页面布局”选项卡上选择“页边距”中的“页眉/页脚”选项。
6. 预览和调整打印尺寸：在打印之前，可以使用预览功能查看打印效果，并以适合页面或自定义尺寸打印。
7. 打印选定区域：如果只想打印表格中的特定区域，可以选择该区域，然后选择“文件”>“打印”>“打印选定区域”。
8. 打印图表和对象：如果表格中包含图表或其他对象，可以选择是否打印它们。
在打印预览中，选择“文件”>“打印”>“设置”>“Sheet”选项卡，然后选择是否打印图表和对象。
9. 打印网格线：如果想在打印时显示网格线，可以在“页面布局”选项卡上选择“网格线”复选框。
希望这些技巧对你有所帮助！。
excel2007打印奇数页的教程
本文整理于网络，仅供阅读参考
excel2007打印奇数页的教程
excel2007打印奇数页的教程打印奇偶数页步骤1：打开需要打印的excel表，在此表的界面点击“打印预览”
excel2007打印奇数页的教程图1 打印奇偶数页步骤2：在“打印预览”的界面点击“打印”
excel2007打印奇数页的教程图2 打印奇偶数页步骤3：在“打印内容”界面点击“属性”
excel2007打印奇数页的教程图3 打印奇偶数页步骤4：在弹出“属性”的对话框内找到“其他功能”按键并且点击它
excel2007打印奇数页的教程图4 打印奇偶数页步骤5：在“其他功能”的界面内，找到“打印顺序”选项
excel2007打印奇数页的教程图5 打印奇偶数页步骤6：点击“打印顺序”右边的倒三角，从中选择，打印的奇偶页
excel2007打印奇数页的教程图6 打印奇偶数页步骤7：以打印奇数页为例，选择“打印奇数页”，然后点击确定
excel2007打印奇数页的教程图7 打印奇偶数页步骤8：点击“确定”即可，打印偶数页按照以上步骤即可。
excel2007打印奇数页的教程图8看了excel2007打印奇数页的教程。
巧用宏实现Excel2003电子表格奇偶页分别打印
Ｅ ｍ ｉ ｘｊ ｃ ｃ ． ｔ ｎ — ａ ： ｓ ＠ ｃ ｅｎ ． ｌ ｌ ｅｃ
ｈｔｐ： ｗｗｗ． ｚ ． ｔｃ ｔ／ ／ ｄｎ ｓｎｅ．ｎ
Ｃ ｍｐ ｔ Ｋ ｏ ｌｄ ｅａ ｄ Ｔ ｃ ｎ ｌ ｙ电脑 知 识 与技术 ｏ ｕ ｒ ｎ ｗｅ ｇ ｎ ｅ ｈ ｏｏ ｅ ｇ
返 回
２ 开 始 求 制 动 作 ， 里 随便 做 一 下编 辑 操 作 ， 后 按 “ 制 ” 具 栏 上 的 “ 止 录 制 ” ） 这 然 录 工 停 按
来 实现 Ｅ ｃｌ 正 反 打 印 ， ｘｅ 的 并且 将 其 添加 到 常 用 工 具 栏 中， 根 本 上 解 决 了 问题 ． 从 ．
关 键 词 ：ｘｅ ０ ３ 奇 偶 打 印 ； Ｅ ｃｌ ０ ； ２ 宏
中 圈 分 类 号 ： ３ ７３ ＴＰ １ ． 文 献标 识 码 ： Ａ 文 章 编 号 ： ０ ９ ３ ４ （ ０ ００ —１ ７ — ２ １ ０ — ０ ４２ １ ） ６ ３ ５ ０
陈 宋 英． 荣
（ 西 交 通 职业 技 术 学 院 ， 西 南 昌 ３ ０ １ ） 江 江 ３ ０ ３
摘 要 ：ｘｅ ２ ０ Ｅ ｃ ｌ ０ ３是 功 能 非 常 强 大 的 电 子 表格 编 辑 软 件 ， 常 规 设 置 中却 没 有 分 奇 偶 页打 印 的 功 能 。 该 文 通 过 宏 以及 添 加 ＶＢ代 码 但
１第 一 步 ： 制 “ 人 宏 工 作 簿 ” 录 个
１ 打 开 Ｅ ｃ ｌ ０ ３ 载人 要 打 印 的 Ｅ ｃ ｌ 件 ， ） ｘｅ ２ ０ ， ｘｅ 文 首先 录 制 一 个 “ 人 宏工 作 簿 ” 后 面 的 代 码 中要 引用 该宏 。 执 行 “ 具 一 一 个 ， 工 宏 录制 新宏” 令 ， 开“ 命 打 录制 新 宏 ” 活 框 ， 图 １ 示 ． 称 为 “ ｃｏ ” 这 里 不பைடு நூலகம்做 修 改 。 对 如 所 ． 名 Ｍａ ｒ １ ， 然后 选择 将 其 保 存 在 “ 人 宏 工 作 簿 ” ， 个 中 确定 后
双面打印设置方法
双面打印设置操作法
第一步，CTRL+P。
第二步，点开“选项”，把“偶数降序”选上。
另外“逆序打印也点上”。
点“确定”返回。
如图。
第三步，选择“打印”中的“奇数页”，点“确定”。
打印出全部奇数页。
第四步，取出打印好的所有奇数页。
看看最后页的奇数页是否有对应的偶数页要打印，如果没有，就要拿出来。
比如，最后页奇数页是21页，但文档中没有22页，就要把这个21页拿出来。
第五步，在取出没有偶数页对应的奇数页后，把所有奇数页原封不动放入纸盒。
放置方法：有字一面朝上，字倒数放进去。
如图。
第六步，CTRL+P，选择“打印”中的“偶数页”，点“确定”。
打印完成。
只打印单数页的步骤
只打印单数页的步骤
打印单数页可以通过以下步骤完成：
1. 打开你想要打印的文档或文件，确保已连接到打印机。
2. 在打印设置中，选择“打印”选项。
3. 在打印设置窗口中，找到“页面范围”或类似的选项。
4. 在“页面范围”选项中，输入想要打印的页面范围。
例如，
如果你想要打印第1页、第3页和第5页，你可以输入“1, 3, 5”。
5. 确认设置后，点击“打印”按钮开始打印。
另外，如果你使用的是复印机，也可以在复印设置中选择单数
页进行打印。
这样就可以确保只打印单数页的文档。
希望这些步骤
能帮到你。
如何按指定的页数打印
如何按指定的页数打印
有时在打印一个工作表时，可能会出现打印超过一页，但另一页的数据又比较少，这样，我们可以调为一页打印，其操作步骤是：
1、单击相应的工作表。
2、单击“文件”菜单的“页面设置”命令，然后单击“页面”选项卡。
3、单击“调整为”选项。
4、键入打印工作表内容所需要的页数。
这样，打印的数据不会超出指定的页数范围。
注意：Excel 不会为了填满所有的页而放大数据。
在将工作表以指定的页数打印时，Excel 将忽略人工设置的分页符。
如何打印行号和列标
行号和列标用于定位工作表中信息的确切位置。
行号就是工作表中每一行左侧的数字；列标就是工作表中每一列顶端的字母。
一般在打印时都不会打印出来。
要使行号和列标能打印机出来，按以下步骤操作：
1、单击相应的工作表。
2、单击“文件”菜单中的“页面设置”命令，然后单击其中的“工作表”选项卡。
3、选中“行号列标”复选框。
Word2010中如何打印奇数页或偶数页
毕竟支持自动双面打印的打印机很少大多数情况下的打印机都是不支持双面打印的这个时候我们就必须来手动设置双面打印了
Word2010中 如 何 打
在办公中打印耗材是非常昂贵的，所以为了尽量节省纸张，我们往往会将一张纸正面和反面都用上（双面打印）。毕竟支持自 动双面打印的打印机很少，大多数情况下的打印机都是不支持双面打印的，这个时候我们就必须来手动设置双面打印了。
VBA｜Excel奇偶页打印
TotalPg = ExecuteExcel4Macro('Get.DOCUMENT(50)')
For i = 1 To TotalPg Step 2
ActiveSheet.PrintOut from:=i, to:=i
Next i
End Sub
代码分析：
第4行代码使用Excel4.0函数获取总页数，通过该函数获取总页数而无须判断分页符。
现有文档可打印的内容有17页，运行上述代码后，打印窗口如下：
2 按顺序打印偶数页
将上述代码中循环变量i的初值设置为2，即可以实现偶数页的打印。
第4行代码使用excel40函数获取总页数通过该函数获取总页数而无须判断分页符
VBA｜Excel奇偶页打印
Word提供了打印奇数页和偶数页的功能，而在Excel中却没有提供此项功能。使用VBA，用户能够在Excel中实现此项打印功能。
1 按顺序打印奇数页
Sub PrintOddPage()
Dim TotalPg As Integer
实现Execl文档分页双面打印(奇数页与偶数页的分项打印)
为什么要写出这个问题呢？因为，在word文档的打印过程中，打印设置里面有一个可选项为“全部”、“奇数页”、“偶数页”，而作为人们常用的execl文档，却没有这个功能，所以，必须采用“宏”来实现这个功能。
----------------------单击菜单工具->宏->录制新宏在弹出的录制新宏对话框中设定新的宏名“手动双面打印”将宏保存在“个人宏工作簙”中单击确定后，按停止录制宏按钮按“Alt+F11”进入Microsoft Visual Basic编辑器。
在编辑器中新建模块1，刚才录制的“手动双面打印”宏命令中输入如下代码（两条虚线之间的VB代码）：-------------------------------------Sub 手动双面打印()Dim Pages As LongDim myBottonNum As IntegerDim myPrompt1 As StringDim myPrompt2 As StringmyPrompt1 = "在打印时发生错误，请检查你的打印机设置"myPrompt2 = "请将出纸器中已打印好一面的纸取出并将其放回到送纸器中，然后按下""确定""，继续打印"Pages = ExecuteExcel4Macro("Get.Document(50)") '统计总页数On Error Resume NextIf (Pages = 0) Then '如果为零，说明没有可打印内容，退出程序MsgBox "Microsoft Excel 未发现任何可以打印的内容", 0 + 48 Exit SubEnd IfIf (Pages = 1) Then '判断是否只有一页，如果是，只打印第一页，然后退出ActiveSheet.PrintOutIf Err.Number = 1004 ThenMsgBox myPrompt1, 0 + 48 '提示用户发生打印错误End IfExit SubEnd IfFor i = 1 To Pages Step 2 '设置循环，打印奇数页ActiveSheet.PrintOut From:=i, To:=iIf Err.Number = 1004 ThenMsgBox myPrompt1, 0 + 48Exit SubEnd IfNext imyBottonNum = MsgBox(myPrompt2, 1 + 48) '提示用户取出纸张，确认后继续打印If (myBottonNum = 1) ThenFor j = 2 To Pages Step 2 '打印偶数页ActiveSheet.PrintOut From:=j, To:=jNext jEnd IfEnd Sub---------------------------------------按Alt+Q返回到工作表窗口，单击菜单工具”→“自定义”，在弹出的自定义对话框中选择“命令”选项卡，在命令选项卡中选择“宏”→“自定义按钮”。
word文档页面如何设置奇偶页打印
word文档页面如何设置奇偶页打印
推荐文章
word2016文档中文字字形和颜色如何设置热度：如何设置word2016文档中字体和字号热度：word文档画刀具的平面图如何设计热度：Word2016文档如何解决色块中文字显示不全热度：word2016文档怎么设置密码加密保护热度：
我们在打印Word文档的时候，有时候为了方便查看或者节省纸张资源，会正反两面打印文档内容，也就是奇数偶数页面是要分开打印的，具体要怎么设置参数呢?下面店铺马上就告诉大家Word设置打印奇数页或者偶数页的方法。
Word设置打印奇数页或者偶数页的方法
1.打开需要打印的Word文档
2.接着点击工具栏上方的的“Office按钮”然后点击进入打印页面选项。
3.进入打印设置页面后我们可以将打印的页面改为奇数页即可。
奇数页打印完毕后可以重新切换到偶数页进行打印。
2021表格设置逐份打印
2021表格设置逐份打印
设置表格逐页打印是一种确保打印输出按照每一页的内容进行排列的方法。
下面是一个在Microsoft Excel中设置表格逐份打印的简单步骤：
1.打开Excel文件：打开包含你表格的Excel文件。
2.选择打印区域：点击表格左上角的单元格，然后拖动鼠标选择整个表格区域。
3.进入页面布局视图：在Excel菜单栏中选择“页面布局”或“页面设计”选项卡，切换到页面布局视图。
4.调整打印设置：在页面布局视图中，找到页面设置或打印设置的选项。
在页面设置中，你可以设置页面方向、纸张大小等。
5.设置逐份打印：在页面设置中，找到“设置”或“页边距”选项。
通常会有一个“逐份打印”或“按行/列打印”的选项。
启用这个选项。
6.预览：在页面布局视图中，你可以预览每一页的内容，确保它们按照你的期望排列。
7.打印：完成设置后，点击页面布局视图中的“打印”按钮，选择打印机和其他打印选项，然后点击“打印”。
请注意，具体的选项和步骤可能略有不同，取决于你使用的Excel版本。
上述步骤是一般适用于Microsoft Excel2013及更新版本。
在其他表格软件中，类似的设置也可在页面布局或打印设置中找到。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
在百度上搜的——
启动Excel程序或打开一个Excel文件
单击菜单工具->宏->录制新宏
在弹出的录制新宏对话框中设定新的宏名“手动双面打印”
将宏保存在“个人宏工作簙”中
单击确定后，按停止录制宏按钮
按“Alt+F11”进入Microsoft Visual Basic编辑器。
在编辑器中的VBAProject(PERSONAL.XLS)中找到模块1并双击，然后在右侧的窗口中输入如下代码（两条虚线之间的VB代码）：
-------------------------------------
Sub 手动双面打印()
Dim Pages As Long
Dim myBottonNum As Integer
Dim myPrompt1 As String
Dim myPrompt2 As String
myPrompt1 = "在打印时发生错误，请检查你的打印机设置"
myPrompt2 = "请将出纸器中已打印好一面的纸取出并将其放回到送纸器中，然后按下""确定""，继续打印"
Pages = ExecuteExcel4Macro("Get.Document(50)") '统计总页数
On Error Resume Next
If (Pages = 0) Then '如果为零，说明没有可打印内容，退出程序MsgBox "Microsoft Excel 未发现任何可以打印的内容", 0 + 48
Exit Sub
End If
If (Pages = 1) Then '判断是否只有一页，如果是，只打印第一页，然后退出
ActiveSheet.PrintOut
If Err.Number = 1004 Then
MsgBox myPrompt1, 0 + 48 '提示用户发生打印错误
End If
Exit Sub
End If
For i = 1 To Pages Step 2 '设置循环，打印奇数页ActiveSheet.PrintOut From:=i, To:=i
If Err.Number = 1004 Then
MsgBox myPrompt1, 0 + 48
Exit Sub
1。