VBA调整打印设置

Function setPage()
    filePath = "C:\XXX\"

    '保存Excel文件名的TXT文件的路径
    fileNameFullPath = filePath + "path.txt" ' target file list

    Const ForReading = 1, _
          ForWriting = 2, _
          ForAppending = 8, _
          TristateUseDefault = -2

    Close #1
    Open fileNameFullPath For Input As #1  ' シーケンシャル入力モードで開きます。
    Do While Not EOF(1)                ' ファイルの終端までループを繰り返します。
        Input #1, docname

        If docname = "" Then Exit Do

        Workbooks.Open fileName:=docname
        Debug.Print "opne : "; docname

        originalFileName = ActiveWorkbook.Name
        Debug.Print "originalFileName : "; originalFileName
            For Each asheet In ActiveWorkbook.Sheets
                    If (asheet.Visible = True) Then
                    
                        asheet.Activate
                        'シーケンス名の設定
                        asheet.Range("O5:AK5").Select
                        ActiveCell.FormulaR1C1 = "-"
                        
                        If Left(asheet.Name, 2) = "要領" Then '要修改的sheet名以“要領”二字开头
                            '字体设置为8号
                            asheet.Range("AX11:BM112,A11:F12").Select
                            With Selection.Font
                                .Size = 8
                            End With
                            asheet.Range("A11:F11").Select
                        End If
                         '打印设置
                         With asheet.PageSetup
                               .LeftHeader = ""
                               .CenterHeader = ""
                               .RightHeader = "&""ＭＳ ゴシック,標準""&10【秘密】" & Chr(10) & "TOPS-品規-130008"
                               .LeftFooter = ""
                               .CenterFooter = "&P / &N ページ"
                               .RightFooter = ""
                               .LeftMargin = Application.InchesToPoints(0.590551181102362)
                               .RightMargin = Application.InchesToPoints(0.590551181102362)
                               .TopMargin = Application.InchesToPoints(0.984251968503937)
                               .BottomMargin = Application.InchesToPoints(0.78740157480315)
                               .HeaderMargin = Application.InchesToPoints(0.511811023622047)
                               .FooterMargin = Application.InchesToPoints(0.511811023622047)
                               .PrintHeadings = False
                               .PrintGridlines = False
                               .PrintComments = xlPrintNoComments
                               .PrintQuality = 600
                               .CenterHorizontally = False
                               .CenterVertically = False
                               .Orientation = xlLandscape
                               .Draft = False
                               .PaperSize = xlPaperA4
                               .FirstPageNumber = xlAutomatic
                               .Order = xlDownThenOver
                               .BlackAndWhite = False
                               .Zoom = False
                               .FitToPagesWide = 1
                               .FitToPagesTall = False
                               .PrintErrors = xlPrintErrorsDisplayed
                               .OddAndEvenPagesHeaderFooter = False
                               .DifferentFirstPageHeaderFooter = False
                               .ScaleWithDocHeaderFooter = True
                               .AlignMarginsHeaderFooter = True
                               .EvenPage.LeftHeader.Text = ""
                               .EvenPage.CenterHeader.Text = ""
                               .EvenPage.RightHeader.Text = ""
                               .EvenPage.LeftFooter.Text = ""
                               .EvenPage.CenterFooter.Text = ""
                               .EvenPage.RightFooter.Text = ""
                               .FirstPage.LeftHeader.Text = ""
                               .FirstPage.CenterHeader.Text = ""
                               .FirstPage.RightHeader.Text = ""
                               .FirstPage.LeftFooter.Text = ""
                               .FirstPage.CenterFooter.Text = ""
                               .FirstPage.RightFooter.Text = ""
                          End With
                    End If
            Next
        ActiveWorkbook.Worksheets(1).Activate
        ActiveWorkbook.Close SaveChanges:=True

    Loop
    
    Close #1
End Function