Impression en batch

Hello,

Je suis en forms 9i mon code doit imprimer un rapport directement sur l'imprimante par défaut du client. Cela fonctionne bien excepté que l'application est inutilisable / bloquée pendant 10 à 15 sec lorsque l'impression est demandé.

Pourtant j'ai mis en mode batch et asynchronous mais ça ne change rien, quelqu'un aurait une idée d'où pourrait venir le problème?

Code:

1
2
3
4
5
6
7
8
9
10
11
 
        t_printer := client_win_api_environment.Read_Registry('HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows\','Device',TRUE);
        t_printer := substr(t_printer,1,instr(t_printer,',')-1);
	SET_REPORT_OBJECT_PROPERTY(pt_rep_id, REPORT_SERVER, p_report_server);
        SET_REPORT_OBJECT_PROPERTY(pt_rep_id, REPORT_DESTYPE, PRINTER);
        SET_REPORT_OBJECT_PROPERTY(pt_rep_id, REPORT_DESFORMAT, 'PDF');
        SET_REPORT_OBJECT_PROPERTY(pt_rep_id, REPORT_DESNAME, t_printer);
        -- ** --
        SET_REPORT_OBJECT_PROPERTY(pt_rep_id, REPORT_EXECUTION_MODE,BATCH);
        SET_REPORT_OBJECT_PROPERTY(pt_rep_id, REPORT_COMM_MODE,ASYNCHRONOUS );
        SET_REPORT_OBJECT_PROPERTY(pt_rep_id, REPORT_FILENAME, p_file_nm);

Merci