我需要打印一个文件夹里多个我需要的excel文件(近百个,格式一样)如何调整打印设置？
最新回答
天生小仙女
2025-02-25 09:13:03
格式一样的表 有办法用一个表格调用数据，只用在一张表里将数据调取到当前工作表，设置一个打印宏，一键打出。
吶誰咱吢疼
2025-02-25 06:56:09
要通过Excel中的“宏”功能，然后编辑代码，代码如下:
Sub 批量打印设置()
Dim lj Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(0, "选择文件夹", 0, 0) If objFolder Is Nothing Then MsgBox "未选择文件夹"
Exit Sub End If
lj = objFolder.self.Path
If Right(lj, 1) <> "\" Then
lj = lj & "\"
End If
Set objFolder = Nothing
Set objShell = Nothing
myFile = Dir(lj & "*.xls")
While myFile <> ""
Workbooks.Open lj & myFile '这里放入打印设置代码，可通过录制宏来自动生成，然后拷贝到此处
ActiveWorkbook.Close 1
myFile = Dir
WendEnd Sub
锁骨草莓印
2025-02-25 06:25:12
2、在合并后的工作薄里，接住shift键单击工作表，将所有工作表选中，调整页面设置。
3、试打印一页看效果，不理想再重复上面2。
4、打印，选择整个工作薄。
祁梦
2025-02-25 04:19:54
著名奶茶鉴定家
2025-02-25 05:12:56
热门标签
