I found an alternative solution to solve this!
Maybe doesn't the best solution, but this way, I run report only one time to print the desired range!

Local loReportListener
loReportListener = Newobject("_ReportListener","_ReportListener")
loReportListener.ListenerType = 3
Report Form report1 Object loReportListener NoPageEject
Report Form report1 Object loReportListener
With loReportListener
     With .CommandClauses
          .PrintRangeFrom = 10
          .PrintRangeto = 20
     Endwith
     .OnPreviewClose(.T.)
EndWith
loReportListener = NULL