|
仮に「キーになるグループが B列に入力されている & 1行目が項目」として、
Sub Test_Print()
Dim MyR As Range, C As Range
Set MyR = Range("A1").CurrentRegion
Application.ScreenUpdating = False
MyR.Sort Key1:=Range("B1"), Order1:=xlAscending, _
Header:=xlYes, Orientation:=xlSortColumns
On Error Resume Next
With Range("B1", Range("B65536").End(xlUp))
.AdvancedFilter xlFilterCopy, , Range("BA1"), True
For Each C In Range("BA2", Range("BA2").End(xlDown))
.AutoFilter 1, C.Value
MyR.SpecialCells(12).PrintPreview 'PrintOut Copies:=1
ActiveSheet.AutoFilterMode = False
Next
End With
Range("BA:BA").ClearContents
Set MyR = Nothing: Application.ScreenUpdating = True
End Sub
本番で印刷するときは、PrintPreview を消して PrintOut Copies:=1 に
変更して下さい。 なお、どの列がグループの基準であっても "1行目が項目" に
なっていることが必須の条件です。
|
|