Print Rows Based on Value in Column A

I am running the following macro which sets the print area to only include rows where there is data in column A. However, I only want to print rows where there is an actual VALUE (ie, not just a formula which creates a null value).

Sub Print_DELIVERY()
Dim LR As Long
With Sheets("SelfAdminDelivery")
    Sheets("SelfAdminDelivery").Activate
    LR = .Range("A" & Rows.Count).End(xlUp).Row
        .PageSetup.PrintArea = "A1:I" & LR
        Sheets("SelfAdminDelivery").Activate
     Application.Dialogs(xlDialogPrint).Show
        .Select
End With
End Sub

Any ideas would be greatly appreciated!