pop message when print again for the same range

Halk

If you're only interested in repeating the same range (not and chnaged content in that), then the code below will work for you.

You'll see that I've added a new varaible NewPrint and created a stringso it can be compared with what VBA returns as the PrintArea (i.e. including the $ signs). Key changes on that are in bold below:

Sub sPrint()
    Set sh = Sheets("print")
With sh
    If .Range("B2") = "" Then
        MsgBox "There is  no data in column F", vbInformation + vbMsgBoxRight, "Print"
        Exit Sub
    End If

    Last = .Cells(.Rows.Count, 6).End(xlUp).Row
    NewPrint = "$A$1:$F$" & Last

    If NewPrint = .PageSetup.PrintArea Then ' Check if print area has changed
        r = MsgBox("This area has been printed; do you want to print it again?", vbYesNo, "Range unchanged")
        If r = vbNo Then Exit Sub ' if the user says no, quit macro
    End If
    'otherwise proceed to print...
    .PageSetup.PrintArea = NewPrint
    .PrintOut
End With
End Sub