sub print                                            
       olecmd = 6    ' Commande d'impression               
       oleparam = 1                                        
       on error resume next                                
       WB.ExecWB olecmd, oleparam                          
       if err.number<> 0 then                              
        if DA then ' IE4 - utilisateur probabement planté  
         alert "Rien n'a été imprimé."
        else  ' IE3 -                                      
         handle_error
        end if
       end if
      end sub