批量横向打印Excel

Attribute VB_Name = "模块1"
Sub PiLiangPring()
Attribute PiLiangPring.VB_ProcData.VB_Invoke_Func = " \n14"
Dim curPath As String
curPath = ThisWorkbook.Path & "\"
Dim xlsFile As String
xlsFile = Dir(curPath & "*.xls")
While xlsFile <> ""
    If xlsFile <> ThisWorkbook.Name Then
       Excel.Application.Workbooks.Open (curPath & xlsFile)
       ‘激活最新的工作簿
       Excel.Application.Workbooks(Excel.Application.Workbooks.Count).Activate
       ‘设置纸张类型为A4
       Excel.Application.Workbooks(Excel.Application.Workbooks.Count).ActiveSheet.PageSetup.PaperSize = 9
       ‘打印方向设置为横向
       Excel.Application.Workbooks(Excel.Application.Workbooks.Count).ActiveSheet.PageSetup.Orientation = 2
       ‘仅打印激活的工作表
       Excel.Application.Workbooks(Excel.Application.Workbooks.Count).ActiveSheet.PrintOut
       Excel.Application.Workbooks(xlsFile).Close (False)
    End If
    xlsFile = Dir
Wend
MsgBox ("Print Done")
End Sub