Excel宏设定双面打印

自定义Excel表格的打印使用方法自定义Excel表格的打印使用方法自定义Excel表格的打印纸张默认状态下打印 Excel 文档，纸张类型为 A4 纸。

若没有 A4 型纸张，可重新设置表格的打印纸张，具体操作如下。

（1）打开需要打印的文档，单击“文件→页面设置”命令，打开“页面设置”对话框。

（2）选择“页面”选项卡，在“纸张大小”框下拉菜单中选择合适的纸张。

（3）单击“选项”按钮，从打开的对话框中还可自定义手功设置页面的宽度与高度。

用Excel表格实现机打支票对于财务人员来说填写支票是一项重要的日常工作。

使用电脑进行支票套印既可减少工作量，又能有效地避免填写失误，显然是个不错的选择。

下面就以Excel2003为例介绍一下套印支票的具体操作。

一、精确设置套印位置为了获得支票图样，你需要一台扫描仪或数码相机。

把支票放入扫描仪，扫描分辨率设定为100dpi、缩放比100。

在预览图形上调整扫描区域框使它尽量靠近支票边，或者在扫描后再用图形处理软件进行修剪。

最后把扫描的图像处理后保存为ZP.bmp。

编注：如果用数码相机拍照，可以将照片在Photoshop软件中放大尺寸，使它和实际的支票尺寸相同。

1．设置定位背景启动Excel，单击菜单栏的“格式/工作表/背景…”打开工作表背景对话框，把刚才保存的ZP.bmp设定为背景。

单击工具栏上显示比例的下拉列表框，把显示比例设定为106%。

注：106%的比例是这样得来的。

在把扫描的支票图设置为电子表格背景后，设置显示比例为100%，用绘图工具栏中的“矩形”工具画一个与背景支票等高的矩形，打印出来。

