You can specify the Windows default printer or VFP default printer.

Local cDef_printer
cDef_printer = SET("PRINTER",2)  && Or SET("PRINTER",3)
ocrreport.PrinterName=cDef_printer

You can also specify:
ocrreport.papersize
occreport.papersource
occreport.paperorientation


>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