如何一键批量打印excel、word文档

来源：趣味经验馆 1.51W

其实邮件合并功能就可以的另外EXCEL中自己设置模板，再用VBA编程也能做到。如果要求不高，公式也能做到。

一键批量打印EXCEL、WORD文档会节省很多时间。那么如何操作呢？

方法

选中需要打印的文档。

@echo offprint D:docdoc1.docprint F:pptppt1.docprint G:excelxls1.xlsprint H:adobe readerpdf1.pdf这样试试，不确定这个命令能不能打印这种文件

右击，然后点击打印。

有两个办法： 1.把excel的表格设计ok后，选择需要的区域直接copy之后黏贴到word里面的相应位置即可。 2.把excel的表格里面的数据连接到word里面，再设置成你需要的格式即可。如果还不能处理，联系我，我帮助你处理。

系统会提示在打印。

可以在excel中设置页面，直接打印；在word中制好表,有标题和一行，做好设置，将excel数据复制后，选空行，选择性粘贴；方法三：邮件合并。https://jingyan.baidu.com/article/335530da51745219cb41c3ea.html 供参考，祝顺利。

也可以在打印机里查看打印状态。

工具材料电脑打印机批量打印Excel 1、首先打开Excel批量打印软件，点击左侧工具栏中的“添加文件”选项。 2、在左侧工具栏中右击文档，可以调整文档的打印顺序，如下图所示。 3、在页面的右侧皮肤中选择“打印参数”进行设置。 4、可以对添加的

扩展阅读，以下内容您可能还感兴趣。

VBS批量打印word和EXCEL

filterstr=inputbox("请输e69da5e6ba90e799bee5baa6e997aee7ad9431333330343165入不要打印的文件，用逗号分隔。如2,1表示文件名包含2或者1的不打印，输入*表示打印所有：")

filtered=false

printme=true

if filterstr<>"*" and filterstr<>"" then

filtered=true

filterlist=split(filterstr,",")

end if

if filterstr<>"" then

Set WshShell = WScript.CreateObject("WScript.Shell")

printsub(WshShell.CurrentDirectory)

msgbox "完工啦！"

end if

Sub printsub(byval curdc)

Set FSO =CreateObject("Scripting.FileSystemObject")

Set WD = CreateObject("Excel.Application")

wd.visible=false

Set FD = FSO.GetFolder(curdc)

Set FN = FD.Files

For Each F1 In FN

if filtered then

printme=true

for each fl in filterlist

if Instr(LCase(Left(F1.Name,len(F1.Name)-3)),fl)<>0 then

printme=false

end if

If UCase(Right(F1.Name, 3)) = "XLS" and printme Then

Set myWork = GetObject(FD.Path & "\" & F1.Name)

Set mySheet = GetObject(FD.Path & "\" & F1.Name).Worksheets(1)

mySheet.PrintOut

myWork.Close saveChanges=False

End If

wd.visible=true

WD.Quit

Set SubFD=FD.SubFolders

For Each folder in SubFD

printsub(folder.Path)

Set SubFD=nothing

set fn=nothing

set fd=nothing

Set WD = Nothing

Set FSO = Nothing

End Sub

如果你是excel2007以上的，请把代码中的“XLS”改成“LSX”即可。更多追问追答追问不行啊运行提示错误啊我放在有EXECEL文件的文件夹里面运行出错追答这个是我运行过没问题的。跟你打word的那个vbs放到相同目录，然后试试打word的那个能否工作。那个能，这个就应该能。追问运行可以输入*号确定之后就出现错误提示了麻烦你看下能不能改进下追答运行我指成功打印同目录下的两个文件。我运行没问题啊。追问我再试了一下可以了但只能打印表一啊我需要打印excel表内所有的工作表可以吗？追答兄弟，拿你这20分真不容易啊。

把

Set mySheet = GetObject(FD.Path & "\" & F1.Name).Worksheets(1)

mySheet.PrintOut

替换成

myWork.PrintOut()

如何向excel数据自动填入WORD文档中相应位置并打印

这需要使用word文档来中使用邮件合功能并批量打印EXCEL的数据，具体方法如下：

1、打开正在使用的word文档（这里以空文档作为示例，实际运用时EXCEL文档插入内容和位置以实际需要为准。）找到上部菜单栏中的邮件选项，点击。

2、找到‘选择收件人’点击，找到‘使用现自有列表’选项知点击。

3、选择你要插入的数据源，即你要插入内容的EXCEL文档。选择点击打开。

4、选择你需要插入的列表。点击确定。

5、找到上部菜单‘插入合并区域选项’，点击选择，出现的菜单即为每一列的编号。（这里只是随便用几个数字代替了编号，具体插入内容时可根据实际情况选择。道）

6、点击插入数据库域，点击地址域并添加地址域。插入内容即红线上方的内容。

7、插入完毕，点击上方菜单栏最后一个选项‘完成并合并’选项，选择这方弹出的‘编辑单个文档’即可。

8、选择全部，确认，即插入完毕。可以开始打印了。

如何调取excel里的数据到word里批量打印

我个人认为如果表格中数据位置不变，用公式做个模板简单些;否则还是用邮件合并快。邮件合并也可以一次性全部打印出来的。

Excel 怎么按筛选批量打印

解决Excel 怎么按筛选批量打印的步骤如下：

1.打开需要打印的excel文件，本文excel中有zhidao三张工作表。

2.单击文件菜单。

3.选择打印版选项权；快捷键：ctrl+p。

4.在打印选项卡中设置您需要打印的份数、打印机等基本参数。这样就解决了Excel 怎么按筛选批量打印的问题了。

用word和excel批量打印信封？

1、用EXCEL编辑联系人地址列zd表，如：

邮政编码收信人地址收件人姓名收件人职务寄信人地址

404000 某某某某某某某某某某某某某某某某某某

2、存回盘，退出，注意文件名不要存成BOOK1.XLS之类的，可以存成ADD.XLS。否则会出错。

3、打开WORD，点工具—邮件合并—创建==》信封—活动文答档

4、点“获取数据”—打开数据源—类型先MS EXCEL格式—ADD.XLS

5、然后编辑活动文档，按提示操作，合并就可以了。

excel 文档 Word 一键批量