我需要打印一个文件夹里多个我需要的excel文件(近百个,格式一样)如何调整打印设置？

发布网友 发布时间：2022-04-24 12:25

我来回答

共5个回答

热心网友 时间：2023-10-12 19:16

格式一样的表  有办法用一个表格调用数据，只用在一张表里将数据调取到当前工作表，设置一个打印宏，一键打出。

热心网友 时间：2023-10-12 19:16

我需要打印一个文件夹里多个excel文件(近百个,格式一样)如何调整打印设置，方法如下:
要通过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

热心网友 时间：2023-10-12 19:17

1、用代码将多个文件合并到一个工作薄里，代码自己百度。
2、在合并后的工作薄里，接住shift键单击工作表，将所有工作表选中，调整页面设置。
3、试打印一页看效果，不理想再重复上面2。
4、打印，选择整个工作薄。

热心网友 时间：2023-10-12 19:17

直接把他们全部选取，然后设置打印在一张纸里面，然后打印出来的就非常的整齐了

热心网友 时间：2023-10-12 19:18

可以在打印设置的时候选择整个工作簿，这样的话就可以把所有的都打出来了 。