Excel VBA質問箱 IV

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

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


50192 / 76736 ←次へ | 前へ→

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

引用なし
パスワード
   ▼M.Ishii さん 今晩は。


>早速試してみたのですが、
>【リスト2】は印刷タイトル(行タイトル)が添付されましたが、
>【リスト1】のほうには印刷タイトルが添付されませんでした。
>
>先ほどのご質問で言葉足らずで申し訳ありませんが、
>【リスト1】と【リスト2】を印刷タイトル付きで、かつ、
>[ファイル]メニューの[印刷]を実行したときに印刷するように
>するためには、一度、【リスト1】が印刷された後、
>印刷されたという情報を取得し、その後、【リスト2】を
>印刷するというフローにしたほうがよろしいのでしょうか?

このコードはマクロですべて印刷するようにしていますので、
[ファイル]メニューの[印刷]で、印刷するようになっていません。

メニューの「マクロ」から実行するか、シート上にボタンを配置して、
このマクロを登録して実行してください。


>また、下記のプログラムでいくつか質問させてください。
>
>>Dim trow As String
>上記の宣言ですが、trowという変数が見当たらないのですが、
>これは何をするためのものなのでしょうか?

これは、消し忘れたものなので、削除してください。


>>        .PrintArea = r.CurrentRegion.Address
>上記を入れて実行した場合、
>リスト2の先頭行の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

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 お礼

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