|
γ さん 返信ありがとうございます。
アドバイスのとおり、下記のように、マクロの記録をとってみました。
タイトルとして3行から5行までをタイトル行として、ヘッダの右側に
ページ番号が現れようになっている(.RightHeader = "" &P")ことは
理解できるのですが、お教えいただいた
s = UCase(Chr(ページ + 96))
この s をどういう風にコードに組み込んだらよいのでしょうか。
$A$6:$AQ$290の範囲が上から7等分されてクラスごと(ABCDEFG組)に改ページ
されるようになっています。
お時間があるときにお教えいただいたらありがたいです。
'ヘッダ作成
With ActiveSheet.PageSetup
.PrintTitleRows = "$3:$5"
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = "$A$6:$AQ$290"
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = "" &P"
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = False
.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 = ""
|
|