正文

vba实现套用模板批量打印

发布时间：2023-05-20 06:21:44 稿源：创意岭阅读： 119

大家好！今天让创意岭的小编来大家介绍下关于vba实现套用模板批量打印的问题，以下是小编对此问题的归纳整理，让我们一起来看看吧。

开始之前先推荐一个非常厉害的Ai人工智能工具，一键生成原创文章、方案、文案、工作计划、工作报告、论文、代码、作文、做题和对话答疑等等

只需要输入关键词，就能返回你想要的内容，有小程序、在线网页版、PC客户端和批量生成器

问友Ai官网：https://ai.de1919.com。

本文目录:

Excel Vba批量打印！
用vba实现word 文件的批量打印?
excel怎么利用vba实现批量套打快递单批量打
excel怎么利用vba实现批量套打快递单批量打印单据
EXCEL VBA 自动筛选后批量打印，并且使每一页都设置好页面的布局？

vba实现套用模板批量打印

Excel Vba批量打印！

自己录制个打印宏，然后添加循环变量。循环下需要的单元格，把打印代码相对信息修改成变量就行了！

用vba实现word 文件的批量打印?

Sub 批量对Word操作()
' A.公共部分的代码
Application.ScreenUpdating = False '冻结屏幕，以防屏幕抖动，这句好像没作用，窗口仍然会颤抖
Dim mydialog As FileDialog, GetStr(1 To 1000) As String '1000是工作时的文档上限数，可因需修改，不知没有限制的命令怎样写？
On Error Resume Next
Set mydialog = Application.FileDialog(msoFileDialogFilePicker)
With mydialog
.Title = "请选择要处理的文档(可多选)"
.Filters.Clear '过滤掉筛选器中的所有文件类型，然后现在下面用filters.add加上word类型
.Filters.Add "所有WORD文件", "*.doc", 1
.AllowMultiSelect = True 'true表示允许多选，如果需要单选，请用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可以替换的宏
' 以下是处理格式所录制的宏，可根据所需录制
Application.Run MacroName:="单个文件默认打印" '运行名为"单个文件默认打印"的宏，宏命令见后面
' 以上可以换成是你自己录制的宏，
'其中Application.Run MacroName:="单个文件默认打印"'运行名为"单个文件默认打印"的宏，根据需要录制，自行命名
' C公共部分的代码
ActiveDocument.Save '保存
ActiveWindow.Close '退出
Next
Application.ScreenUpdating = True
End With
MsgBox "操作完成，请查看！！", 64, "提示"
'Application.Quit '关闭并退出Word
End Sub
Sub 单个文件默认打印()
'
' 下面是按默认的打印录制的宏，你可以自己录制。
'
'
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实现批量套打快递单批量打

先做一个打印格式的模板，再做一个连续逐条调用记录的控件（VBA）按钮。
或者使用word做一个模板，使用邮件合并功能调用Excel数据也可以。

vba实现套用模板批量打印