如何一鍵批量列印excel、word文件
- IT科技
- 關注:1.45W次
其實郵件合併功能就可以的 另外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://shqsg.com/dianzi/0w2qkr.html