Sub testV2()
Dim Date_D As Long, Date_F As Long, vF As Worksheet, ZoneImpression As String
Set vF = ActiveSheet
Date_D = CLng(vF.Range("L2").Value)
Date_F = CLng(vF.Range("M2").Value)
vF.Range("$A$2:$J$435").AutoFilter _
Field:=1, _
Criteria1:= _
">=" & Date_D, Operator:=xlAnd, _
Criteria2:="<=" & Date_F
ZoneImpression = "$A$1:" & Split(vF.AutoFilter.Range.Columns(10).SpecialCells(12).Cells.Address, ":")(1)
vF.PageSetup.PrintArea = ZoneImpression
vF.PrintPreview
End Sub