質問: エクセルのマクロについて質問です。 表の中からある項目にフィルターを掛け、内容ごとに印刷をしたいです。
回答: 印刷がプレビューになっているので、印刷する場合はPrintPreviewをPrintOutにしてください。 Sub sample() Dim lastRow As Long Dim r As Long lastRow = Range("B" & Rows.Count).End(xlUp).Row 'B列最終行 For r = 2 To lastRow '注目行を2行目から最終行まで If WorksheetFunction.CountIf(Range("B2:B" & r), Range("B" & r).Value) = 1 Then 'B列の2行目から注目行の間でB列注目行の値が1個(始めて)なら ActiveSheet.Range("A:B").AutoFilter Field:=2, Criteria1:=Range("B" & r).Value 'B列の注目行の値でオートフィルタ ActiveSheet.PrintPreview '印刷プレビュー(印刷する時は.PrintOut) End If Next End Sub