Excel如何制作双面座位签打印模板

巧用Excel2007制作双面座位台签打印模板

经常参加会议的朋友都会注意到，在主席台上落座的人员面前都一个表明身份的双面台签，比如“某某某”等，让人一看就知道谁是谁了。今天我们就介绍一下用Excel2007快速制作台签的好办法。

打开Excel，在Sheel1中选择以某一垂直线对称的表格区域，合并为两个大小一样的合并单元格。选中包含上一步中创建的两个合并区域，设为打印区域（“文件→打印区域→设置打印区域”）。在打印区域下方的某个单元格（图1中用的B17单元格）输入要打印的姓名，令前面两个合并区域分别等于这个单元格的值（两个合并单元格的值分别为“=B17”），如图1所示。

设置打印区内文字的方向，使左边的姓名向右倒，设为-90度（“格式→单元格→对齐→方向”）；右边的姓名向左倒，设为90度。调整文字大小和字体后的效果如图2所示。

将页面设置为“横向”，调整打印区域的大小和位置，在“打印预览”中得到满意的效果后，就大功告成了！如将第一个合并单元格的右边框显示为黑线的话，还可以作为打印后的对折线用。

最后将表格保存为模板，需要打印其他人的姓名，只要将打印区域外的姓名一改就OK了。

Word制作座位牌

Word制作座位牌 1．做个合适的底版 首先让我们打开Word，新建一个空白文件，在“页面设置”中把纸张大小设为B5（根据座位牌的实际大小选择纸张，一般小的座位牌一张B5纸可以打印两个，大的可选用A4纸），方向为横向，页边距都设为0（主要是为了省去做好后四周都裁剪的麻烦）。然后插入表格，设为2行、2列，调整表格大小（在表格属性中指定行高和列宽与座位牌高宽相同）。 2．插入美观的文字 现在在绘图工具栏中单击“插入艺术字”工具，打开“艺术字库”对话框，选择第一种类型，点击“确定”。在编辑“艺术字”文字对话框中，设置字体和字号。 接下来在“艺术字”对话框中点击“设置艺术字格式”工具，在对话框中把颜色和线条都设为黑色。文字大小可据座位牌大小设置，版式选择“浮于文字上方”（这样文字可以自由调整位置），再把文字调整到表格中间。 3．背面文字向后转

要让文字180度大旋转，首先把刚才的文字复制、粘贴到下一行第一个格的中间。然后选择第一个单元格中的文字，执行“绘图→旋转或翻转→向左旋转90度”，点击两次旋转180度。再用同样的方法在右侧再打一个人名即可。 4．打印出炉 可不能浪费纸张，打印之前，执行“文件→打印预览”，看看文字是否全能打出，如看不到边缘则需调整文字大小。注意，最后有非常关键的一步：把文件存为模板。以后打印其他人名时只要双击表格中的人名就会打开编辑“艺术字”文字对话框，直接输入文字，点击“确定”就行了，非常方便。 根据会议的具体内容和气氛，我们可以设置不同颜色和风格的艺术字，创作出醒目美观的座位牌，适当发挥自己的创造性。在打印时最好选用厚一些的红色纸，用彩色打印效果更佳。比如在联欢会上请的嘉宾，我们就别再用宋体了，换个活泼的字体，更显欢乐气氛！ 小提示： 正式场合需要正式的座位牌，否则会非常影响公司形象和会议效果。座位牌一般在文具用品柜台都有销售，几元一个，还有专业定制的公司，直接在网上搜索邮购或许能获得更多优惠并得到送货上门服务。如果是公司内部的小型会议或其他非正式场合，做个临时座位牌是很方便的：按照上面

