Coba edit menjadi :

Private Sub btnPRINT_Click()
Dim rng As Range, sel As Range
Set rng = shData.Range("B1:B" & shData.Range("A" & Rows.Count).End(xlUp).Row)
Application.ScreenUpdating = False

With ListBox1
For i = 0 To .ListCount - 1
    If .Selected(i) Then
        For Each sel In rng
            If sel = .List(i, 0) Then
                x = shPrint.Range("D" & Rows.Count).End(xlUp).Row + 1
                shData.Range("A" & sel.Row, "F" & sel.Row).Copy
                shPrint.Range("D" & x).PasteSpecial xlPasteValues
            End If
        Next
    End If
Next i
End With

Unload Me
Application.ScreenUpdating = True
With shPrint
    .PageSetup.PrintArea = .Range("D2:I" & .Range("D" & Rows.Count).End(xlUp).Row).Address
    .PrintPreview
End With
End Sub