Bonjour à toutes et à tous,
avec mes faibles connaissances en macro, j'ai fabriquée celle-ci ci dessous, par contre je voudrais, quand on la déclenche avec un bouton affecté, qu'un message de confirmation apparaisse avec OUI ou NON voulez vous imprimer toutes les fiches, vu que cela déclenche l'impression de 99 fiches.
Merci et bonne journée
Philippe
Sub Macro15()
'
' Macro15 Macro
' Macro enregistrée le 27/10/2008 par 013dir
'
'
Range("AD2:AF2").Select
ActiveCell.FormulaR1C1 = "A 02 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 02 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 03 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 03 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 04 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 04 (04)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 05 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 05 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 06"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 07"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 08"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 09"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 10"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 11"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 12"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 13"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 14"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 15"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 16"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 17"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 18"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 19"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 20"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 21"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 22"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 23"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 24"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 25"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 26 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 26 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 27 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 27 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 28 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 28 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 29 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 29 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 30"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 31"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 32"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B CH1"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 33 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 33 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 34 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 34 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 35 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 35 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 36 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 36 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 37 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 37 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 38 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 38 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 39"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 40"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 41"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 42"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 43"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 44"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 45"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 46"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 47"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 48"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 49"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 50"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 51"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 52"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 53"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 54"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 55"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 56"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 57 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 57 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 58 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 59 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 59 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 60 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 60 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 61"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 62"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 63"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C CH2"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 64 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 64 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 65 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 65 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 66 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 66 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 67 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 67 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 68 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 68 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 69 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 69 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 70"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 71"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 72"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 73"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 74"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 75"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 76"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 77"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 78"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 79"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 80"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 81"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 82"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
avec mes faibles connaissances en macro, j'ai fabriquée celle-ci ci dessous, par contre je voudrais, quand on la déclenche avec un bouton affecté, qu'un message de confirmation apparaisse avec OUI ou NON voulez vous imprimer toutes les fiches, vu que cela déclenche l'impression de 99 fiches.
Merci et bonne journée
Philippe
Sub Macro15()
'
' Macro15 Macro
' Macro enregistrée le 27/10/2008 par 013dir
'
'
Range("AD2:AF2").Select
ActiveCell.FormulaR1C1 = "A 02 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 02 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 03 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 03 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 04 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 04 (04)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 05 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 05 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 06"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 07"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 08"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 09"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 10"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 11"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 12"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 13"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 14"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 15"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 16"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 17"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 18"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 19"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 20"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 21"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 22"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 23"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 24"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 25"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 26 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 26 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 27 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 27 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 28 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 28 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 29 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 29 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 30"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 31"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 32"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B CH1"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 33 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 33 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 34 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 34 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 35 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 35 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 36 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 36 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 37 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 37 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 38 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 38 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 39"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 40"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 41"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 42"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 43"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 44"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 45"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 46"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 47"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 48"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 49"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 50"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 51"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 52"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 53"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 54"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 55"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 56"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 57 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 57 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 58 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 59 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 59 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 60 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 60 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 61"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 62"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 63"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C CH2"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 64 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 64 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 65 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 65 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 66 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 66 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 67 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 67 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 68 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 68 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 69 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 69 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 70"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 71"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 72"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 73"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 74"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 75"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 76"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 77"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 78"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 79"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 80"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 81"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 82"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub