Excel VBA質問箱 IV

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

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


29661 / 76732 ←次へ | 前へ→

【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
3 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 発言

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