Excel VBA質問箱 IV

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

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


16937 / 76732 ←次へ | 前へ→

【65257】Re:印刷範囲の設定方法について
発言  りん E-MAIL  - 10/5/1(土) 11:46 -

引用なし
パスワード
   suika さん、こんにちわ。

>こんにちわ。suikaです。

>ですが、困ったことに、別のシート(データの行数が全部で約400行ある)で、
>この印刷範囲設定マクロを使用しますと、4ページ〜9ページの先頭行に、列
>ラベルが表示されてしまいます。
>このまま、印刷をかけますと、OA紙が無駄になるので、手動で印刷ページの
>指定を行っています。

実行するときに行数を判定してみては?

その1
 単純に使用範囲で判定する場合

  With Application.ActiveSheet
    'シートのデータの最下行を印刷範囲の一番したとする
    With .UsedRange
      Rmax = .Cells(.Count).Row
    End With
    '
    .PageSetup.PrintArea = "$A$1:$L$" & Rmax
  End With

その2
 データはないけど書式とか連番とかで使用範囲が必要な部分より大きい場合

  With Application.ActiveSheet
   'データが入っている最下位置を判断する基準列をBとした場合
   Rmax = .Cells(.Rows.Count, "B").End(xlUp).Row
   .PageSetup.PrintArea = "$A$1:$L$" & Rmax
  End With
0 hits

【65255】印刷範囲の設定方法について suika 10/4/30(金) 22:32 質問
【65257】Re:印刷範囲の設定方法について りん 10/5/1(土) 11:46 発言
【65258】Re:印刷範囲の設定方法について suika 10/5/1(土) 15:36 お礼

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