Excel print

Prøv med nedenstående makro. Den aktiveres ved at skrive noget i C1 (hvad som helst). Og printområdet bestemmes af hvad der står i A1:A2. I dit tilfælde skal der i A1 stå "A1" og i A2 "K15"

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("c1")) Is Nothing Then
On Error Resume Next
'Choses print range (indirect(A1:A2))
rng = Range("A1") & ":" & Range("A2")
ActiveSheet.PageSetup.PrintArea = Range(rng).Address
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
End Sub