Makro udskriv / Udskriftsområde

Hej

Jeg har nedenstående kode som udskriver efter de angivne parametrer når man klikker på en knap.
Det der er mit problem er at cellerne/arket, bliver gråt(gennemsigtigt) som når der ikke er angivet et udskriftområde når den har udskrevet.
Hvordan forhindrer jeg den i at gøre det?
Skal jeg definere udskriftsområdet anderledes i makroen?

Sub UDSKRIV()
    With ActiveSheet.PageSetup
        .PrintArea = "$A$2:$D$30"
        .Orientation = xlPortrait
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    With ActiveSheet.PageSetup
        .PrintArea = "$A$32:$D$54"
        .Orientation = xlPortrait
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    With ActiveSheet.PageSetup
        .PrintArea = "$A$56:$D$84"
        .Orientation = xlPortrait
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub