如何将文件夹中所有的EXcel横向打印。

发布网友 发布时间：2022-02-27 22:16

我来回答

共4个回答

热心网友 时间：2022-02-27 23:46

启动Excel，新建一个宏，粘贴下面代码：
Sub PrnSet()
Dim i, j As Integer
Dim fs As Variant
Dim wb As Workbook
fs = Application.GetOpenFilename(filefilter:="Excel Workbook,*.xls", MultiSelect:=True)
If VarType(fs) = vbBoolean Then MsgBox "没有选取任何文件", vbExclamation: Exit Sub
For i = LBound(fs) To UBound(fs)
Set wb = Application.Workbooks.Open(Filename:=fs(i))
For j = 1 To wb.Sheets.Count
wb.Sheets(j).PageSetup.Orientation = xlLandscape
Next j
wb.Save
wb.Close
Next i
MsgBox "操作完成", vbOKOnly
End Sub

执行该宏，弹出打开文件窗口-定位到你要处理的文件夹-选择所有要处理的文件-打开。
执行结束，所有选择的文件中的所有工作表都被自动设置成横向打印。

注意：文件不能有“写保护”，否则页面设置后不能保存，程序出错。

热心网友 时间：2022-02-28 01:04

1、打开excel。

2、依次选择“文件---页面设置--纸张”。

3、选择横向模式。这样打印出来的excel文件就是横向的。

4、确认关闭页面即可。

热心网友 时间：2022-02-28 02:38

选择左上角 文件—页面设置—横向 即可

热心网友 时间：2022-02-28 04:30

文件—打印——设置——页面设置——纸张设置——横向即可