Discussion :

[Hamza]

Bonsoir a tous,

Voila j'ai développez une application et mes sortie d'état son créée a partir du Word, le remplissage par programmation est fait maintenant je souhaite masquer la fenêtre Word et lancer l'opération d'impression du Word a partir de mon application.

c'est a dire quand l'utilisateur clique sur le bouton impression mon programma va afficher directement la fenêtre aperçu avant impression pour choisir l'imprimante voulue et quand il ferme la fenêtre de l'aperçu le programme fermera automatiquement Word sans enregistrer le doc.

Code :

Code :

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

1
2
3
4
5
6
7
//masquer la fenetre word
Word.Visible:=false;
//afficher la fenetre aperçu avant impression
?????
//fermeture de la fenetre aperçu avant impression je ferme Word sans enregistrer
 Fermeture:= wdDoNotSaveChanges;
 Word.Quit(Fermeture);

voila la structure de mon code, me manque juste comment afficher la fenetre aperçu avant impression.

j'ai tenter avec

Code :

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

word.PrintPreview

Mais sa na pas marcher je ne sais pas pourqois mais sa devrais marcher vue le name de la commande

Merci a vous

[BuzzLeclaire]

Salut,

Je ne sais pas pour word mais pour Excel je fais comme cela :

Code :

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

1
2
3
4
 
          vWorksheet.PageSetup.PrintGridlines := True;
          vWorksheet.PageSetup.Orientation := xlLandscape;  // En Paysage;
          vWorksheet.PrintPreview;

Je déclare le vWorksheet comme ceci

Code :

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

    vWorksheet : variant; // Feuille

Ils existent d'autres parametres pour PageSetup :

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
18
19
20
21
22
23
24
25
26
27
28
        vWorksheet.PageSetup.PrintArea := '';
        vWorksheet.PageSetup.LeftHeader := '';
        vWorksheet.PageSetup.CenterHeader := '';
        vWorksheet.PageSetup.RightHeader := '';
        vWorksheet.PageSetup.LeftFooter := '';
        vWorksheet.PageSetup.CenterFooter := '';
        vWorksheet.PageSetup.RightFooter := '';
        vWorksheet.PageSetup.LeftMargin := vWorksheet.Application.InchesToPoints(1);//0.787401575);
        vWorksheet.PageSetup.RightMargin := vWorksheet.Application.InchesToPoints(1);//0.787401575);
        vWorksheet.PageSetup.TopMargin := vWorksheet.Application.InchesToPoints(1);//0.984251969);
        vWorksheet.PageSetup.BottomMargin := vWorksheet.Application.InchesToPoints(1);//0.984251969);
        vWorksheet.PageSetup.HeaderMargin := vWorksheet.Application.InchesToPoints(0.4);//4921259845);
        vWorksheet.PageSetup.FooterMargin := vWorksheet.Application.InchesToPoints(0.4);//4921259845);
        vWorksheet.PageSetup.PrintHeadings := False;
        vWorksheet.PageSetup.PrintGridlines := False;
        vWorksheet.PageSetup.PrintComments := xlPrintNoComments;
        vWorksheet.PageSetup.PrintQuality := 600;
        vWorksheet.PageSetup.CenterHorizontally := False;
        vWorksheet.PageSetup.CenterVertically := False;
        vWorksheet.PageSetup.Draft := False;
        vWorksheet.PageSetup.PaperSize := xlPaperA4;
        vWorksheet.PageSetup.FirstPageNumber := xlAutomatic;
        vWorksheet.PageSetup.Order := xlDownThenOver;
        vWorksheet.PageSetup.BlackAndWhite := False;
        vWorksheet.PageSetup.Zoom := False;
        vWorksheet.PageSetup.FitToPagesWide := 1;
        vWorksheet.PageSetup.FitToPagesTall := 1;
        vWorksheet.PageSetup.PrintErrors := xlPrintErrorsDisplayed;

...sa vaut de l'or...lol

Mais sache que tous ces parametres ne fonctionnent par forcément....va savoir pourquoi, je n'utilise que ce que j'ai mis en premier.

Maintenant quand l'user ferme l'aperçu, pour ma part il revient dans Excel, je n'ai pas cherché à gérer cela, et je ne sais pas si c'est faisable.

bye

[Hamza]

Bonsoir

C'est beau tout sa mais bon je ne voix aucune commande ni propriété qui ressemble a Word, mais sa va me servir quand je v travailler avec Ecxel merci beaucoup.

[BuzzLeclaire]

Bonsoir

C'est beau tout sa mais bon je ne voix aucune commande ni propriété qui ressemble a Word, mais sa va me servir quand je v travailler avec Ecxel merci beaucoup.

???
lol
et le printpreview...

[Hamza]

le printpreview ne fonctionne pas.

[NABIL74]

le printpreview ne fonctionne pas.

si ça fonctionne Hamza.
ton erreur se situe ici:

Code :

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

word.PrintPreview

il faut remplacer "word.PrintPreview" par:

Code :

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

 WordApplication1.ActiveDocument.PrintPreview;

Bonne chance.

NABIL74

[Hamza]

Génial sa marche a merveille

bon juste une ptit question avant de cocher le bouton résolu

a chaque fois que je lance mon programme il m'affiche la fenêtre d'identification



comment faire pour désactive cette fenêtre ?

ps : base de donnée utilisé : access

Merci