作者：乔山办公网日期：
返回目录：excel表格制作
第一步：
先设置系统突破打印上限（因为系统默认一次最多可选打印文档是15份）
点击【开始】在【搜索程序和文件】中输入“regedit”打开注册表，然后展开到“HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer”下，在右键选择新建一个“DWORD32位”，重命名为“MultipleInvokePromptMinimum”，然后双击它，把它的值修改为你想要同时打开的文件数就可以了。（注：修改时，请选择十进制，20就代表同时打开20个，请根据自己电脑和系统的能力来设定，即使修改后，针对较大的文件还是要以较少打开数量同时，因为改的过火造成系统死机等情况，概e799bee5baa6e78988e69d83335不负责，我设置的是1000）。
此时在系统里就可以一次性选择多个文档一次单击右键选择打印了，如图所示：
第二步：
设置系统默认打印设备
1、在开始菜单右边点击【设备和打印机】，选择要批量打印文档的默认打印设备并设为默认打印机
2、如需要批量打印双面（A3、A4）则需设置【打印机首选项】，在里面设置你需要打印的纸张大小及双面打印设置，（因为每个打印机的设置都不同，大家自己好好找找），设置完成点击确定。如下图所示：
3、设置完毕后再结合第一步的方法批量打印所有需要的打印的文档。
第三步：
设置将多个文档同时打印多份
1、先将文档排序方式设置成以【名称】排序；
2、然后我们将要打印多份的文档选择后按【Ctrl+C】的方式复制，再以【Ctrl+V】的方式粘贴，如果我们要将文档打印3份的话就连续两次【Ctrl+V】，这样就会在同一文件内有同一个文件的多个副本，这时我们再结合第一步的方法批量打印文档。
这个需要编写宏来实现，你先zd打开一个文件，把需要进行的操作录版制一个宏，假设叫【宏1】，然后按照我下面的代码编写【宏权2】并执行即可：
Sub 宏2()
Dim wb as WorkBook, ph$, fn$
ph = "C:\" '你可能需要修改这个为你的文件所在位置
fn = Dir(ph & "*.xls*")
While fn<>""
Set wb=WorkBooks.Open(ph & fn)
Call 宏1
wb.Save
wb.Close
fn=Dir
Wend
End Sub
方法/步骤
打开一个Excel，首先把界百面切换成分页预览。如图所示，在右下角。
切换后，界面显示白色部分为打印区域，中间的虚线是分页的。如果想将此度文件调节到一页上，只需将该虚线用鼠标往后拉即可。不过需要注意，缩放比例，比例一般在70%以上都可以看清。
如果文件中有标颜色，打知印的时候需要打印黑白色。可以在页面道设置里选择单色打印。如果一个Excel打印成好多页，需要每页都有标题内，可以在页面设置里的打印标题处把需要的标题选上，点击确认即可。
如果需要写上页码，可以在页面设置里面容，页脚、页眉中选择。
如果需要设置横向打印还是竖向打印，也可以在页面设置里面，横向，竖向选择。
6
简单的格式设置就介绍到这里，希望可以帮助到大家。
Sub 批量打印设置()
Dim lj
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(0, "选择文件夹", 0, 0)
If objFolder Is Nothing Then
MsgBox "未选择文件夹"
Exit Sub
End If
lj = objFolder.self.Path
If Right(lj, 1) <> "\" Then
lj = lj & "\"
End If
Set objFolder = Nothing
Set objShell = Nothing
myFile = Dir(lj & "*.xls")
While myFile <> ""
Workbooks.Open lj & myFile
'这里放入打印设置代e68a847a64331码，可通过录制宏来自动生成，然后拷贝到此处
ActiveWorkbook.Close 1
myFile = Dir
Wend
End Sub