正文

vba實(shí)現(xiàn)套用模板批量打印

發(fā)布時(shí)間：2023-05-20 06:21:44 稿源：創(chuàng)意嶺閱讀： 119

大家好！今天讓創(chuàng)意嶺的小編來(lái)大家介紹下關(guān)于vba實(shí)現(xiàn)套用模板批量打印的問(wèn)題，以下是小編對(duì)此問(wèn)題的歸納整理，讓我們一起來(lái)看看吧。

開始之前先推薦一個(gè)非常厲害的Ai人工智能工具，一鍵生成原創(chuàng)文章、方案、文案、工作計(jì)劃、工作報(bào)告、論文、代碼、作文、做題和對(duì)話答疑等等

只需要輸入關(guān)鍵詞，就能返回你想要的內(nèi)容，有小程序、在線網(wǎng)頁(yè)版、PC客戶端和批量生成器

問(wèn)友Ai官網(wǎng)：https://ai.de1919.com。

本文目錄:

Excel Vba批量打??！
用vba實(shí)現(xiàn)word 文件的批量打印?
excel怎么利用vba實(shí)現(xiàn)批量套打快遞單批量打
excel怎么利用vba實(shí)現(xiàn)批量套打快遞單批量打印單據(jù)
EXCEL VBA 自動(dòng)篩選后批量打印，并且使每一頁(yè)都設(shè)置好頁(yè)面的布局？

vba實(shí)現(xiàn)套用模板批量打印

Excel Vba批量打??！

自己錄制個(gè)打印宏，然后添加循環(huán)變量。循環(huán)下需要的單元格，把打印代碼相對(duì)信息修改成變量就行了！

用vba實(shí)現(xiàn)word 文件的批量打印?

Sub 批量對(duì)Word操作()
' A.公共部分的代碼
Application.ScreenUpdating = False '凍結(jié)屏幕，以防屏幕抖動(dòng)，這句好像沒作用，窗口仍然會(huì)顫抖
Dim mydialog As FileDialog, GetStr(1 To 1000) As String '1000是工作時(shí)的文檔上限數(shù)，可因需修改，不知沒有限制的命令怎樣寫？
On Error Resume Next
Set mydialog = Application.FileDialog(msoFileDialogFilePicker)
With mydialog
.Title = "請(qǐng)選擇要處理的文檔(可多選)"
.Filters.Clear '過(guò)濾掉篩選器中的所有文件類型，然后現(xiàn)在下面用filters.add加上word類型
.Filters.Add "所有WORD文件", "*.doc", 1
.AllowMultiSelect = True 'true表示允許多選，如果需要單選，請(qǐng)用false
i = 1
If .Show = -1 Then
For Each stiSelectedItem In .SelectedItems
GetStr(i) = stiSelectedItem
i = i + 1
Next
i = i - 1
End If
Application.ScreenUpdating = False
For j = 1 To i Step 1
Set Doc = Documents.Open(FileName:=GetStr(j), Visible:=True)
Windows(GetStr(j)).Activate
' B可以替換的宏
' 以下是處理格式所錄制的宏，可根據(jù)所需錄制
Application.Run MacroName:="單個(gè)文件默認(rèn)打印" '運(yùn)行名為"單個(gè)文件默認(rèn)打印"的宏，宏命令見后面
' 以上可以換成是你自己錄制的宏，
'其中Application.Run MacroName:="單個(gè)文件默認(rèn)打印"'運(yùn)行名為"單個(gè)文件默認(rèn)打印"的宏，根據(jù)需要錄制，自行命名
' C公共部分的代碼
ActiveDocument.Save '保存
ActiveWindow.Close '退出
Next
Application.ScreenUpdating = True
End With
MsgBox "操作完成，請(qǐng)查看！！", 64, "提示"
'Application.Quit '關(guān)閉并退出Word
End Sub
Sub 單個(gè)文件默認(rèn)打印()
'
' 下面是按默認(rèn)的打印錄制的宏，你可以自己錄制。
'
'
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End Sub

excel怎么利用vba實(shí)現(xiàn)批量套打快遞單批量打

先做一個(gè)打印格式的模板，再做一個(gè)連續(xù)逐條調(diào)用記錄的控件（VBA）按鈕。
或者使用word做一個(gè)模板，使用郵件合并功能調(diào)用Excel數(shù)據(jù)也可以。

vba實(shí)現(xiàn)套用模板批量打印