Impression avec Calc Open office

Version imprimable

11/02/2009, 14h52
Bruiser

Impression avec Calc Open office

Bonjour.
Après la sauvegarde... l'impression:oops:.

Sur le FAQ C++ Builder j'ai trouvé le code suivant qui permet d'imprimer une feuille calc open office

Citation:

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

Voici ce que fait mon programme :
-Ouverture d'un fichier existant
-Remplissage des casses des tableaux
-Impression
-Fermeture du fichier

Le problème c'est qu'il ne m'imprime que la feuille qui s'affiche à l'ouverture du fichier. Mon fichier ce compose de trois feuilles, et je souhaite imprimer les 3. Comment faire?

Merci

Je vous transmets une adaptation d'une portion de code que j'utilise ; j'ai modifié les noms des variables pour qu'elles correspondent à celles de la FAQ. Je ne l'ai pas testé en l'état.
Ceci doit vous permettre d'inclure les pages voulues en utilisant le même paramétrage que celui des boîtes de dialogue d'impression.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Variant vOOoPrCount = vOOoOpenOffice.OleFunction("Bridge_GetStruct","com.sun.star.beans.PropertyValue"); Variant vOOoPrPages = vOOoOpenOffice.OleFunction("Bridge_GetStruct","com.sun.star.beans.PropertyValue"); vOOoPrCount.OlePropertySet("Name","Count"); vOOoPrCount.OlePropertySet("Value",1); //Nombre d'ensembles de pages à imprimer vOOoPrPages.OlePropertySet("Name","Pages"); vOOoPrPages.OlePropertySet("Value","1-4");//Pages à imprimer ; "1-" devrait convenir dans votre cas int Bounds2[2] = {0,1};// Selon le nombre de propriétés à utiliser; //int Bounds2[2] = {0,3};// pour 4 props par ex. Variant vOOoPrProps = VarArrayCreate(Bounds2, 1, varVariant); vOOoPrProps.PutElement(vOOoPrCount,0); vOOoPrProps.PutElement(vOOoPrPages,1); OOoDocument.OleFunction("Print",vOOoPrProps);
Le "Guide du développeur" disponible sur le site OOo est très complet quant aux options disponibles (format papier, orientation, collation...)

Un problème toutefois : lorsque je demande l'impression d'un doc 2 fois (Count = 2), l'imprimante me sort 4 exemplaires ; si j'en demande n j'en obtiens n² ! Y'a comme un conflit avec Windows je pense. Blondelle a-t-il testé cela ?

11/02/2009, 22h50
blondelle
Salut TABZ

Citation:

Blondelle a-t-il testé cela ?

Non je n'ai pas fait de teste, je n'utilise que tres peu OpenOffice, juste une idee comme cela il serait peut etre interressant de recuperer la valeur renvoyee par
Code:

1 2 vOOoPrProps.PutElement(vOOoPrCount,0);
Il doit bien y avoir la possibilite de recuperer un Variant sous forme d'une chaine
12/02/2009, 09h36
Bruiser

Merci TABZ, le code que vous m'avez donné est assez intéressant, mais il ne permet malheureusement pas de résoudre mon problème, car mon problème ne se situe pas au niveau des pages, mais au niveau des feuilles (Je sais pas si cette phrase est vraiment claire:?). J'ai trois feuilles de calcule, mais chacune tient sur une page A3. http://img5.imageshack.us/my.php?image=feuille1wd2.gif

Par contre quand je demande l'impression d'un doc 2 fois (Count = 2), il ne me sort qu'un exemplaire :lol:, à mon avis sa doit venir du faite que j'utilise l'imprimante virtuel pdf creator.

Citation:

Non je n'ai pas fait de teste, je n'utilise que tres peu OpenOffice, juste une idee comme cela il serait peut etre interressant de recuperer la valeur renvoyee par
Code :

Citation:

vOOoPrProps.PutElement(vOOoPrCount,0);

Il doit bien y avoir la possibilite de recuperer un Variant sous forme d'une chaine

Dans quel but?? (je suis complètement ignorant :aie:)
12/02/2009, 12h32
TABZ

Bonjour.

Blondelle : j'ai fait référence à vous parce que sur ce forum vous me semblez être celui qui a le plus fait avancer le sujet de l'OLE automation avec OpenOffice ; vous auriez pu avoir été confronté à ce problème.
Suite à ma réponse d'hier, j'ai refait une recherche sur un forum OOo et j'ai enfin une reponse : ce serait un bug identifié de OOo, depuis la version 2.4.0 corrigé dans la version 3.1 !

