makro der printer fra celle A1 til D30

Her er en makro som er optaget med makrooptageren. Efter jeg startet makrooptageren, markerede jeg området A1:D30 og valgte FIler - Udskriftsområdet - Angiv udskriftsområde. Derefter trykket jeg på printknappen.
Hvis du vil ændre udskriftsområdet, kan du ændre i referencen i makroen:

Sub Makro1()
    Range("A1:D30").Select
    ActiveSheet.PageSetup.PrintArea = "$A$1:$D$30"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

ja men hvad så når jeg har 53 ark i mit regne ark fra Uge 1 til Uge 53
jeg skal bruge makronen til en print knap på hver ark
mvh HC

Jeg er lidt usikker på hvad du vil gøre. Har du 53 ark, som du vil kunne skrive ud fra på en gang, eller vil du have en knap på hvert af de 53 ark for at kunne skrive ud en enkelt uge ad gangen?

Ja jeg skal have en knap på hver side, og den skal kunne udskriv kun fra det ark den er på.
mvh HC

Prøv med denne her makro:

Sub UdskrivAlle()

For I = 1 To 2
    Sheets("Uge " & I).Range("A1:D30").PrintOut Copies:=1, Collate:=True
Next I

End Sub

Ups. Så ikke lige din sidste kommentar, så glem ovenstående.
Denne her burde så klare det.

Sub UdskrivAktuel()

Range("A1:D30").PrintOut Copies:=1, Collate:=True

End Sub

Ovenstående kode, kan du bruge fra en knap fra hvilket som helst ark.

Alternativt kan du have en knap på en startside, hvor du kan vælge hvilken uge du vil udskrive med denne markro:

Sub UdskrivSide()
    svar = InputBox("Udskriv ugenr.:")
    Sheets("Uge " & I).Range("A1:D30").PrintOut Copies:=1, Collate:=True
End Sub

Derved slipper du at skulle sette ind en knap på alle 53 sider.

Koden skal være:
Sub UdskrivSide()
    svar = InputBox("Udskriv ugenr.:")
    Sheets("Uge " & svar).Range("A1:D30").PrintOut Copies:=1, Collate:=True
End Sub

Hej
det er virkeligt godt, smid et svar sjap
jeg er nu nok nødtil at del point for  det med at vælge uge er også rigtig godt
mvh HC

Det er da i orden. :0)