Excel VBA質問箱 IV

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

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


29663 / 76732 ←次へ | 前へ→

【52346】項目行を続けて印刷するには
質問  At  - 07/11/9(金) 19:22 -

引用なし
パスワード
   下のようなシートで
タイトル行は1・2行の2行分
3・4行は空白です。

5行目からB列の内容が異なるときに
行変えして行変えを基準に
順次印刷をしたいのですが

印刷のコードをどこに入れると良いのでしょうか?
アドバイスお願いします。よろしくお願いします。

また項目行とデータ行を続けて印刷出力させるには
どのような方法があるのか教えてください。

    A     B     C
1  AAA    BBB    CCC
2  111    121    131
3
4
5   a     aa
6   b     bb
7   b     bb
8   c     cc
9   c     cc

Sub test()
  Dim RR As Long, Rmax As Long, ws As Worksheet
  Set ws = ActiveWorkbook.ActiveSheet
 
  With ws.UsedRange
   Rmax = .Cells(.Count).Row
  End With

  ActiveSheet.PageSetup.PrintTitleRows = _
      ActiveSheet.Rows("1:2").Address
   
  With ws  
   .DisplayPageBreaks = False
   For RR = 5 To Rmax
     If .Cells(RR, 2).Value <> .Cells(RR - 1, 2).Value Then
      .HPageBreaks.Add .Cells(RR, 2)
     End If
   Next    
   .DisplayPageBreaks = True
  End With
End Sub

1ページ目の印刷は
  AAA    BBB    CCC
  111    121    131
   a     aa
2ページ目の印刷は
  AAA    BBB    CCC
  111    121    131
   b     bb
   b     bb
このように仕上げて1〜3ページ印刷仕上げにしたいのです。

0 hits

【52346】項目行を続けて印刷するには At 07/11/9(金) 19:22 質問
【52348】Re:項目行を続けて印刷するには statis 07/11/10(土) 1:36 回答
【52369】Re:項目行を続けて印刷するには At 07/11/11(日) 11:25 質問
【52380】Re:項目行を続けて印刷するには statis 07/11/11(日) 18:53 発言

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