Bruiser : effectivement, avec PDF Creator, le nombre de docs (Count) est inopérant. Par contre, comme je le disais précédemment, il est possible de changer le format de page à imprimer ; c'est un autre processus décrit dans le Guide du développeur OOo, que j'ai déjà utilisé ; j'essaierai de le retrouver ce soir, mais je pense qu'avec la FAQ et le code fourni ici vous devriez pouvoir vous en sortir.
Bon courage.

Citation:

Blondelle : j'ai fait référence à vous parce que sur ce forum vous me semblez être celui qui a le plus fait avancer le sujet de l'OLE automation avec OpenOffice

C'est vrai que j'ai traduit une partie des exemples Delphi, je n'ai d'ailleur pas su tout traduire, pour mon travail j'utilise la suite MsOffice, les codes VB sont plus facile a traduire pour moi.
J'ai fait un essai chez moi avec la version 3.0 voici ce que j'ai fait
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Variant vOOoPrCount = vOOoOpenOffice.OleFunction("Bridge_GetStruct","com.sun.star.beans.PropertyValue"); Variant vOOoPrCollate = vOOoOpenOffice.OleFunction("Bridge_GetStruct","com.sun.star.beans.PropertyValue"); Variant vOOoPrPages = vOOoOpenOffice.OleFunction("Bridge_GetStruct","com.sun.star.beans.PropertyValue"); vOOoPrCount.OlePropertySet("Name","Copies"); vOOoPrCount.OlePropertySet("Value",1); //Nombre d'ensembles de pages à imprimer vOOoPrCollate.OlePropertySet("Name", "Collate"); vOOoPrCollate.OlePropertySet("Value", true); int Bounds2[2] = {0,1};// Selon le nombre de propriétés à utiliser; Variant vOOoPrProps = VarArrayCreate(Bounds2, 1, varVariant); vOOoPrProps.PutElement(vOOoPrCount,0); vOOoPrProps.PutElement(vOOoPrCollate,1); vOOoDocument.OleFunction("Print",vOOoPrProps);

L'exemple de code suivant permet de fixer les paramètres d'impression d'un doc OpenOffice. (Imprimante à utiliser, orientation, format papier).
Il est possible de créer une propriété (vOOoPrtDescriptor) de toutes pièces, mais il est plus interessant d'invoquer "getPrinter" : cette propriété est alors auto-générée, et il est possible de lire le paramétrage actuel de l'imprimante avant de le modifier. (Il existe d'ailleurs aussi un booléen "IsBusy" permettant de tester la disponibilité de l'imprimante.)

La propriété vOOoPrtDescriptor est en fait un tableau de variants ; on scrute celui-ci élément par élément.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
String PrtName = "<Nom de l'imprimante>";
int PwSize; //Largeur en mm
int PhSize; //Hauteur en mm
 
Variant vOOoPrtDescriptor = vOOoDocument.OleFunction("getPrinter");
 
for(int i=0; i<=vOOoPrtDescriptor.ArrayHighBound(1); i++)
{
	Variant vOOoY = vOOoPrtDescriptor.GetElement(i);
        if(AnsiString(vOOoY.OlePropertyGet("Name")) == "Name")  
        {
           	//String(vOOoY.OlePropertySet("Value")); // -> retourne le nom de l'imprimante actuelle
		vOOoY.OlePropertySet("Value",PrtName.c_str());// Nom imprimante
                vOOoPrtDescriptor.PutElement(vOOoY,i);
        }
        if(AnsiString(vOOoY.OlePropertyGet("Name")) == "PaperOrientation")
        {
                vOOoY.OlePropertySet("Value",0);	//0: Portrait; 1: paysage
                vOOoPrtDescriptor.PutElement(vOOoY,i);
        }
        if(AnsiString(vOOoY.OlePropertyGet("Name")) == "PaperFormat")
        {
                vOOoY.OlePropertySet("Value",0);// 0 à 8 = A3, A4, A5, B4, B5, LETTER, LEGAL, TABLOID, USER
                vOOoPrtDescriptor.PutElement(vOOoY,i);
        }
        if(AnsiString(vOOoY.OlePropertyGet("Name")) == "PaperSize") // Cas "USER"
       	{
                Variant vOOoY2 = vOOoY.OlePropertyGet("Value");
                vOOoY2.OlePropertySet("Width", 100*PwSize);
                vOOoY2.OlePropertySet("Height", 100*PhSize);
                vOOoY.OlePropertySet("Value", vOOoY2);
                vOOoPrtDescriptor.PutElement(vOOoY,i);
      	}  
}
vOOoDocument.OleFunction("setPrinter", vOOoPrtDescriptor);

J'espère que tout celà pourra vous aider.

Merci beaucoup pour votre aide.
J'ai trouvé une solution, j'en suis pas super Fan mais sa marche.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 void __fastcall Print3File (int x) { Variant vOOoMonClasseur; Variant vOOoMaFeuille; Variant vOOoPrCount = vOOoOpenOffice.OleFunction("Bridge_GetStruct","com.sun.star.beans.PropertyValue"); Variant vOOoPrCollate = vOOoOpenOffice.OleFunction("Bridge_GetStruct","com.sun.star.beans.PropertyValue"); Variant vOOoPrPages = vOOoOpenOffice.OleFunction("Bridge_GetStruct","com.sun.star.beans.PropertyValue"); vOOoPrCount.OlePropertySet("Name","Copies"); vOOoPrCount.OlePropertySet("Value",2); //Nombre d'ensembles de pages à imprimer vOOoPrCollate.OlePropertySet("Name", "Collate"); vOOoPrCollate.OlePropertySet("Value", true); int Bounds2[2] = {0,1};// Selon le nombre de propriétés à utiliser; Variant vOOoPrProps = VarArrayCreate(Bounds2, 1, varVariant); vOOoPrProps.PutElement(vOOoPrCount,0); vOOoPrProps.PutElement(vOOoPrCollate,1); vOOoDocument.OleFunction("Print",vOOoPrProps); vOOoMonClasseur = vOOoDocument.OleFunction("getSheets"); vOOoMaFeuille = vOOoMonClasseur.OleFunction("GetByIndex", x); // on rend la feuille invisible vOOoMaFeuille.OlePropertySet("IsVisible", false); }
Lorsque je lance une impression j'appelle la fonction "Print3File" autant de fois que j'ai de feuille, cad, si j'ai 3 feuille j'appelle 3 fois "Print3File" avec une boucle for et après chaque impression je rends invisible la feuille qui vient d'être imprimé, c'est ce qui me permet de sélectionné les feuilles. Mais bon c'est pas tip top, car si mon fichier ne s'ouvre pas à la première feuille je risque d'avoir des problèmes.
De plus en entre les impressions je mets une temporisation (avec une boucle for :?) car sinon il me saute des feuilles. Je pense que le faite de tester la disponibilité de l'imprimante entre chaque impression pourrait résoudre ce désagrément, mais...comment qu'on fait? :aie:

13/02/2009, 13h09
blondelle
J'ai trouve pour imprimer plusieurs fois une feuille ceci dans la FAQ Delphi
Code:

1 2 3 vOOoPrCount.OlePropertySet("Name","CopyCount"); // qui remplace "Copies" vOOoPrCount.OlePropertySet("Value",2);
Chez moi l'impression de plusieurs feuilles ne fonctionne pas par exemple (Feuille_maitresse, et Feuille_data, et Feuille_value), je n'imprime que la feuille selectionnee, je pense qu'il doit y avoir une chaine de remplacement pour ("Name","Pages") comme pour "Copies", je n'ai pas encore trouve

Chez moi l'impression d'un doc de trois pages fonctionne, si je fais :
Code:

1 2 3 vOOoPrCount.OlePropertySet("Name","Pages"); vOOoPrCount.OlePropertySet("Value","1-3");// ou "1,2,3", ou "1-" qui équivaut à All
Pour Bruiser : code pour tester la disponibilité de l'imprimante (à adapter à votre cas)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Variant vOOoPrtDescriptor = vOOoDocument.OleFunction("getPrinter"); for(int i=0; i<=vOOoPrtDescriptor.ArrayHighBound(1); i++) { Variant vOOoY = vOOoPrtDescriptor.GetElement(i); if(AnsiString(vOOoY.OlePropertyGet("Name")) == "IsBusy") { if(bool(vOOoY.OlePropertyGet("Value"))) { //Imprimante occupée => attente } else { //Imprimante disponible } }
De toutes façons, le bug sur le nombre de docs imprimés doit être corrigé par OOo dans la v 3.1 ; à moins que celà ne soit déjà le cas avec la 3.0.1 qui vient de sortir. Je ne pourrai malheureusement pas essayer avant samedi...