Hello,

I would like by programming to place a default printer in
reports 8.5.

I do not find this property in documentation.
somebody can it help me?

thank you in advance.

SET DEFAULT TO ( cdirectory )

gnNombreDbc = ADIR( gaBaseDonnées, '*.Rpt')  && Crée un tableau
SET DEFAULT TO (  SetOldDefault )

ocrapplication = CREATEOBJECT('CrystalRuntime.Application.8.5')


FOR nCompteur = 1 TO gnNombreDbc     && Effectue une boucle pour connaître le nombre de bases de données
   cName = "C:\cdbk70\amline\ReportsCrystal\" + PROPER( gaBaseDonnées( nCompteur , 1 ) )
    WAIT WIND cName  NOWAIT     && Affiche le nom des bases de données
    
   ocrreport  = ocrapplication.OpenReport( cName , 1 )
   ocrreport.DATABASE.verify()
   ocrreport.SAVEAS( cName , 2048 )
   ocrreport = .NULL.
ENDFOR

MILCENT bernhart