Hello All,
The problem was solved.
Use CRViewer.PrintReport and put in place the following subroutines:
Sub CRViewer_DownloadFinished(byval downloadType)
 if downloadType = 1 and PageOne then 
 PageOne = False
 timer = window.settimeout("OnMyTimeOut",1000)
 end if
end sub

Sub OnMyTimeOut()
if not CRViewer.IsBusy then
 window.ClearTimeout(timer)
 CRViewer.PrintReport
 printerTimer = window.SetTimeOut("OnPrinterTimeOut", 1000)
 end if
end sub

Sub OnPrinterTimeOut()
 if not CRViewer.IsBusy then
  window.ClearTimeOut(printerTimer) 
  window.History.Back
 end if
end sub