Excelワークシート名+ページ番号/プロットのタイトルページの追加

Question

アクティブなワークシートを特定のレイアウトに自動的にプロットするためのスクリプトを作成しました。右のフッターに、アクティブなワークシートの名前を表示したい'ページ番号のレイアウト：実際のページ数/総ページ数）

このページの先頭へ戻るこの資料は以下の製品について記述したものです。必要な右のフッター： PartA - 1/12

中央の大きなフォントで表示されている、現在のワークシートの名前だけのフロントページを含めることも可能ですか？または、最初のページにタイトルが中央にあるアクティブなセルが1つだけ含まれるようにExcelワークシートを設計する必要がありますか？

Application.PrintCommunication = False 
Application.Dialogs(xlDialogPrinterSetup).Show 
With ActiveSheet.PageSetup 
    ActiveWindow.View = xlPageBreakPreview 
ActiveSheet.PageSetup.PrintArea = "$A:$N" 
    .PrintTitleRows = "" 
    .PrintTitleColumns = "" 
End With 
Application.PrintCommunication = True 
ActiveSheet.PageSetup.PrintArea = "" 
Application.PrintCommunication = False 
With ActiveSheet.PageSetup 
    .LeftHeader = "" 
    .CenterHeader = "PROJECT X" 
    .RightHeader = "" 
    .LeftFooter = Sheets("instellingen").Cells(20, 2).Value 
    .CenterFooter = Sheets("instellingen").Cells(22, 2).Value 
    .RightFooter = "" 
    .LeftMargin = Application.InchesToPoints(0.7) 
    .RightMargin = Application.InchesToPoints(0.7) 
    .TopMargin = Application.InchesToPoints(0.75) 
    .BottomMargin = Application.InchesToPoints(0.75) 
    .HeaderMargin = Application.InchesToPoints(0.3) 
    .FooterMargin = Application.InchesToPoints(0.3) 
    .PrintHeadings = False 
    .PrintGridlines = False 
    .PrintComments = xlPrintNoComments 
    .PrintQuality = 600 
    .CenterHorizontally = False 
    .CenterVertically = False 
    .Orientation = xlPortrait 
    .Draft = False 
    .PaperSize = xlPaperA4 
    .FirstPageNumber = xlAutomatic 
    .Order = xlDownThenOver 
    .BlackAndWhite = False 
    .Zoom = False 
    .FitToPagesWide = 1 
    .FitToPagesTall = 0 
    .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 
Application.PrintCommunication = True 
Application.PrintCommunication = False 
With ActiveSheet.PageSetup 
    .PrintTitleRows = "" 
    .PrintTitleColumns = "" 
End With 

感謝:)

Answer 1

構文を検索しているときに、手動で手順を実行しながらマクロを記録すると非常に役に立ちます。

ExcelのビルトインPage 1 of ?カスタムフィルタを使用して、後に続く構文を取得しました。手動で、ページレイアウト>ページ設定>ヘッダー/フッター>フッター>ページ1に移動しましたか？

.RightFooter = ActiveSheet.Name & " - " & "Page &P of &N" 

Answer 2

あなたがそこにあるどのように多くのページがわからないので、あなたは本当に、ページ番号を強制することができます。したがって、通常のExcelで設定するのと同じです。

はhttps://support.office.com/en-us/article/Add-or-remove-page-numbers-57ebb99e-0cfc-408b-864a-c805b5040ae7

• サイドノートから取らこのPage &[Page] of &[Pages]

  定期的な形式を試してみて、遅い.PageSetupを使用していませんか？彼らがそれを修正したかどうか覚えていないのですか？はるかに高速だったExcel4マクロからの印刷設定を使用することでトリックがあります。