Print Macro / module error & Update / Clear Macro error

Hi Guys

I have written the macro module 1 for the print preview............ however I only want it to show columns and rows A1 to K48, but somehow I seem to have gone with this

Sub Print_Click()
 Dim lngRow As Long
    
    On Error GoTo PrintMe
    
    With ActiveSheet
        lngRow = .UsedRange.Find("Active", searchdirection:=xlPrevious).Row
        .PageSetup.PrintArea = "A1:K48" & lngRow
    End With
    
PrintMe:
    ActiveSheet.PrintPreview
    
    Exit Sub
End Sub

My next issue is the Post to summary and clear invoice............. i have the code written into the invoice sheet with VBA but nothing is happening when I click on the button...........
Any pointers welcome