| |
▼M.Ishii さん 今晩は。
>早速試してみたのですが、
>【リスト２】は印刷タイトル(行タイトル)が添付されましたが、
>【リスト１】のほうには印刷タイトルが添付されませんでした。
>
>先ほどのご質問で言葉足らずで申し訳ありませんが、
>【リスト１】と【リスト２】を印刷タイトル付きで、かつ、
>[ファイル]メニューの[印刷]を実行したときに印刷するように
>するためには、一度、【リスト１】が印刷された後、
>印刷されたという情報を取得し、その後、【リスト２】を
>印刷するというフローにしたほうがよろしいのでしょうか？
このコードはマクロですべて印刷するようにしていますので、
[ファイル]メニューの[印刷]で、印刷するようになっていません。
メニューの「マクロ」から実行するか、シート上にボタンを配置して、
このマクロを登録して実行してください。
>また、下記のプログラムでいくつか質問させてください。
>
>>Dim trow As String
>上記の宣言ですが、trowという変数が見当たらないのですが、
>これは何をするためのものなのでしょうか？
これは、消し忘れたものなので、削除してください。
>> .PrintArea = r.CurrentRegion.Address
>上記を入れて実行した場合、
>リスト2の先頭行の1つのセルに印刷範囲が設定されてしまい、
>リスト２本体が印刷できなくなります。
これは、絶対に削除しないでください。
それから、次ぎように変えてください。
このままで、まず確かめてください。
>>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
|
|
kobasan
- 05/11/20(日) 21:46 -
