| |
kobasanさん、ご回答ありがとうございました。
早速試してみたのですが、
【リスト２】は印刷タイトル(行タイトル)が添付されましたが、
【リスト１】のほうには印刷タイトルが添付されませんでした。
先ほどのご質問で言葉足らずで申し訳ありませんが、
【リスト１】と【リスト２】を印刷タイトル付きで、かつ、
[ファイル]メニューの[印刷]を実行したときに印刷するように
するためには、一度、【リスト１】が印刷された後、
印刷されたという情報を取得し、その後、【リスト２】を
印刷するというフローにしたほうがよろしいのでしょうか？
また、下記のプログラムでいくつか質問させてください。
>Dim trow As String
上記の宣言ですが、trowという変数が見当たらないのですが、
これは何をするためのものなのでしょうか？
> .PrintArea = r.CurrentRegion.Address
上記を入れて実行した場合、
リスト2の先頭行の1つのセルに印刷範囲が設定されてしまい、
リスト２本体が印刷できなくなります。
VBA初心者なのもので恐縮ですが、
今一度、ご教授頂きます様お願いいたします。
>今日は。
>
>各リストは、【リスト１】,【リスト２】のようにしてあり、
>各リストの間に空白行を作ってください。
>
>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
>
>こんな感じでいいのでしょうか。
>
>
>>はじめまして、
>>印刷タイトルを複数設定する方法について、ご質問させて頂きます。
>>
>>現在、あるソフトの機能テスト用のチェックリストを作成しており、
>>１つのシートに下記のような複数の形式のリストをＡ４横で印刷し、
>>テスト件数が増えたときなどで２ページ目以降に跨って印刷された
>>場合は、印刷タイトル(行タイトル)をリストの先頭にしたいと
>>考えています。
>
>>【リスト１】
>> No. テスト項目 結 果
>> 1 項目1 O K
>> 2 項目2 N G
>> : :
>> 10 項目10 O K
>>
>>【リスト２】
>> No. テスト項目 操作手順 結 果
>> 1 項目1 手順1 N G
>> 2 項目2 手順2 O K
>> : : :
>> 50 項目50 手順50 N G
|
|
M.Ishii
- 05/11/20(日) 21:15 -
