其實郵件合併功能就可以的 另外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、然後編輯活動文檔，按提示操作，合併就可以了。
