Excel macro

Her er lidt inspiration:

Det er arket med navnet "Ark1", der udskrives 6 gange. Første gang udskrives arket som det er. De efterfølgende 5 gange ændres cellerne B2, B3 og B4.


Sub Print6()

ActiveSheet.PrintOut Copies:=1, Collate:=True

Worksheets("Ark1").Range("B2") = "B"
Worksheets("Ark1").Range("B3") = 2
Worksheets("Ark1").Range("B4") = 2
ActiveSheet.PrintOut Copies:=1, Collate:=True

Worksheets("Ark1").Range("B2") = "C"
Worksheets("Ark1").Range("B3") = 3
Worksheets("Ark1").Range("B4") = 3
ActiveSheet.PrintOut Copies:=1, Collate:=True

Worksheets("Ark1").Range("B2") = "D"
Worksheets("Ark1").Range("B3") = 4
Worksheets("Ark1").Range("B4") = 4
ActiveSheet.PrintOut Copies:=1, Collate:=True

Worksheets("Ark1").Range("B2") = "E"
Worksheets("Ark1").Range("B3") = 5
Worksheets("Ark1").Range("B4") = 5
ActiveSheet.PrintOut Copies:=1, Collate:=True

Worksheets("Ark1").Range("B2") = "F"
Worksheets("Ark1").Range("B3") = 6
Worksheets("Ark1").Range("B4") = 6
ActiveSheet.PrintOut Copies:=1, Collate:=True

End Sub

jada det var sådan noget jeg lige skulle bruge, tror det er nok til at komme vidrer :-)
det løser ihvertfald mit (nu og her) problem.
takker mange gange :-)

:0)