jeg har fået denne løsning fra vbaxpress.com
Private Sub CommandButton1_Click()
'--------------------------------------------------------------------------'
' Printer til sidste række og hopper herefter til sidste celle i kolonne A '
'--------------------------------------------------------------------------'
    Dim ws As Worksheet
    Dim lastRow As Long
    
    'arnelgp
    Dim yr As Long
    Dim var As Variant
    
    var = Split(Sheets("T").Range("h2").Value)
    yr = Val(Sheets("T").Range(var(UBound(var))) & "")
    
    
    Set ws = ThisWorkbook.Sheets("Bogføring")


    
    ws.Range("$A$5:$J$65536").AutoFilter Field:=1, Operator:= _
    xlFilterValues, Criteria2:=Array(0, "12/31/" & yr)


'Find sidste række i kolonne B
    lastRow = [LOOKUP(2,1/(B1:B65536<>""),ROW(B1:B65536))]






'Sætter print området til sidste række
    ws.PageSetup.PrintArea = ws.Range("A3:J" & lastRow).Address


'Viser overskriften på hvert print
     ActiveSheet.PageSetup.PrintTitleRows = "$3:$5"


'Viser Dato - Klokken - Sidenummer i bunden af hvert print
     ActiveSheet.PageSetup.CenterFooter = "&8Udskrevet d. &D &  -  & Kl. &T"
    
'Viser ikke printbreaks på fanen
     ActiveSheet.DisplayAutomaticPageBreaks = False
    
'Åbner print
     ActiveSheet.PrintOut 'Preview


'Opdaterer skærmen og hopper til sidste A2


    ws.Range("$A$5:$J$65536").AutoFilter
    ws.Range("$A$5:$J$65536").AutoFilter
    
    Application.ScreenUpdating = True
    ActiveSheet.Range("B65536").End(xlUp).Select
End Sub