Discussion :

[Amine78]

Bonjour,

J'ai développé une application qui remplit une facture au format Excel avec Borland C++ Builder. Pour remplir ma facture Excel, j'utilise le pilotage OLE.

Ensuite je converti cette facture en PDF avec PDFCreator(imprimante virtuelle) pour cela j'utilise cette ligne de code :

vWorksheet.OleProcedure("PrintOut");

Mon problème est le suivant si l'imprimante virtuelle de PDFCreator n'est pas l'imprimante par défaut, dans ce cas là ma facture n'est pas converti.

Est il possible de spécifier une imprimante avec le pilotage OLE ou sinon est il possible de modifier via mon programme l'imprimante par défaut ???

Merci d'avance pour vos réponses.

Amine.

[ZaaN]

un autre chemin de solution plus portable serait de choisir, non pas l 'imprimante par default, mais l'imprimante qui te conviens ( l'imprimante virtuelle) de manière dynamique.

Cela t eviterais de changer l imprimante par default pour tout le reste du systeme.

[Amine78]

Oui c'est clair, j'aimerais bien éviter ça, d'ailleurs dans ma question je le demande comment choisir l'imprimante sur laquelle on va imprimer avec le pilotage OLE d'Execl ?

[josse95]

Sous Word (à vérifier sous Excel mais je pense que c'est la même chose), il existe la propriété ActivePrinter que tu peux initialiser.

Ex, sous C++ Builder:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

word.OlePropertySet("ActivePrinter",imprimante);

Pour le choix du bac:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Variant opt = word.OlePropertyGet("Options");
opt.OlePropertySet("DefaultTray",bac);  // si bac chaîne de caractères

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

opt.OlePropertySet("DefaultTrayID",bac);  // si bac numérique

Pour les numéros ou noms de bac, il faut consulter l'aide.

[Amine78]

Bonjour,

j'arrive toujours pas à choisir mon imprimante, j'ai essayé ca (voir code) mais ca ne marche pas non plus.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Variant imprimante;
  AnsiString imprimante1;
  imprimante1 = "PDFCreator";
  imprimante = imprimante1.c_str();
  vWorksheet.OlePropertySet("ActivePrinter",imprimante);
  vWorksheet.OleProcedure("PrintOut");

Sinon, j'ai pas bien capté l'histoire de bac ...

Amine.

[Pendary]

je me permet de remonter le post car j'ai le même problème :/

voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
TPrinter *Prntr = Printer();
PrinterSetupDialog1->Execute()); //permet de choisir une imprimante
 
Variant imprimante =  StringToOleStr(Printer()->Printers->Strings[Printer()->PrinterIndex]);
vMSExcel.OlePropertySet("ActivePrinter",imprimante);

et j'ai une erreur sur la ligne suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
vMSExcel.OlePropertySet("ActivePrinter",imprimante);

Est ce que quelqu'un serait donc comment définir l'imprimante active pour excel, dans le cas d'une utilisation en Ole.

Merci d'avance

[Amine78]

Perso, j'ai toujours le même problème aussi, j'ai un peu laché l'affaire et j'affiche ma facture au format Excel et non plus en PDF.

Si quelqu'un a une solution merci de nous la proposer, ce problème m'empeche de dormir lol.

[Pendary]

je crois avoir trouvé la solution

voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
PrinterSetupDialog1->Execute();
 
TPrinter *Prntr = Printer();
 
Variant imprimante =  StringToOleStr(Printer()->Printers->Strings[Printer()->PrinterIndex]);
 
      //On modifie l'imprimante active du fichier excel généré
      try
      {
        vWorksheet.OleProcedure("PrintOut",NULL, NULL, NULL, NULL, imprimante, NULL, NULL, NULL);
      }
      catch(...)
      {
      }
 
      //On imprime le fichier
      vWorksheet.OleProcedure("PrintOut");

si tu pouvais tester amine et me dire si cela fonctionne correctement chez toi aussi