利用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打印完成，整理下打印完毕的文件，装订。

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(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的手动双面打印一样方便。

用VBA编排学生座位表

< 用VBA编排学生座位表 (2011-09-10 23:10:47) 转载 分类：技术交流 标签： it 在每学年的新生开学前，班主任老师要做大量的准备工作，其中必做的一件事就是收集本班学生的报名信息，编排上课的座位表。以往班主任老师都是通过手工来编排座位表的，消耗的时间和精力相当大，一旦有学生进行了调整又不得不重复之前的劳动。下面我们就来看看如何用VBA轻轻松松实现座位表的编排。 通常情况下，编排座位表需要考虑以下三个因素，即学生的视力、身高、性别等，根据学生在报名表中填写的信息，我们采集了相关的数据（如图1）。 & 利用“控件工具箱”中的“命令按钮”控件在工作表中添加一个命令按钮，修改其“Caption”属性为“排座位”，双击该按钮，在其Click事件中编写下面的代码： Private Sub CommandButton1_Click() On Error GoTo err

Dim fenzu As Integer Dim irow As Integer Range("D2").Select '对信息表进行排序,关键字分别为视力、身高、性别 # Range("A3:E48").Sort Key1:=Range("E3"), Order1:=xlAscending, Key2:=Range( _ "D3"), Order2:=xlAscending, Key3:=Range("C3"), Order3:=xlAscending '删除原有的座位表 For Each sh In Worksheets If = "座位表" Then = False Sheets("座位表").Delete End If { Next sh '添加名为座位表的新工作表 after:=Sheets("学生信息") = "座位表" '获取分组数 fenzu = InputBox("你想把学生分成几个小组", "提示", 6) '获取学生总人数 icount = Worksheets(1).[a65536].End(xlUp).Row - 2 ' '获取每组最多学生人数 irow = Int(icount / fenzu) + 1 '按先行后列的顺序提取学生信息表中的学生名单 For n = 1 To irow For m = 1 To fenzu '生成第N组的文字(前面空2行用于显示标题) Worksheets(2).Cells(3, m) = "第" & m & "组" Worksheets(2).Cells(n + 3, m) = Worksheets(1).Cells(fenzu * (n - 1) + m + 2, 2) … Next m Next n

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双面打印

编辑宏 第一步:启动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)。

Word2010怎么制作学生座位表.doc

Word2010怎么制作学生座位表Word2010中制作学生座位表的方法： 1.打开Word文档，首先创建一个表格。选择插入- 表格- 插入表格命令。 2.在弹出的插入表格对话框中，根据实际需要设置表格的行数、列数，然后单击确定按钮。 3.选中表格，单击表格工具-布局- 表- 属性按钮。 4.弹出表格属性对话框，选择表格选项卡，单击选项按钮。 5.在弹出的表格选项对话框中，根据需要对单元格的上、下、左、右边距进行设置，勾选允许调整单元格间距复选框，在其后的微调框中设置一个合适的数值，这里输入2毫米，单击确定按钮。 6.回到表格属性对话框，选择表格选项卡，单击边框和底纹按钮。 7.弹出边框和底纹对话框，选择边框选项卡，在右侧的预览区中单击上、下、左、右框线使之不显示，在应用于的下拉框中选择表格项，单击确定按钮依次关闭弹出的对话框。 8.现在在每个单元格内输入学生姓名，基本的座位表就制作完成了。提示：也可以在插入表格后输入学生姓名。

word2010怎样设置纸张大小 设置纸张大小步骤如下： 步骤一：word2010的页面设置很重要，我们可以做个假设，如果你的页面设置能给你公司每个月节约50张的纸，那么一年将是一盒的纸，一个公司节约1盒的纸，那么一个地区呢?一个国家呢?效果将是不言而喻的。因此在做办公的时候，可以适当的页面设置，从而节约不少的纸张。 步骤二：word的页面设置主要包括四个部分，这四个部分是对页面设置很好的工具，比如纸张的大小，方向，页边距以及排版内的每页数与每行数。 步骤三：纸张的大小，这很重要，试想如果你的办公室用的事A4的纸，而你打印的是A3大小的文件，那么你所打印的文件就会偏离自己的预期，从而浪费了A4中空白部分，word2010很好的为我们描绘额纸张大小的功能，如图所示，是该功能的截图。 步骤四：设置纸张的方向，这点需要提下，纸张的方向，如果纸张的排版用横向的纸张比较好，那么可以将word2010的纸张设置成横向的纸张。这样可以根据情况来节省纸张。 步骤五：设置纸张的页边距，页边距的设置能够设置什么呢?主要设置的内容包括的内容有上下左右的页边距离、装订线的距离和位置等。如图所示 步骤六：此外可以设置每行的字数与每页的行数。这样能给我们自动的缩减每页的纸张大小与方向问题。可见这给word 的页面设置大小有很大的帮助。

两个表格怎么连续打印

竭诚为您提供优质文档/双击可除两个表格怎么连续打印 篇一：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.wendangku.net/doc/6f12219621.html,引号中字母代表列表所在的列(下行同)，现为b列。 sht.hyperlinks.addmyindexsheet.cells(a,"a"),address :="",subaddress:=https://www.wendangku.net/doc/6f12219621.html,times代表循环次数，执行前把times赋值即可(不可小于1，不可大于 2147483647)Fori=1totimes call打印一个表 ifRange("完成标志")="打印完毕"thenexitFor nexti endsub

excel添加按钮Excel 2007 添加 双面打印 按钮

excel添加按钮:Excel 2007 添加 双面打印按钮 疯狂代码 https://www.wendangku.net/doc/6f12219621.html,/ ?:http:/https://www.wendangku.net/doc/6f12219621.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），这对于双面打印时的偶数页面的装订线设置造成了极大的不便，双面打印也就只能是采用加大页面边距的办法来解决了,这样虽说是节约了纸张,却失去了

WORD和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

电子表格“Excel奇偶页打印”设置办法

电子表格“Excel奇偶页打印”设置办法 启动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 End If Next i

巧用EXCEL制作会议座位表

大型会议座次图等证表卡 生成步骤

目录 一、《座次图》自动生成模块 (03) 二、《签到索引表》自动生成模块 (11) 三、桌牌自动批量生成模块 (13) 四、《出席证》自动批量生成模块 (16) 五、《合影站位图》自动生成模块 (19) 六、《宴请就座图》自动生成模块 (21) 七、本系统的优越性 (24) 八、其他技巧 (25) 结束语 (25)

一、《座次图》自动生成模块 （一）原理 传统方法的原理本文所介绍方法的原理 《座次图》自动生成模块的原理，可以概括成“位置—编号—人名”。是对参会人员和会场里的每个座位都进行编号，将相同编号的人名与座位建立一一对应联系，使人名能够自动填写到相同编号对应的会场座位中去。依照此方法建立的座次图，数字编号是核心要素，借助于EXCEL软件所拥有得数字处理优势，大大提升速度和准确性。 （二）主要步骤 由于使用现代人举例容易不恰当不准确，本文虚拟了《水浒传》中梁山108位好汉开招安大会的例子来介绍座次图的制作。准备工作：打开一个EXCEL文件，将左下角三个选项卡分别改名为《人员名单》、《数字布局图》和《座次图》。然后开始以下三个步骤： 第一步，在《人员名单》选项卡中，收录所有参加会议的人员，并按照既定的规则从前往后依次编号（见图1）。这里所说的规则，虽然不同类型的单位略有不同，但一般都是按照职级高低、身份尊卑从前向后排列的，即使是平级，也有大致固定的排列顺序，如内部的电话本、人员名册等。梁山108个好汉是以第71回所挖出的石碣碑为依据排序的。 顺序排列好之后，可以请领导审阅过目，遇到顺序不对、人名

出错、由于特殊原因需要将一些人提前、放后等情况时，都可以比较容易的调整，然后重新编号。一般情况下编号为纯数字，遇到有发言、领奖等特殊情况时可将这些人单独变编号，如“发1、发2……”，除此之外的其他人员再按数字排列。 图1 ★请注意：当姓名为两个字时（如“宋江”），要在两字中间加1个空格，而不是2个空格。 ★本例中，请特别留意：“编号”在“A列”，“姓名”在“B列”。“徐宁”的编号是18号，“阮小七”的编号是31号。

Word制作座位牌

W o r d制作座位牌 Prepared on 22 November 2020

Word制作座位牌 1．做个合适的底版 首先让我们打开Word，新建一个空白文件，在“页面设置”中把纸张大小设为B5（根据座位牌的实际大小选择纸张，一般小的座位牌一张B5纸可以打印两个，大的可选用A4纸），方向为横向，页边距都设为0（主要是为了省去做好后四周都裁剪的麻烦）。然后插入表格，设为2行、2列，调整表格大小（在表格属性中指定行高和列宽与座位牌高宽相同）。 2．插入美观的文字 现在在绘图工具栏中单击“插入艺术字”工具，打开“艺术字库”对话框，选择第一种类型，点击“确定”。在编辑“艺术字”文字对话框中，设置字体和字号。 接下来在“艺术字”对话框中点击“设置艺术字格式”工具，在对话框中把颜色和线条都设为黑色。文字大小可据座位牌大小设置，版式选择“浮于文字上方”（这样文字可以自由调整位置），再把文字调整到表格中间。 3．背面文字向后转

要让文字180度大旋转，首先把刚才的文字复制、粘贴到下一行第一个格的中间。然后选择第一个单元格中的文字，执行“绘图→旋转或翻转→向左旋转90度”，点击两次旋转180度。再用同样的方法在右侧再打一个人名即可。 4．打印出炉 可不能浪费纸张，打印之前，执行“文件→打印预览”，看看文字是否全能打出，如看不到边缘则需调整文字大小。注意，最后有非常关键的一步：把文件存为模板。以后打印其他人名时只要双击表格中的人名就会打开编辑“艺术字”文字对话框，直接输入文字，点击“确定”就行了，非常方便。 根据会议的具体内容和气氛，我们可以设置不同颜色和风格的艺术字，创作出醒目美观的座位牌，适当发挥自己的创造性。在打印时最好选用厚一些的红色纸，用彩色打印效果更佳。比如在联欢会上请的嘉宾，我们就别再用宋体了，换个活泼的字体，更显欢乐气氛！ 小提示： 正式场合需要正式的座位牌，否则会非常影响公司形象和会议效果。座位牌一般在文具用品柜台都有销售，几元一个，还有专业定制的公司，直接在网上搜索邮购或许能获得更多优惠并得到送货上门服务。如果是公司内部的小型会议或其他非正式场合，做个临时座位牌是很方便的：按照上面的步骤将姓名

用Excel表格怎么样排学生座位

用Excel表格怎么样排学生座位 第一步启动Excel2003(其他版本操作类似)，新建一个名为“排 座位”的工作簿，在这个工作簿中主要包括两个工作表——“学生 名单”和“座位表”，先在“学生名单”工作表中输入学生的一些 基本信息，最后再添加一个“排位”按钮(如图1)。 (图1) 第二步“排座位”工作簿“学生名单”工作表中的学生数据输入完毕后，以“身高”或者“视力”为标准对输入的学生数据进行升 序排序。具体方法是：先选中“身高”或者“视力”所在的某列单 元格，然后单击工具栏中的“升序排序”按钮，在弹出的“排序警告”窗口中单击“排序”按钮即可。 第三步按下“Alt+F11”快捷键，调出“VisualBasic编辑器”，在“VisualBasic编辑器”窗口中，右击“ThisWorkBook”，选择“插入→模块”命令，插入一个模块，并在右边的代码窗口中输入 以下代码： Subpaizuo() Sheets("座位表").Select'激活“座位表”工作表 DimGroupAsInteger'定义表示组数的变量Group Group=Val(InputBox("本班学生分为几组?"))'将输入的数字赋 给变量Group Zuoci(Group)'调用Zuoci函数对学生进行排座 Sheets("座位表").Select EndSub SubZuoci(groAsInteger) DimiAsInteger,jAsInteger'定义循环变量

Sheets("学生名单").Select'激活“学生名单”工作表 DimIrowsAsInteger,IcolsAsInteger,IxsAsInteger'定义“座位表”行变量，列变量，及"学生名单"学生行变量 Irows=60/gro'初始化行变量 Icols=gro'初始化列变量 Ixs=1'初始化“学生名单”学生行变量 Fori=1ToIcols'第一位学生自第2行开始 Ixs=i+1 Forj=2ToIrows+2 Sheets("座位表").Cells(j,i)=Sheets("学生名单 ").Cells(Ixs,1)'给座位表赋值 Ixs=Ixs+gro'下一个学生为当前第gro个学生 Nextj Nexti EndSub 代码输入完毕后，退出VisualBasic编辑器。 第四步右击图1窗口中的“排位”按钮，选择“指定宏”，打开“指定宏”窗口，选中“paizuo”宏，最后单击“确定”。 完成了以上步骤的操作之后，退出、保存并重新打开“排座位”工作簿，单击“学生名单”工作表中的“排位”按钮，这时就会弹 出一个询问全班学生要分为几组的窗口(如图2，A处所示的窗口)， 在该窗口的文本框中输入对应的数字(如“6”)，再单击窗口中的 “确定”按钮，这时就可以看到“座位表”工作表中的排位效果了，如图3，B处所示的窗口。 (图2)