Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


50205 / 76736 ←次へ | 前へ→

【31425】Re:複数の印刷タイトル設定について
回答  kobasan  - 05/11/20(日) 13:19 -

引用なし
パスワード
   今日は。

各リストは、【リスト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
0 hits

【31423】複数の印刷タイトル設定について M.Ishii 05/11/20(日) 11:52 質問
【31425】Re:複数の印刷タイトル設定について kobasan 05/11/20(日) 13:19 回答
【31436】Re:複数の印刷タイトル設定について M.Ishii 05/11/20(日) 21:15 質問
【31438】Re:複数の印刷タイトル設定について kobasan 05/11/20(日) 21:46 回答
【31439】Re:複数の印刷タイトル設定について M.Ishii 05/11/20(日) 22:30 回答
【31440】Re:複数の印刷タイトル設定について kobasan 05/11/20(日) 23:25 回答
【31441】Re:複数の印刷タイトル設定について M.Ishii 05/11/21(月) 0:49 質問
【31442】Re:複数の印刷タイトル設定について kobasan 05/11/21(月) 7:47 回答
【31443】Re:複数の印刷タイトル設定について M.Ishii 05/11/21(月) 9:22 お礼

50205 / 76736 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free