Makro til udskrift

Jeg går udfra, at du lavet din sideopsætning, således at række 1-3 kommer ud øverst på hver side.... er det tilfældet, så skulle denne makro løse dit problem.

Sub PrintJob()
    ' Set Printarea
    ActiveSheet.PageSetup.PrintArea = "$A$4:$M$" & CStr(ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row)
    ' Print
    ActiveSheet.PrintOut Copies:=1
End Sub

Hej Flemmingdahl
Tak for svaret
Jeg har lavet lille regne ark hvor det fungerer, men når jeg er i aktuelle regneark  og sletter 150 rækker tager den reference hvor den tidligere printede.
Jeg har udskriftsområde til "$A$1:$L$"
Efter at have kørt mackro står udskriftområde i sideopsætning til A1:L1062 selv om regnearket kun er A1:P162, der bliver udskrevet mange sider. Hvad kan være galt???

Håber på svar

Det er sikkert fordi du har noget formatering hængende ned til række 1062
Prøv at slette alle rækker under 162

ellers kan du lave flemmings makro lidt om således
Sub PrintJob()
    ' Set Printarea
    ActiveSheet.PageSetup.PrintArea = "$A$4:$L$" & CStr(ActiveSheet.Range("A65536").End(xlUp).Row)
    ' Print
    ActiveSheet.PrintOut Copies:=1
End Sub

Hej Bak
Jeg havde ingen formatering til at hænge, nu virker den men udskriver kun ramme selv om jeg har afkrydset gitterlinier, hvordan får jeg udskrevet med gitterlinier.
Er det iorden at i deler point?? er nybegynder hvordan gør jeg?
På forhond tak

Hej Bak
Jeg retter lige fra kommentar til svar??
Jeg havde ingen formatering til at hænge, nu virker den men udskriver kun ramme selv om jeg har afkrydset gitterlinier, hvordan får jeg udskrevet med gitterlinier.
Er det iorden at i deler point?? er nybegynder hvordan gør jeg?
På forhond tak

Lyder lidt mærkelig med de gitterlinier. Har du sat printer til Draft / Kladde ?
Points går til Flemming. Jeg har kun lige lavet lidt om.

Den står på normal udskrift, kan kun skrive gittrliniernår
jeg bruger top-ikon kanter, ellers udskrives kun rammer.