Variant vOOoOpenOffice, vOOoDocument, vOOoDesktop, vOOoLoadParams;
Boolean vOOoDocumentExist;
 
try
{
  vOOoOpenOffice = CreateOleObject("com.sun.star.ServiceManager");
}
catch (...)
{
 // si on passe ici c'est qu'il y a une erreur qu'il faudra traiter
}
if (VarType(vOOoOpenOffice) == varDispatch)
vOOoDesktop = vOOoOpenOffice.OleFunction("createInstance", "com.sun.star.frame.Desktop");
int Bounds[2] = {0,-1};
vOOoLoadParams = VarArrayCreate(Bounds, 1, varVariant);
// ici on ouvre un nouveau document vierge calc
vOOoDocument = vOOoDesktop.OleFunction("LoadComponentFromURL", "private:factory/scalc", "_blank", 0, vOOoLoadParams);
vOOoDocumentExist = !(VarIsEmpty(vOOoOpenOffice) || VarIsNull(vOOoOpenOffice)); // false

// trois façons de fermer le document
 
// ici on ferme le document ouvert sans sauvegarde comme décrit dans la FAQ delphi
    vOOoDocument.OleFunction("dispose");
    vOOoOpenOffice = Unassigned;
 
// ici on ferme le document avec ou sans sauvegarde
    vOOoDocument.OleFunction("close", false); // true
    vOOoDocument = Unassigned();
 
// la fermeture brutale
    vOOoDesktop.OleFunction("terminate"); //
    vOOoDesktop = Unassigned();

int Bounds[2] = {0,-1};
 
vOOoDocument.OleFunction("print", VarArrayCreate(Bounds, 1, varVariant));