マクロを使った差込印刷

Sub 通知書発行() ' 通知書発行 Macro マクロ記録日 : 2006/2/15 ユーザー名 : donna

'

Range("Q46").Select ActiveCell.FormulaR1C1 = "A社"

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Range("Q46").Select ActiveCell.FormulaR1C1 = "B社"

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Range("Q46").Select ActiveCell.FormulaR1C1 = "C社"

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Range("Q46").Select ActiveCell.FormulaR1C1 = "D社"

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Range("Q46").Select ActiveCell.FormulaR1C1 = "E社"

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Range("Q46").Select ActiveCell.FormulaR1C1 = "F社"

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("通知書一覧").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("通知書").Select End Sub