Excel VBA質問箱 IV

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

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


5146 / 13644 ツリー ←次へ | 前へ→

【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 発言[未読]

【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ページ印刷仕上げにしたいのです。

【52348】Re:項目行を続けて印刷するには
回答  statis  - 07/11/10(土) 1:36 -

引用なし
パスワード
   ▼At さん:

こんばんわ


お試しを。
Sub Test()
Dim R As Range, C As Range, Ro As Long
With ActiveSheet
   Ro = .Range("B65536").End(xlUp).Row
   .Range("B4:B" & Ro).AdvancedFilter xlFilterInPlace, , , True
   Set R = .Range("B5:B" & Ro).SpecialCells(xlCellTypeVisible)
   If .FilterMode Then
    .ShowAllData
   End If
   .Range("B2:B" & Ro).AutoFilter
   For Each C In R
     .Range("B2:B" & Ro).AutoFilter 1, C.Value
     .PrintPreview 'プレビュー
     '.PrintOut  ’即印刷
   Next C
   .AutoFilterMode = False
End With
Set R = Nothing
End Sub

【52369】Re:項目行を続けて印刷するには
質問  At  - 07/11/11(日) 11:25 -

引用なし
パスワード
   ▼statis さん:

ご回答有難うございました。
コードを動作させていただき、なるほど っと
素晴らしいコードを提示頂き喜んでいます。

ただ、プレビューを見ますと項目行のみが
表示される状態です。
フィルターのかかったデータと共に(一緒に)
表示されませんが、何か問題があるのでしょか?

【52380】Re:項目行を続けて印刷するには
発言  statis  - 07/11/11(日) 18:53 -

引用なし
パスワード
   ▼At さん:
こんにちは
>ご回答有難うございました。
>コードを動作させていただき、なるほど っと
>素晴らしいコードを提示頂き喜んでいます。
>
>ただ、プレビューを見ますと項目行のみが
>表示される状態です。
>フィルターのかかったデータと共に(一緒に)
>表示されませんが、何か問題があるのでしょか?

こちらでは問題ないですが?
3〜4行目の空白行は必要ありますか?
必要なければいったん削除して印刷後追加のコードを加えれば良いかと思います。
多分、空白行が原因かと思われます。

他の方法として印刷シートを作りそこにコピーして印刷を繰り返す
方法もありますが。

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