如何一键批量打印excel、word文档
- IT科技
- 关注:1.67W次
其实邮件合并功能就可以的 另外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
next
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
Next
wd.visible=true
WD.Quit
Set SubFD=FD.SubFolders
For Each folder in SubFD
printsub(folder.Path)
Next
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、然后编辑活动文档,按提示操作,合并就可以了。
- 文章版权属于文章作者所有,转载请注明 https://dongkepu.com/itkeji/jmkdo3.html