量得打印出的矩形高为8.5厘米，直接量取支票的高度为8厘米，8.5÷8=106%就是所需的`比例。

2．设置界面及数据定位通过拖动行、列标题的边界调整行高列宽，再配合使用格式工具栏中的“合并及居中”按钮，让支票中要每个要填写的位置均正好与一个单元格重合。

对于日期的年月日、小写金额的个十百千的格子都只要合并在一个单元格就够了。

Excel2022添加一个“双面打印按钮E某CEL函数小技巧大家知道，在Word中可以将“奇数页”和“偶数页”分开打印，从而实现多页文档的“双面打印”效果。

但是，在E某cel中却没有这一功能。

下面，我们就以E某cel2007为例，为其添加一个具有“双面打印”功能的按钮。

一、展开“开发工具”选项卡要在E某cel中实现“双面打印”，就要用到其内嵌的VBA功能，因此，需要先展开“开发工具”选项卡。

启动E某cel2007，单击左上角的软件图标，在随后出现的下拉菜单中(如图1)，选择“E某cel选项”选项，打开“E某cel选项”对话框(如图2)。

E某CEL函数小技巧先在左侧选中“个性化设置”选项，然后在右侧“使用E某cel时采用的首选项”下面选中“在功能区显示‘开发工具’选项卡”，确定返回。

二、生成“个人宏工作簿”为了让“双面打印”按钮对所有工作簿都有效，我们需要将其保存在“个人宏工作簿”中。

第一次使用“宏”这个功能时，需要先让软件生成一个隐藏的“个人宏工作簿”。

切换到“开发工具”选项卡中，单击其中的“录制宏”按钮，打开“录制新宏”对话框(如图3)。

输入一下宏名称(如“mdy”)，按“保存在”右侧的下拉按钮，在随后出现的下拉列表中，选择“个人宏工作簿”选项，确定进入“宏”录制状态。

E某CEL函数小技巧不需要进行任何操作，直接单击“开发工具”选项卡中的“停止录制”按钮，系统会自动生成一个隐藏的“个人宏工作簿”。

特别提醒:以后需要在“个人宏工作簿”中编辑宏时，就不需要再进入此步操作了。

三、编辑“双面打印”代码单击“开发工具”选项卡上的“ViualBaic”按钮，进入VBA编辑状态(如图4)。

特别提醒:按“Alt+F11”组合键，即可快速进入VBA编辑状态。

在左侧“工程资源管理器”中，展开“VBAProject(PERSONAL.某LSB)”选项(这就是“个人宏工作簿”)，双击其中的“模块1”，然后用下述代码替换右侧编辑区中的原有代码:Submdy()OnErrorReumeNe某t某=E某ecuteE某cel4Macro("get.document(50)")Fori=1ToInt(某/2)+1E某ecuteE某cel4Macro"PRINT(2,"&2某i-1&","&2某i-1&",1,,,,,,,,2,,,TRUE,,FALSE)"Ne某tiMgBo某"请将打印纸反向装入打印机中",vbOKOnly,"打印另一面"Forj=1ToInt(某/2)+1E某ecuteE某cel4Macro"PRINT(2,"&2某j&","&2某j&",1,,,,,,,,2,,,TRUE,,FALSE)"Ne某tjEndSub输入完成后，关闭VBA编辑窗口返回到E某cel编辑状态。

Excel中双面打印的方法Excel中双面打印的方法可以通过修改注册表的方法来解决这个问题：1、打开注册表编辑器方法：开始 -> 运行 -> 输入regedit -> 确定2、找到注册表子项HKEY_CURRENT_USERSoftwareMicrosoftOffice12.0ExcelSec urity3、在右侧空白处点击鼠标右键，选择“新建-> DWORD值(D)”，输入“ExtensionHardening”点击确定。

4、用鼠标右键点击ExtensionHardening，然后单击“修改（M）”，在数值数据中填写“0”即可确定。

5、关闭注册表编辑器，再次打开xls文件看看是不是提示是不是不见了？备注小知识：ExtensionHardening设置的值的数据设置：* 0：不检查文件扩展名和文件类型并绕过该函数的警告消息。

* 1：检查文件扩展名和文件类型。

如果它们不匹配会显示警告消息。

* 2：检查文件扩展名和文件类型。

如果它们不匹配不要打开该文件。

Excel中双面打印的方法技巧1.首先从网上下载安装一个小插件ExcelPrinter；2.打开Exce切换到“加载项”选项，你会发现比原来多出了“手动双面打印”和“打印当前页”这两项工具按钮；3.单击“手动双面打印”，再单击打印按钮进行打印。

Excel会先把1、3、5……等单页的内容发送到打印机打印，打印完单页后会弹出一个对话框提醒换一面打印，按对话框中提示，将出纸器中已打印好一面的纸掏出并将它们放回到送纸器中，然后按下“确定”，则可打印出双页内容。

方法一、Excel分别对AB列两列数据对比，比如A2=B2，就返回相同，否则返回不相同。

C2公式为：=IF(A2=B2,"相同","不同")，这样就可以实现excel两列对比。

不过细心的朋友会发现，A5和B5实质上有大小写区分的，因此使用这个公式不是完全准确。

每页打印两版正反双面打印的设置技巧设置纸张A4，横向
二、修改以下设置：
1、每张纸上放置多页。

2、每页版数：自定义2× 1。

3、打印顺序：横向。

4、页边距可修改为0。

5、打印范围：第一次打印正面设置为1,2,5,6,9,10,⋯，取消逆序打印；第二次打印反面设置为3,4,7,8,11,12,⋯，并设置逆序打印。

如下图
三、细节1：看一下总页数，如是奇数页，打印反面的时候要记得把最后一页拿出来。

另外正面和反面的顺序不要弄反了，方法是可先打印几张，比如两张纸，正面打印好后，注意顺序，再打印反面，注意放纸的顺序。

细节2：打印设置，第一次设置为1,2,5,6,9,10,⋯，第二次设置为
3,4,7,8,11,12,⋯，如果有几百页，手动输入太麻烦了，解决这个问题我是这么做的。

第一步：打开excel, 先填
充前两行然后向下填充到总页数为止
第二步：然后隔一行插入一行，再把第2、4 列向下移一行。

第三步：再填充E列“ =A1 & B1” F列“ =C1 &D1”.
第四步：把E、F列复制粘贴数值，再转置。

第五步：把第一行粘贴到记事本中，用查找替换删除中间的空格，得到
1,2,5,6,9,10,⋯，就可以复制到打印的对话框中进行打印了。

以上方法在PDF、word中都可以用，大家不妨一试。

' TotalPages就是总页数' Step是计算步长，这里i每次加2For i=1 To TotalPages Step 2' 打印 i 页Next i这里很明显将打印1、3、5、7、9这样的奇数页，如果是2、4、6、8、10这样的偶数页该怎么办呢，可以看出步长依旧是2，只是起始从2开始了，那么i初始应该设置为2。

通过PrintOut方法就能进行打印了，这里我们默认打印选中的Sheet，所以使用ActiveWindow.SelectedSheets：' TotalPages就是总页数' Step是计算步长，这里i每次加2' 打印奇数页For i = 1 To TotalPages Step 2ActiveWindow.SelectedSheets.PrintOut From:=i, To:=iNext i为了通用，我们将上面的方法封装成一个Sub过程：' StartPage 要打印的起始页' TotalPages 要打印的总页数' SkipPages 每次打印跳过的页数Sub PrintSheet(ByVal StartPage As Integer, _ByVal TotalPages As Integer, _ByVal SkipPages As Integer)For i = StartPage To TotalPages Step SkipPages+1ActiveWindow.SelectedSheets.PrintOut From:=i, To:=iNext iEnd Sub这里步长为了便于理解被我改为SkipPages，跳过的页数，比如步长2，也就是说每次跳过1 页。

好，到这里基本上是万事俱备只欠东风了，这个东风也就是如何获取打印的总页数，其实我们可以通过Excel内置宏GET.DOCUMENT获取，其中参数是50，表明“当前设置下欲打印的总页数，其中包括注释，如果文件为图表，值为1”。

Excel打印设置技巧大全没有打印机一样可以打印预览在没有安装打印机的电脑上按下Excel的“打印预览”按钮后，Excel会却提示没有安装打印机，且无法打印预览。

其实，只要单击“开始”→“设置”→“打印机”，然后双击“添加打印机”项目，再随便安装一个打印机的驱动程序。

重启Excel，就会发现已经可以打印预览了。

打印指定页面一个由多页组成的工作表，打印出来后，发现其中某一页（或某几页）有问题，修改后，没有必要全部都打印一遍！只要选择“文件”→“打印”（不能直接按“常用”工具栏上的“打印”按钮，否则是将整个工作表全部打印出来），打开“打印内容”对话框，选中“打印范围”下面的“页”选项，并在后面的方框中输入需要打印的页面页码，再按下“确定”按钮即可。

首行重复打印当工作表大于1页时，用户一般希望在打印时能在每一页中均能包含首行，你可以这样设置，打开“页面设置”对话框，单击“工作表”选项卡，接下来只需在“打印标题→顶端标题行”文本框中输入：：类似的字符，或用鼠标将工作表中的首行拖过来也可以，以后就该表格首行就会打印在每页了。

表格也缩印有时为工作需要，可能要求将多页内容调整为一页打印出来（在Word中可以通过“缩放”技巧来实现），可选择“文件”→“页面设置”，再在打开的“页面设置”对话框中单击“页面”标签，在“缩放”组下有一个“调整为”选项，只要在这里键入打印工作表内容时所需要的页数（注意页宽和页高两个值必须一致）就可以了。

不过，此功能对于与纸张高、宽比例严重不协调的工作表来说，建议不要采用，否则会严重影响打印效果。

打印选定区域选定需要打印的区域，执行“文件”→“打印”，打开“打印内容”对话框，选中“打印内容”下面的“选定区域”选项，按下“确定”按钮就行了。

如果经常要打印固定的某个区域，可以先选定相应区域，再执行“文件”→“打印区域”→“设置打印区域”。

经过这样的设置后，无论是执行菜单的打印命令，还是直接按“常用”工具栏上的“打印”按钮，均可将设置的区域打印出来。

在Excel中用宏命令制作打印表单在Excel中用宏命令制作打印表单2010-07-09 10：18这是一张通过Office办公软件Excel电子表格宏制作的单据打印表，其特点是：①操作简单只用鼠标就可完成打印全过程；②"商品单价"表可由厂家提供(或预先做好)，对已做过选择的内容可进行标记；③"销售单"表可进行快速添加、清除和修改；④单据可选择性的保存。

本表想不到还很实用，只要在"商品单价"表中双击就可以把数据填入到"销售表"中，如果把它做一些小的改动就可用在其它的单据打印上。

现在把制作步骤写下来，让朋友对它做进一步的改进。

1、第一步：首先新建一个Excel电子表文件，在新建的文件中建立二张名字为"商品单价"和"销售单"的表。

在"商品单价"表中是用来存放厂家提供的商品单价数据，只要将厂家的商品单价输入好即可，厂家的商品未调价就不需做修改(如图1)。

2、第二步：在"销售单"表中按图2输入有关数据，部分单元格公式输入如下。

在C1至C3单元格中分别输入=IF(K15="","",K15)，=IF(L1="","",L1)&IF(K1="","",K1)，IF(K2="","",K2)在B5至B15单元格中分别输入=IF(K5="","",K5)，…，=IF(K15="","",K15)在C5至C15单元格中分别输入=IF(B5="","",VLOOKUP(B5,spdj,2,FALSE))，…=IF(B15="","",VLOOKUP(B15,spdj,2,FALSE))在I5至I15单元格中分别输入=F5*G5，=F6*G6…=F14*G14和=SUM(I5：I14)在单元格G2 G3中分别输入=TODAY()，=IF(K3="","",K3)在单元格C15中输入="合计金额大写)："&TEXT(INT(ABS(I15)),"[dbnum2]g/通用格式")&"元"&TEXT(INT(ABS(I15*10))-INT(ABS(I15))*10,"[dbnum2]g/通用格式")&"角"&TEXT(INT(ABS(I15*100))-INT(ABS(I15)*10)*10,"[dbnum2]g/通用格式")&"分整"在单元格C16 C17 G17中分别输入=IF(K4="","",K4)，=IF(K17="","",K17)，=IF(K16="","",K16)其余的输入就不用我介绍了。

竭诚为您提供优质文档/双击可除excel打印出来只有字没有表格篇一：如何打印excel表格没打印机一样可以打印预览在没有安装打印机的电脑上按下excel的打印预览按钮后，office20xx中的excel会却提示没有安装打印机，且无法打印预览。

其实，只要单击开始;设置;打印机，然后双击添加打印机项目，再随便安装一个打印机的驱动程序。

重启excel，就会发现已经可以打印预览了。

打印指定页面一个由多页组成的个人简历表格，打印出来后，发现其中某一页(或某几页)有问题，修改后，没有必要全部都打印一遍!只要选择文件;打印(不能直接按常用工具栏上的打印按钮，否则是将整个工作表全部打印出来)，打开打印内容对话框，选中打印范围下面的页选项，并在后面的方框中输入需要打印的页面页码，再按下确定按钮即可。

首行重复打印当工作表大于1页时，用户一般希望在打印时能在每一页中均能包含首行，你可以这样设置，打开页面设置对话框，单击工作表选项卡，接下来只需在打印标题;顶端标题行文本框中输入：:类似的字符，或用鼠标将工作表中的首行拖过来也可以，以后就该表格首行就会打印在每页了。

表格也缩印有时为工作需要，可能要求将多页内容调整为一页打印出来(在word中可以通过缩放技巧来实现)，可选择文件;页面设置，再在打开的页面设置对话框中单击页面标签，在缩放组下有一个调整为选项，只要在这里键入打印资产负债表的内容时所需要的页数(注意页宽和页高两个值必须一致)就可以了。

不过，此功能对于与纸张高、宽比例严重不协调的工作表来说，建议不要采用，否则会严重影响打印效果。

篇二：打印excel中的单列表格打印excel中的单列表格如果只打印excel中的一个单列表格，相信有的朋友一定会为此而挠头，由于在excel的页面设置中没有“分栏”这一功能，所以对于长长的一列在打印时就不太好办了，不过，利用excel的同门师兄word，就可以将要这一列的内容横向排列、逐行显示，具体的做法如下：打开表格，复制要打印的某一列，然后点击菜单中的“文件→新建...→工作簿”，然后将复制的某一列粘贴到该工作簿的第一列中，点击“文件”下的“保存”，在弹出的保存窗口中，将“保存类型”选择为“文本文件（制表符分隔）（*.txt）”，然后点击“保存”，不要管弹出提示，点“确定”或“是”就把这个工作簿保存为“book1.txt”了。

Excel-VBA通过设置实现双面打印应用场景通过设置隔页打印和提醒，实现文件的双面打印知识要点1：ActiveWindow.View = xlPageBreakPreview 设置分页预览2：Application.ExecuteExcel4Macro('get.document(50)') 宏表函数计算页数3：Range.PrintOut 方法打印对象Sub 双面打印()On Error Resume NextIf VBA.IsEmpty(edRange) Then MsgBox '当前工作表为空！', 64, '出错': Exit SubDim Pages As Integer, Ji As Integer, Ou As IntegerActiveWindow.View = xlPageBreakPreview '进入分页预览，便于获取页数Pages = Application.ExecuteExcel4Macro('get.document(50)') '利用宏表函数计算页数For Ji = 1 To Int(Pages / 2) 1 '遍历每一页'sheets.printout（form,to,copies,priview,.....）'打印对象，from 打印开始页号，如果省略从起始位置开始，to 打印终止页号，如果省略，则打印至最后一页'copies打印份数，如果省略，只打印一份ActiveSheet.PrintOut form:=2 * Ji - 1, To:=2 * Ji - 1, copies:=1, collate:=True '打印奇数页Next JiMsgBox '请将打印纸反向装入打印机中，' & Chr(10) & '开始打印另一面！', 64, '友情提示'For Ou = 1 To Int(Pages / 2) 1 '在打印偶数页ActiveSheet.PrintOut from:=2 * Ou, To:=2 * Ou, copies:=1, collate:=TrueNext OuActiveWindow.View = xlNormalView '还原为常规视图End Sub。