Yes, I know, I only tried it after I posted, see my other post on suggestions how that handle it.

>Mike,
>
>&& cDef_printer = "AUTO HP DESKJET 970CXI SUR SERVEUR"
>
> .crreport.PrinterName = cDef_printer
>
>Error 1426
>I Have OLE error code 0x8002000e: Nombre de paramètres non valide.
>
>What Happend ?
>
>bernhart
>
>>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