| |
こんにちは。アイエネスです。
ご質問の件ですが、コードが変化したら改ページを挿入するマクロを作りました。
が、一つのシート内でページ毎にヘッダーを変えることはできませんでした。
改ページではなく、別シートにデータを移動するのなら可能です。
若しくは、ページ毎に印刷し、印刷する際にヘッダーを変えるとか。
データが多い際は、テストプリントすると無駄紙が大量に出るので、
コードが変わる毎に別シートにデータを移動する方法の方がいいと思われます。
どうしても一つのシートでやりたいと言われるのであれば、別ですが。
元シートから別シートにデータを移し、マクロ処理し、プリントした後に削除すればすむことだと思いますので。
まぁ、とりあえず作ったマクロコードをのせておきます。
Sub test()
Dim seru As Range 'データを比較されるセル
Dim i As Long '現在のデータ行
i = 2 'データの開始行。
Application.ScreenUpdating = False
'以下はA列がコードが入っている列とした場合です。
Set seru = Range("A" & i)
ActiveSheet.PageSetup.PrintTitleRows = Rows(1).Address
For i = 2 To Range("A65536").End(xlUp).Row
If Range("A" & i).Value <> seru.Value Then
Rows(i).PageBreak = xlPageBreakManual
Set seru = Range("A" & i)
End If
Next i
Application.ScreenUpdating = True
End Sub
未熟なコードですが、きちんと動くと思います。
こちらのテストではきちんと動きましたので。
また、何かあればどうぞ。
|
|
アイエネス
- 04/2/24(火) 15:36 -
