|
今日は。
各リストは、【リスト1】,【リスト2】のようにしてあり、
各リストの間に空白行を作ってください。
Sub 印刷()
Dim r As Range
Dim trow As String
For Each r In Range("a1", Range("a65536").End(xlUp))
If r.Value Like "【リスト*" Then
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.PaperSize = xlPaperA4
.PrintArea = r.CurrentRegion.Address
.PrintTitleRows = "$" & r.Row & ":$" & (r.Row + 1)
End With
ActiveWindow.SelectedSheets.PrintPreview
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
Next
End Sub
こんな感じでいいのでしょうか。
>はじめまして、
>印刷タイトルを複数設定する方法について、ご質問させて頂きます。
>
>現在、あるソフトの機能テスト用のチェックリストを作成しており、
>1つのシートに下記のような複数の形式のリストをA4横で印刷し、
>テスト件数が増えたときなどで2ページ目以降に跨って印刷された
>場合は、印刷タイトル(行タイトル)をリストの先頭にしたいと
>考えています。
>【リスト1】
> No. テスト項目 結 果
> 1 項目1 O K
> 2 項目2 N G
> : :
> 10 項目10 O K
>
>【リスト2】
> No. テスト項目 操作手順 結 果
> 1 項目1 手順1 N G
> 2 項目2 手順2 O K
> : : :
> 50 項目50 手順50 N G
|
|