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