Excel宏设定双面打印
Excel宏设定双面打印
1、这个涉及到宏单击菜单工具→宏→录制新宏
2、在弹出的录制新宏对话框中设定新的宏名``随便``自己知道是啥就行将宏保存在个人宏工作簙中
3、单击确定后，按停止录制宏按钮
4、按“Alt+F11”进入Microsoft Visual Basic编辑器。在编辑器中新建模块1，在我们刚才录制的手动双面打印宏命令中输入如下代码
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 End If Next i myBottonNum = MsgBox(myPrompt2, 1 + 48) '提示用户取出纸张，确认后继续打印If (myBottonNum = 1) Then For j = 2 To Pages Step 2 '打印偶数页ActiveSheet.PrintOut From:=j, To:=j Next j End If End Sub
5、不用管他了``“按Alt+Q”返回到工作表窗口，单击菜单“工具”→“自定义”，在弹出的自定义对话框中选择“命令”选项卡，在命令选项卡中选择“宏”→“自定义按钮”。
6、拖动自定义按钮道任务栏上(也就是那个笑脸)，右键单击自定义按钮图标，在弹出的对话框中将“自定义按钮(&C)”更名为“手动双面打印(&C)”，然后再单击“指定宏”
7、在弹出的“指定宏”对话框中选择我们刚才创建的宏
8、所有工作已全部完成，随便打开任意工作簙单击刚创建的按钮试试，程序就会自动先打印所有奇数页，然后提示你取出纸张，确认后再打印所有偶数页，就像在使用Word的手动双面打印一样方便。
利用Word和Excel批量打印奖励
利用Word和Excel批量打印奖励（推荐好用） 用Word批量打印奖状、证书、成绩单、工资单的方法、 简单分以下四步: 1、创建数据库、主文档 2、打开或创建数据源 3、在主文档中插入合并域 4、将数据源中的数据合并到主文档中 具体操作如下： 如：***同志在2007年陕西省教育技术成果**评比中你制作的《***》被评为*等奖，特发此证，以资鼓励。陕西省教育厅2007年4月24日 其中*号为每个人不同内容，其他都一样。方法是： 第一步：建立数据库 新建一个excel电子表格，将每人姓名、成果类型、成果名称、评定等次，输入表格（注意不要省略表格中的标题行，以免邮件合并时找不到合并域名），保存名为“荣誉证.xls”后即可关闭以备后用。 第二步：建立荣誉证模板 新建一个word文件，输入：***同志在2007年XXX省教育技术成果**评比中你制作的《*******》被评为*等奖，特发此证，以资鼓励。 教育厅2007年4月24日，设计页面大小并打印找准位置，打印一个看排版合适，保存为“荣誉证.doc”（注：*号为要自动填写的内容而定） 第三步：邮件合并 1. 在刚建立的“荣誉证.doc”文件中，选择菜单栏的“视图/工具/邮件合并”，则出现“邮件合并”工具栏要常用工具栏下。 2. 在“邮件合并”工具栏中点击“获取数据”下拉按钮，选择“打开数据源(o)…”，在出现打开刚保存的excel电子表格“荣誉证.xls”，点击“确定”，这时你会发现在工具栏中多了一栏邮件合并工具栏。 4. 把光标置于要插入相应项目的位置如证书上要写的姓名位置，点击“插入域”下拉菜单（下拉菜单中的相应选项与“荣誉证.xls”表格中的标题行是一一对应的如“姓名”），
word和excel用邮件合并实现批量打印(整理)
利用邮件合并功能，通过以Excel文件作为数据源，批量生成word文档，比如批量制作信封、贺卡等。其中OFFICE版本为2003版，操作系统为XP。如操作系统和软件版本为其他版本，均可参考此法予以实现，大同小异。实现的方法有两种，其中第一种方法更好、更简单（大家别看我写的很多，操作起来其实非常简单，1分钟就可以搞定！）。 方法一、 Microsoft Office邮件合并——打印录取通知书操作方法： 第一步：准备数据源 这个数据源可以是Excel工作表也可以是Access文件，也可以是MS SQL Server 数据库。一言蔽之：只要能够被SQL语句操作控制的数据皆可作为数据源。因为邮件合并说白了就是一个数据查询和显示的工作。这里，我以Excel为例。下图是一个Excel工作表文件"DataSource"，里面有一个工作簿"录取通知书"，工作簿里面有三条数据记录，我们的任务就是把这三条记录按照指定的模板打印成录取通知书。
图一 第二步：准备模板 模板文件就是即将输出的界面模板，这里我以Word文档为例。 下图是一个模板文件"Template"，就是录取通知书的大致样子（大标题和序列号我就省了啊）。 图二 第三步：邮件合并 打开模板文件template.doc，从"工具"菜单中依次选择"信函和邮件" >> "显示邮件合并工具栏"，完毕之后工具栏上会多出一栏，就是邮件合并工具栏，如图，红色矩形框中的就是邮件合并工具栏。
图三 下面，step by step,follow me： 1.设置数据源 点击邮件合并工具栏上"设置数据源"的按钮（图三中第二个）（有些软件上的是“打开数据源”），选择"DataSource.xls"文件，单击打开，然后会再弹出一个"选择表格"的窗口，要求指定使用哪个工作簿，因为只有一个工作簿"录取通知书"，直接点击确定，完成数据源设置。
利用PDF阅读器来实现excel2013奇偶数页打印
利用PDF阅读器来实现 Excel2013奇偶数页打印 Excel2013打印选项一直没有奇数页，偶数页分开打印这个功能，导致老式打印机没有办法实现双面打印，先打奇数页，再翻转过来打偶数页，当然去网上搜索相关VBA代码也是比较简单的一种实现方法，方法很多，总之只要能实现自己想要的结果，找适合自己的方法就最好，现在我就把我的方法简要说明一下 简单来说： 就是通过创建PDF阅读文档，在PDF阅读器里面来实现奇偶分别打印以实现双面打印的要求。懂得看到这里就可以了。。。。。。 复杂的来说： 第一步：下载安装软件“福昕阅读器“ 第二补：打开excel或者word就能在菜单栏看到“福昕阅读器“的菜单选项 第三部：打开已经制作好的需要双面打印的excel2013的文件 第四部：点击菜单栏上的福昕阅读器
第五步：点击”创建P DF“—保存到你想要存储的位置（我一般保存在桌面方便使用）-点击确认保存后就会出现正在发布的菜单，等发布完毕以后，我们到保存的位置（桌面）就会看到刚刚创建的一个新的PDF文档 第六步：打开这个新创建的PDF文档 第七部：在PDF阅读器中点击文件——打印 第八步：在菜单里面找到“奇数页打印，偶数页打印”的选项，我们先选择奇数页打印-然后点击确定打印，开始打印奇数页
第九步：打印完毕以后我们只需要把打印的文件一起拿出来掉个头放到打印里面去，然后选择仅偶数页面，勾选下面的逆序打印（先前打印的奇数页顺序是1、3、5、7、9……）所以我们勾选“逆序”以后打印的顺序就是（……，10、8、6、4、2）这些倒置过来的顺序来打印，就可以保证打印的正反两面顺序对应不出错误。 第十步：OK打印完成，整理下打印完毕的文件，装订。
利用word和excel,批量打印证书
利用word和excel，批量打印证书 在Office中，先建立两个文档：一个WORD包括所有文件共有内容的主文档（比如未填写的信封等）和一个包括变化信息的数据源EXCEL（填写的收件人、发件人、邮编等），然后使用邮件合并功能在主文档中插入变化的信息，合成后的文件用户可以保存为Word文档，可以打印出来，也可以以邮件形式发出去。 邮件合并的应用领域： 1、批量打印信封：按统一的格式，将电子表格中的邮编、收件人地址和收件人打印出来。 2、批量打印信件：主要是从电子表格中调用收件人，换一下称呼，信件内容基本固定不变。 3、批量打印请柬：同上2。 4、批量打印工资条：从电子表格调用数据。 5、批量打印个人简历：从电子表格中调用不同字段数据，每人一页，对应不同信息。 6、批量打印学生成绩单：从电子表格成绩中取出个人信息，并设置评语字段，编写不同评语。 7、批量打印各类获奖证书：在电子表格中设置姓名、获奖名称和等资，在WORD中设置打印格式，可以打印众多证书。 8、批量打印准考证、明信片、信封等个人报表。 总之，只要有数据源（电子表格、数据库）等，只要是一个标准的二维数表，就可以很方便的按一个记录一页的方式从WROD中用邮件合并功能打印出来！ 实例—三好学生荣誉证书：（本例用邮件合并向导完成，还可以用邮件合并工具完成） 证书内容如：我校梁作明同学被评为2009年度三好学生光荣称号 我校吴加敏同学被评为2009年度三好学生光荣称号。。。。。。 1、创建电子表格，保存为“荣誉证书.xls”。如下图所示： 2、打开Microsoft Office Word 2003，在“工具”菜单中选择“信函与邮件”-- >“邮件合并”，出现邮件合并向导。如下图所示：
excel中打印的设定
excel中打印的设定 2010-07-27 14:46:43| 分类：默认分类| 标签：|字号大中小订阅打印Excel中的单列表格如果只打印Excel中的一个单列表格，相信有的朋友一定会为此而挠头，由于在Excel的页面设置中没有“分栏”这一功能，所以对于长长的一列在打印时就不太好办了，不过，利用Excel的同门师兄word，就可以将要这一列的内容横向排 列、逐行显示，具体的做法如下： 打开表格，复制要打印的某一列，然后点击菜单中的“文件→新建...→工作簿”，然后将复制的某一列粘贴到该工作簿的第一列中，点击“文件”下的“保存”，在弹出的保存窗口中，将“保存类型”选择为“文本文件（制表符分隔）（*.txt）”，然后点击“保存”，不要管弹出提示，点“确定”或“是”就把这个工作簿保存为“book1.txt”了。 下面打开word，点击菜单中的“文件→打开...”，在弹出的打开窗口中，将文件类型改为“所有文件(*.*)”，然后选择打开刚才保存的“book1.txt”，同样“book1.txt”在word窗口内显示的也是长长的一列文字，如果你的word没有将“视图”下的“显示段落标记”前的对勾去掉，你就会发现，在每一行的后面都会有一个段落标记，只要将这个段落标记替换成几个空格，不就可以横向显示这些文字了！对，就是这个 意思！ 下面点击“编辑”下的“替换”，在弹出的“查找和替换”窗口中，点“高级”展开高级查找的菜单，点击其中的“特殊字符”，在弹出的菜单
中选择“段落标记”，这样在“查找内容”项内显示的就是“^p”，当然也可以直接“查找内容”中输入“^P”，然后在“替换为”项内输入几个空格，具体数量视要打印的内容而定，最后点击“全部替换”，等出现替换完成提示后，再看word中的原本单列显示的文本，是不是已变成逐行显示了，下面只要再对这些文字进行一下调整、修饰，加上标题，就可 以打印了。 用好Excel的双面打印 编辑宏 第一步:启动Excel 2003(其他版本请仿照操作)，执行“工具→宏→Visual Basic编辑器”命令，进入Visual Basic编辑状态(如图1)。 第二步:在右侧的“工程资源管理器”区域中，选中“VBAProject(PERNOSAL.XLS)”选项，执行“插入→模块”命令，插入 一个新模块(模块1)。 小提示
excel表格批量打印的教程
竭诚为您提供优质文档/双击可除excel表格批量打印的教程 篇一：用word和excel批量打印技巧 用word和excel批量打印技巧 20xx-09-08 woRd邮件合并打印excel数据制作大量奖证、奖状、准考证、成绩单、明信片、信封等个人报表 在学校工作，难免会遇到各种证书打印。有很多证书是同类的，比如运行会的奖证，三好学生等等。这不全县三教征文结果出来了，一看550人的庞大队伍，这要是写或者人工排版，不定要划好长时间，对我这样的懒人来说宁肯划一天时间来研究一下偷懒的办法来完成半天的工作的，好在这次划的时间并没那么久，欣喜之余拿出来分享一下！ 设计思路：建立两个文件一个excel电子表格存放姓名和获奖等次等信息，一个woRd文件作为证书样版调用电子表格中的姓名和获奖信息，保持打印的格式一致！ 采用的方法：woRd的邮件合并功能 实施步骤： 1、创建电子表格，因为我的电子表格是从长阳教育网
下载的结果公示，已包含了获奖者的姓名、论文题目以及获奖等次等信息，因为要调用，标题以及不规范的非获奖记录行都要删除整理一下如图所示。 以上只列出了sheet1工作表部分名单，在整理过程中要删除空白行或无意义的行，以免出错！以上文件整理好以后以book1为名保存到桌面备用。 2、打开woRd20xx文字处理软件（2000版可能有所不一样），在“工具”菜单中选择----“信函与邮件”菜单----“邮件合并” 3、出现邮件合并向导： 选择右边向导中的“信函”复选框，下一步“正在启动文档”----默认的“当前文档”----下一步“选取候选人”----默认“使用现有列表”----下一步：“撰写信件”，到这里一直是下一步，到了这里，要选取数据源了，出来一个浏览窗口。 找到桌面上这个备用的电子表格文件，“打开”： 因为我们整理的数据在工作表1中，所以就选择第一个表： 选择表1所，我们要打印的数据出来了，“全选”后确定。这个数据表就可以使用了，下面接着讲如何安排这些数据到woRd中。 4、设计wRod中的格式：
Excel(2003版)手动双面打印设置步骤全图解(使用宏)
Excel（2003版）手动双面打印设置步骤全图解（使用宏）1.工具→宏→录制新宏 2.弹出对话框
3.更改宏名→确定 4.点击停止录制宏 5.工具→宏→Visual Basic编辑器，打开编辑器窗口
6.插入→模块 7.出现如图窗口 8.窗口中输入如下内容 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 End If Next i myBottonNum = MsgBox(myPrompt2, 1 + 48) '提示用户取出纸张，确认后继续打印If (myBottonNum = 1) Then For j = 2 To Pages Step 2 '打印偶数页 ActiveSheet.PrintOut From:=j, To:=j Next j End If End Sub 如图
Excel宏设定双面打印
Excel宏设定双面打印 1、这个涉及到宏单击菜单工具→宏→录制新宏 2、在弹出的录制新宏对话框中设定新的宏名``随便``自己知道是啥就行将宏保存在个人宏工作簙中 3、单击确定后，按停止录制宏按钮 4、按“Alt+F11”进入Microsoft Visual Basic编辑器。在编辑器中新建模块1，在我们刚才录制的手动双面打印宏命令中输入如下代码 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 End If Next i myBottonNum = MsgBox(myPrompt2, 1 + 48) '提示用户取出纸张，确认后继续打印If (myBottonNum = 1) Then For j = 2 To Pages Step 2 '打印偶数页ActiveSheet.PrintOut From:=j, To:=j Next j End If End Sub 5、不用管他了``“按Alt+Q”返回到工作表窗口，单击菜单“工具”→“自定义”，在弹出的自定义对话框中选择“命令”选项卡，在命令选项卡中选择“宏”→“自定义按钮”。 6、拖动自定义按钮道任务栏上(也就是那个笑脸)，右键单击自定义按钮图标，在弹出的对话框中将“自定义按钮(&C)”更名为“手动双面打印(&C)”，然后再单击“指定宏” 7、在弹出的“指定宏”对话框中选择我们刚才创建的宏 8、所有工作已全部完成，随便打开任意工作簙单击刚创建的按钮试试，程序就会自动先打印所有奇数页，然后提示你取出纸张，确认后再打印所有偶数页，就像在使用Word的手动双面打印一样方便。
excel双面打印设置
电子表格Excel怎样设置双面打印(奇偶打印) 用好Excel的双面打印 从节约的角度出发，公司的表格都要求双面打印。但Excel偏偏没有这一功能！怎么办？自己动手添加一个“双面打印”的按钮吧！ 编辑宏 第一步:启动Excel 2003(其他版本请仿照操作)，执行“工具→宏→Visual Basic编辑器”命令，进入Visual Basic编辑状态(如图1)。 第二步:在右侧的“工程资源管理器”区域中，选中“VBAProject(PERNOSAL.XLS)”选项，执行“插入→模块”命令，插入一个新模块(模块1)。 小提示 “PERNOSAL.XLS”叫做“个人宏工作簿”，第一次使用宏功能时，需要进入下述操作，添加“个人宏工作簿”:在Excel中，执行“工具→宏→录制新宏”命令，打开“录制新宏”对话框(如图2)，输入一个名称，然后选择将其“保存在”“个人宏工作簿”中，确定返回，随便做一下编辑操作，然后按“停止录制”工具栏上的“停止录制”按钮，系统即可自动添加“个人宏工作簿”。 第三步:双击“模块1”进入代码输入区域，将下述代码输入其中: Sub dy() On Error Resume Next x = ExecuteExcel4Macro("Get.Document(50)") For i = 1 To Int(x / 2) + 1 ActiveWindow.SelectedSheets.PrintOut From:=2 * i - 1, To:=2 * i - 1 Next i MsgBox "请将打印出的纸张反向装入纸槽中", vbOKOnly, "打印另一面" For j = 1 To Int(x / 2) + 1 ActiveWindow.SelectedSheets.PrintOut From:=2 * j, To:=2 * j Next j End Sub 第四步:输入完成后，关闭Visual Basic编辑窗口返回。 添加按钮 第一步:执行“工具→自定义”命令，打开“自定义”对话框(如图3)。 第二步:切换到“命令”标签下，在“类别”下面选中“宏”选项，然后将右侧“命令”下面的“自定义按钮”选项拖到工具栏合适位置上，添加一个按钮。 第三步:单击“更改所选内容”按钮，在随后展开的快捷菜单中，在“命名”右侧的方框中输入按钮名称(如“双面打印”，并选中“总是用文字”选项。 第四步:在不关闭“自定义”对话框的情况下，右击工具栏上刚才添加的“双面打印”按钮(参见图3)，在随后弹出的快捷菜单中，选择“指定宏”选项，打开“指定宏”对话框(如图4)。 第五步:选中上面编辑的宏，确定退出，再关闭“自定义”对话框返回Excel编辑状态
如何用Excel VBA批量打印文件
如何用Excel VBA批量打印文件 有时候一个文件夹内有很多Excel文件，几十个，上百个，如果一个个的打开，然后再打印，显然重复劳动，效率低下。 能不能用Excel VBA批量打印同一文件夹内的所有文件？ 答案当然是肯定的。 假设我们的桌面上有个名叫“材料”的文件夹，内有上百个EXCEL文件需要打印 打开EXCEL文件→Visual Basic编辑器（Alt+F11）→插入→模块 以下是VBA代码 ********************************************************************* ** Sub test() Set rrr = CreateObject("Scripting.FileSystemObject") Set r = rrr.GetFolder("C:\Documents and Settings\Administrator\桌面\材料") For Each i In r.Files Workbooks.Open Filename:=("C:\Documents and Settings\Administrator\桌面\材料\" + https://www.360docs.net/doc/1c1964811.html, + "") ActiveSheet.PageSetup.PrintArea = "" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True ActiveWindow.Close saveChanges:=False Next End Sub ********************************************************************* ************** 注释：ActiveSheet.PageSetup.PrintArea = "" 的目的是“取消打印区域” 因为有时候这些excel文件并不是我们自己写得，可能已经被别人设定好了打印区域，并保存在文件中，这是我们所看不到的。（好比方所，其中某个文件的主人由于需要，设定从Excel表的5行到第10行为打印区域，但是我们并看不到。当我们点击“文件”-->打印，把材料打印出来时，才发现打印的并不是整张表格，而是别人设定的打印区域，这显然不符合我们的要求，所以我们要取消打印区域）。 附：如果先是存在多级目录，大文件夹套很多小文件夹，小文件夹里装的才是文件，怎么办？
如何自己设置excel双面打印
编辑宏 第一步:启动Excel 2003(其他版本请仿照操作)，执行“工具→宏→Visual Basic编辑器”命令，进入Visual Basic编辑状态(如图1)。 第二步:在右侧的“工程资源管理器”区域中，选中“VBAProject(PERNOSAL.XLS)”选项，执行“插入→模块”命令，插入一个新模块(模块1)。 小提示 “PERNOSAL.XLS”叫做“个人宏工作簿”，第一次使用宏功能时，需要进入下述操作，添加“个人宏工作簿”:在Excel中，执行“工具→宏→录制新宏”命令，打开“录制新宏”对话框(如图2)，输入一个名称，然后选择将其“保存在”“个人宏工作簿”中，确定返回，随便做一下编辑操作，然后按“停止录制”工具栏上的“停止录制”按钮，系统即可自动添加“个人宏工作簿”。
第三步:双击“模块1”进入代码输入区域，将下述代码输入其中: Sub dy() On Error Resume Next x = ExecuteExcel4Macro("Get.Document(50)") For i = 1 To Int(x / 2) + 1 ActiveWindow.SelectedSheets.PrintOut From:=2 * i - 1, To:=2 * i - 1 Next i MsgBox "请将打印出的纸张反向装入纸槽中", vbOKOnly, "打印另一面" For j = 1 To Int(x / 2) + 1 ActiveWindow.SelectedSheets.PrintOut From:=2 * j, To:=2 * j
Next j End Sub 第四步:输入完成后，关闭Visual Basic编辑窗口返回。 添加按钮 第一步:执行“工具→自定义”命令，打开“自定义”对话框(如图3)。
用word和excel批量打印技巧
用word和excel批量打印技巧 2010-09-08 WORD邮件合并打印EXCEL数据制作大量奖证、奖状、准考证、成绩单、明信片、信封等个人报表 在学校工作，难免会遇到各种证书打印。有很多证书是同类的，比如运行会的奖证，三好学生等等。这不全县三教征文结果出来了，一看550人的庞大队伍，这要是写或者人工排版，不定要划好长时间，对我这样的懒人来说宁肯划一天时间来研究一下偷懒的办法来完成半天的工作的，好在这次划的时间并没那么久，欣喜之余拿出来分享一下！ 设计思路：建立两个文件一个Excel电子表格存放姓名和获奖等次等信息，一个WORD文件作为证书样版调用电子表格中的姓名和获奖信息，保持打印的格式一致！ 采用的方法：WORD的邮件合并功能 实施步骤： 1、创建电子表格，因为我的电子表格是从长阳教育网下载的结果公示，已包含了获奖者的姓名、论文题目以及获奖等次等信息，因为要调用，标题以及不规范的非获奖记录行都要删除整理一下如图所示。 以上只列出了Sheet1工作表部分名单，在整理过程中要删除空白行或无意义的行，以免出错！以上文件整理好以后以boo k1为名保存到桌面备用。 2、打开WORD2003文字处理软件（2000版可能有所不一样），在“工具”菜单中选择----“信函与邮件”菜单----“邮件合并”
3、出现邮件合并向导： 选择右边向导中的“信函”复选框，下一步“正在启动文档”----默认的“当前文档”----下一步“选取候选人”----默认“使用现有列表”----下一步：“撰写信件”，到这里一直是下一步，到了这里，要选取数据源了，出来一个浏览窗口。
找到桌面上这个备用的电子表格文件，“打开”： 因为我们整理的数据在工作表1中，所以就选择第一个表：
两个表格怎么连续打印
竭诚为您提供优质文档/双击可除两个表格怎么连续打印 篇一：excel工作表之间连续双面打印 excel工作表之间连续双面打印 1、首先把需要双面打印（前面的封面目录之类的需要单面打印的可以不设置）的工作表都在打印设置里面设置成“双面打印”，打印——属性，自己根据需要选择“长边装订”或者是“短边装订”，再点击“确定”。 2、需要注意的是，这个界面确定以后，回到打印的主界面就直接点击“关闭”就可以了，不要选择“确定”否则就直接打印出来了。用这种方法把所有工作表都设置完。 3、再选择“打印”——选择“整个工作簿”（或者用shiFt 键选中所要打印的工作表，但“打印内容”里要选择“活动工作表”），就可以直接打印了。 ok 篇二：excel打印多个工作表,页面不连续 改用vba完成打印 按住alt依次按f11,i,m粘贴下面代码后按 f5subprintall()dimsasworksheetForeachsinactiveworkb
ook.worksheets s.printoutnext endsub subprint1()dimiasinteger dimstrasstring Fori=1toworksheets.count str=i这个数字加1表示列表起始行，为0从第1行开始。 Foreachshtinworksheets a=a+1这个数字如果为2则隔行列表。 myindexsheet.cells(a,"a").Value=https://www.360docs.net/doc/1c1964811.html,引号中字母代表列表所在的列(下行同)，现为b列。 sht.hyperlinks.addmyindexsheet.cells(a,"a"),address :="",subaddress:=https://www.360docs.net/doc/1c1964811.html,times代表循环次数，执行前把times赋值即可(不可小于1，不可大于 2147483647)Fori=1totimes call打印一个表 ifRange("完成标志")="打印完毕"thenexitFor nexti endsub
用Excel和VBA轻松实现桌签批量打印
用Excel和VBA轻松实现桌签批量打印 用Excel来制作桌面标签（以下简称桌签）确实是一个比较新颖的方法，不过要是同时制作很多桌签也还是比较费时的。那么今天笔者就介绍一种用VBA轻松实现桌签批量打印的方法。 一、准备工作 ⒈启动Excel2003(其他单元格也可以)，执行“工具→自定义”命令，打开“自定义”对话框。在“命令”标签中，选中“类别”下面的“工具”选项，然后在“命令”下面找到“照相机”选项，并将它拖到工具栏合适位置上。 ⒉在Sheet1工作表中(最好将文档取名保存一下)，仿照图1的样式，在B列相应的单元格中输入需要打印桌签的名称，并在A1中输入一个名称。 ⒊在C1单元格(也可以是其他单元格)中输入公式:=COUNTA(B:B)，用于统计所要打印的桌签数目。 ⒋选中A1单元格，设置字符居中对齐，并设置一种适合用作桌签的字体(如魏碑体)。 二、制作桌签 ⒈选中A1单元格，单击一下工具栏上的“照相机”按钮，再切换到“Sheet2”工作表中，单击一下鼠标，即可得到一张A1单元格的照片 小贴士:这种照片不同于普通图片，它与A1单元格中的数据建立了链接，随A1单元格中的字符改变而改变。
⒉选中“照片”，执行“格式→图片”命令，打开“设置图片格式”对话框，在“颜色与线条”标签中，将“线条”设置为“无线条颜色”，点击“确定”返回。 ⒊根据桌签底座的尺寸，将“照片”调整至合适大小，并将它定位到页面合适位置上。 ⒋将上述“照片”复制一份，在“设置图片格式”对话框的“大小”标签中，将它“旋转→180°”，并将它定位到页面合适位置上(效果参见图2)。 三、编制宏程序 ⒈按下“Alt+F11”组合键，打开“Visual Basic编辑器”(图3)，在右侧的“工程资源管理器”区域中，选中“VBAProject(桌签.xls)”选项，执行“插入→模块”命令，插入一个模块(模块1)。 ⒉双击“模块1”，展开右侧的代码编辑区，将下述代码输入其中:Sub 桌签() '建立一个名称为“桌签”的宏。 For i = 1 To Sheet1.Cells(1, 3) '设立一个循环:开始值为1，结束值为Sheet1工作表C3单元格内的值(即桌签数目)。 Sheet1.Select '选中Sheet1工作表。 Cells(1, 1).V alue = Cells(i, 2).V alue '依次将B列的桌签字符调入A1单元格中。 Columns("A:A").Select '选中A列。 Selection.Columns.AutoFit '将A列设置为“最合适的列宽”，这样让字符不同的桌签自动适应“照片”的大小。
巧用Word和Excel批量打印成绩单
龙源期刊网 https://www.360docs.net/doc/1c1964811.html, 巧用Word和Excel批量打印成绩单 作者：何浩平潘伟珍 来源：《发明与创新.教育信息化》2016年第02期 在学校教育教学工作中，教师经常要面对大量的成绩通知单、奖状、准考证等的打印工作，大部分老师的做法是将姓名、成绩、获奖等级等栏目空着，待证书打印完毕后，再在空白处手工填写证书信息；或者是在每张证书的电子文档上逐一更改姓名、成绩等信息后再进行打印。这两种方法都费时费力，在繁杂而单调的重复劳动中，还容易出差错。如何解决这个问题呢？其实，利用Word和Excel结合，只需四步就可以轻松完成批量打印成绩单的任务。具体步骤如下（以学生素质报告单的打印为例）。 第一步：用Word建立通知单模板 根据学校要求，用Word文档设计出学生素质报告单的表格，暂且命名为“学生素质报告 单模板.doc”（如图1）。 第二步：用Excel录入学生成绩表 用Excel文档将学生成绩等信息录入学生成绩表。成绩表第1行只设标题（即字段名），成绩表中不要表头，也不能出现合并单元格；将每个学生的素质报告单所要填的不同数据或文字（如综合评价等）填入此表。暂命名为“学生素质报告单数据表.xls”（如图2）。 第三步：关联数据表与通知单模板 打开“学生素质报告单模板.doc”，依次选择Word菜单中的“视图＼工具栏＼邮件合并”（Word2007以上版本可以在菜单中直接选择“邮件/开始邮件合并”），选择“信函”，点击“打开数据源”（Word2007以上版本为“选择收件人”），在弹出对话框中找到并选择我们建立的“学 生素质报告单数据表.xls”，打开后如果有多个工作簿的话，选择成绩表对应的工作簿，如“成绩单”，并按“确定”。将鼠标定位到需要插入学生姓名的位置，单击“邮件合并”工具栏中的“插入域”（Word2007以上版本为“其他项目”），在弹出对话框中选择“姓名”，并点击“插入”“关闭”。这样，学生姓名位置就设置完毕。用同样的方法完成学生成绩、评价等设置，完成后效果如图3。 第四步：合并到新文档，进行适当调整后打印 在工具栏中选择“查看合并数据”（Word2007以上版本为“预览信函”），这时，点击前后 箭头即可对比查看合并数据前后的效果，如不满意，可对模板进行适当的调整。当调整合适后选择“合并到新文档”，即可生成一个包含所有通知单记录的Word文档，这时剩下的打印工作就很简单了。
excel添加按钮Excel 2007 添加 双面打印 按钮
excel添加按钮:Excel 2007 添加 双面打印按钮 疯狂代码 https://www.360docs.net/doc/1c1964811.html,/ ?:http:/https://www.360docs.net/doc/1c1964811.html,/Office/Article60972.html 大家知道在Word中可以将“奇数页”和“偶数页”分开打印从而实现多页文档“双面打印”效果但是在Excel中却没有这功能下面我们就以Excel2007为例为其添加个具有“双面打印”功能按钮 、展开“开发工具”选项卡 要在Excel中实现“双面打印”就要用到其内嵌VBA功能因此需要先展开“开发工具”选项卡 启动Excel2007单击左上角软件Software图标在随后出现下拉菜单中(如图1)选择“Excel选项”选项打开“Excel选项”对话框(如图2) 先在左侧选中“个性化设置”选项然后在右侧“使用Excel时采用首选项”下面选中“在功能区显示‘开发工具’选项卡”确定返回 2、生成“个人宏工作簿” 为了让“双面打印”按钮对所有工作簿都有效我们需要将其保存在“个人宏工作簿”中第次使用“宏”这个功能时需要先让软件Software生成个隐藏“个人宏工作簿” 切换到“开发工具”选项卡中单击其中“录制宏”按钮打开“录制新宏”对话框(如图3)输入下宏名称(如“smdy”)按“保存在”右侧下拉按钮在随后出现下拉列表中选择“个人宏工作簿”选项确定进入“宏”录制状态 不需要进行任何操作直接单击“开发工具”选项卡中“停止录制”按钮系统会自动生成个隐藏“个人宏工作簿” 特别提醒:以后需要在“个人宏工作簿”中编辑宏时就不需要再进入此步操作了
3、编辑“双面打印”代码 单击“开发工具”选项卡上“Visual Basic”按钮进入VBA编辑状态(如图4) 特别提醒:按“Alt+F11”组合键即可快速进入VBA编辑状态 在左侧“工程资源管理器”中展开“VBAProject(PERSONAL.XLSB)”选项(这就是“个人宏工作簿”)双击其中“模块1”然后用下述代码替换右侧编辑区中原有代码: Sub smdy On Error Resume Next x = ExecuteExcel4Macro("get.document(50)") For i = 1 To Int(x / 2) + 1 ExecuteExcel4Macro "PRINT(2," & 2 * i - 1 & "," & 2 * i - 1 & ",1,,,,,,,,2,,,TRUE,,FALSE)" Next i MsgBox "请将打印纸反向装入打印机中", vbOKOnly, "打印另面" For j = 1 To Int(x / 2) + 1 ExecuteExcel4Macro "PRINT(2," & 2 * j & "," & 2 * j & ",1,,,,,,,,2,,,TRUE,,FALSE)" Next j End Sub 输入完成后关闭VBA编辑窗口返回到Excel编辑状态 4、添加“双面打印”按钮 其实我们只要运行上面“smdy”宏就可以实现双面打印效果了但是为了操作上方便我们在“快速访问工具栏”上添加个“双面打印”按钮 右击左上角软件Software图标在随后出现下拉菜单中选择“自定义快速访问工具栏”选项打开“Excel选项”对话框并定位到“自定义”选项中(如图5) 单击“从下拉位置选择命令”右侧下拉按钮在随后出现下拉列表中选中“宏”选项将刚才编辑宏“PERSONAL.XLSB!smdy”“添加”到右侧快速工具栏中
wps表格怎么双面打印
竭诚为您提供优质文档/双击可除wps表格怎么双面打印 篇一：excel表格双面打印步骤 wps版excel表格双面打印的步骤 第一步：打开excel表格，鼠标点击文件---《页面设置》 第二步：在【页面】中选择纵向方向，100%比例，a4纸，如下图： 第三步：在【页眉/页脚】的页脚设置成第1页，如图：第四步：在【工作表】中的顶端标题行选择需要打印内容的标题，如图： 页面设置好后，点击『确定』 第五步：在属性栏中选择《打印》，在打印页面中选择打印机的类型，在页码范围选择『页』，点击勾上【手动双面打印】，在【纸张型缩放】那里选择适合的纸张，点【确定】 在打印机打出第一张纸时，再把纸张的第二面翻过来，点击电脑上的【确定】进行第二次的打印。 篇二：wps双面打印技巧
随着家用电脑的普及程度越来越高，普通的喷墨打印机也走进了千家万户，由于普通喷墨打印机价格低廉，其功能也相对较少，与高档的极光打印机相比，典型的就是不具备自动(wps表格怎么双面打印)双面打印功能。但是，家庭使用， 单面不仅有点浪费纸张。有没有办法设置一下，让普通喷墨也能双面打印呢？ 正是由于普通喷墨打印机自动双面打印功能的欠缺，大部分人又贪图一时方便，一页整洁的打印纸，只使用了单面，而另一面就无端的浪费了，并且人们对身边的这种浪费早已熟视无睹，这就有悖于国务院倡导的建设节约型社会的精神了。 虽说普通喷墨打印机不具有自动双面打印功能，而wps 却为我们提供了手动双面打印的辅助功能，手动双面打印的目的，就是要最大限度的节约纸张而提高其利用率。而在wps 中手动双面打印时装订线的设置，又成了一个不是“问题”的问题，为了便于装订，奇数页面的装订线一般都要求在页面的左侧，而偶数页面的装订线却要求是在页面的右侧，而在wps的页面设置中，其装订线默认设置只能是在页面的左侧或上侧（如图01），这对于双面打印时的偶数页面的装订线设置造成了极大的不便，双面打印也就只能是采用加大页面边距的办法来解决了,这样虽说是节约了纸张,却失去了
巧用EXCEL批量打印学生资助资金发放明白卡
巧用EXCEL批量打印学生资助资金发放明白卡 摘要：学生资助资金发放完成后，需要通过书面形式告知家长收到了多少资助 资金。笔者通过Excel中的VBA巧妙地实现了只通过EXCEL一个工具完成批量打 印的工作，为基层的学资助专干减压。 关键词：资助明白卡EXCEL 一、技术需求 学生资助是发展教育脱贫的重中之重，学生有没有及时获得资助金，事关人 民群众的教育获得感和幸福感，事关脱贫验收考核。目前，很多农村家庭孩子都 是由爷爷奶奶照顾，可能不能及时去银行查询资金是否到账。因此，湘西州提出 学生资助在每期资金发放后，要制作好《资助资金发放明白卡》，让家长全面掌 握各类资金发放明细，也让教育帮扶政策家喻户晓。 二、现状分析 以往，学校在制作《资助资金发放明白卡》时，都是通过批量印制空白的资 金发放明白卡模板，由班主任手工填写好后交给家长。这样操作不仅费时费力， 增加了班主任工作压力，还容易填错，不便于落实。后来，有人利用Word邮件 合并功能，与Excel联合实现批量套印，但操作复杂，需要具备较高的计算机应 用水平，而且一旦中途操作中断，不便于指定打印。为此，笔者探索使用Excel 中的VBA编程，制作出基于Excel的小工具，实现批量打印、指定打印、指定范 围打印。 三、实现过程 1.建立数据源。一般每个学校在学生资助资金发放完成后，都会有一个标准 汇总表，表格中包含学生年级、班级、姓名、发放金额、发放时间、发放资金账 户及名称等必要元素，我们只需要按照模板整理好，复制到发放名单表格中即可。 2.设计资助资金发放明白卡模板。我国自从2007年以来已经建立起了从学前 到大学阶段全覆盖的学生资助体系，每个学段均有不同的资助项目和资助标准， 批量打印程序必须有可以让使用者修改的灵活性，以便不同学段学校使用。 3.设计控制打印页面单元格。如图1所示，在M1中，输入“当前页面”。在 N1中输入“总页码”，在N2中输入“=COUNTA(发放名单!$A:$A)-1”。在P1中输入“指定结束页码”。完成后如图所示： 图1.设计好的控制打印页面单元格 4.完善模板中变量单元格。在年级对应的“B3”单元格中输入“=IF(INDEX(发放名 单!$A:$A,$M$2+1)=””,””,INDEX(发放名单!$A:$A,$M$2+1))” 在班级对应“D3”单元格中，输入“=INDEX(发放名单!$B:$B,$M$2+1)”（把发放 名单中B列对应的数据取出来）。在学生姓名对应“F3”单元格中输入“=INDEX(发 放名单!$C:$C,$M$2+1)”。后面的单元格以此类推即可。 5.设计控件按钮。首先为EXCLE添加开发者工具选项卡，此功能是高级应用，一般都是隐藏起来的。选择“文件”选项卡，然后从列表中选择“选项”，点击进去后，继续点击“自定义功能区”，在右侧，可以看到开发工具这个选项卡，将其勾 上点击确定即可。在控件工具箱中选“命令按钮”，并在模板的适当位置添加三个
最新excel数据表分页汇总与批量打印学习资料
Excel数据表分页汇总与批量打印 [文章信息] 作者: 陈秀峰原创 时间: 2004-10-25 出处: 天极网 责任编辑: Shiny [文章导读] Excel数据表格的分页汇总与批量打印，如果采取手工复制、粘贴的做法，不仅操作麻烦，而 且容易出现错误…… 图1是一份普通的Excel数据表，我们现在需要将其打印成如图2所示的样式，如果采取手工复制、粘贴的做法，不仅操作麻烦，而且容易出现错误。为此，笔者在此给出一种较为简便的解决方法，供大家参考。文章末尾提供.xls文件供大家下载参考。 （图片较大，请拉动滚动条观看） 处理过程： 1、启动Excel2003（其他版本请大家仿照操作），打开数据表。 2、切换到Sheet2工作表中，仿照图2所示的样式，制作好需要打印的表格表头的表尾。 3、选中A4单元格，输入公式：=A3+1，并用“填充柄”将其公式复制到A5至A22单元格中（此处假定每页打印20行数据）。 4、分别选中B3至H3单元格，依次输入公式：=IF(ISERROR(VLOOKUP($A3,数 据!A:H,2,FALSE)),"",VLOOKUP($A3,数据!A:H,2,FALSE))、=IF(ISERROR(VLOOKUP($A3,数
据!A:H,3,FALSE)),"",VLOOKUP($A3,数据!A:H,3,FALSE))……=IF(ISERROR(VLOOKUP($A3,数 据!A:H,8,FALSE)),"",VLOOKUP($A3,数据!A:H,8,FALSE))。 5、同时选中B3—H3单元格区域，用“填充柄”将上述公式复制到B4至H22单元格中。 6、分别选中E23和F23单元格，输入公式：=SUM(E3:E22)和=SUM(F3:F22)，用于统计当页工程的“建筑面积”和“造价”，达到分页汇总的目的。 7、执行“工具→宏→Visual Basic编辑器”命令，进入VBA编辑状态（如图3）。 注意：按下“Alt+F11”组合键，也可以快速进入VBA编辑状态。 8、选中“工程.xls”工作簿名称，执行“插入→模块”命令，插入一个新模块（模块1），然后将下述代码输入到右侧的空白区域中： Sub 分页打印() x = InputBox("请输入打印起始页码") '设置打印起始页码 y = InputBox("请输入打印结束页码") '设置打印结束页码 For i = x To y '设置一个循环 Cells(3, 1) = 20 * (i - 1) + 1 '在A3单元格中输入一个序号 ActiveWindow.SelectedSheets.PrintOut '执行一次打印操作 Next '进入下一个循环 End Sub 注意：在上述代码中，英文单引号“'”及后面的字符是对代码的解释，在实际输入的时候不需要输入。 9、输入完成后，关闭VBA编辑窗口，返回工作表中。 10、执行“视图→工具栏→控件工具箱”命令，展开“控件工具箱”工具条（如图4）。 11、单击工具条上的“命令按钮”按钮，然后在工作表中拖拉一下，画出一个命令按钮。 12、右击命令按钮，在随后出现的快捷菜单中，选择“属性”选项，打开“命令按钮属性”设置框（如图5）。