Comment rendre Word imprimer duplex à l'aide de OLE automation à partir de Visual FoxPro

Traductions disponibles Traductions disponibles
Numéro d'article: 194306 - Voir les produits auxquels s'applique cet article
Agrandir tout | Réduire tout

Sommaire

Résumé

Cet article décrit comment utiliser l'automation OLE à partir de Visual FoxPro pour Microsoft Word pour Windows 97 pour imprimer un duplex de document.

Plus d'informations

Car la boîte de dialogue qui définit l'impression recto verso fait partie de la configuration de l'imprimante, il n'est pas une commande directe qui vous pouvez émettre qui provoque un document pour impression duplex. Toutefois, il existe trois méthodes qui fonctionnent ce qui vous permet d'imprimer des documents en mode duplex.

L'imprimante utilisée dans ce test est une imprimante Hewlett-Packard LaserJet, qui prend en charge l'impression recto verso.

Méthode 1

Utiliser le champ PRINT dans Word pour envoyer le code d'échappement imprimante qui place l'imprimante en mode duplex. Le code suivant illustre cela :
   oWord=CREATEOBJECT("Word.Application")
   WITH oWord
      .Visible=.T.
      .Documents.Add

      .Activewindow.View.ShowFieldCodes=0   && Don't view field codes.
      * Insert PRINT field & Hewlett-Packard escape code for duplex, long-
      * edge binding.
      * It is an ampersand, lower-case L, numeric 1, and upper-case S.
      .Selection.Fields.Add(.Selection.Range,-1,"PRINT 27 &l1S")
      .Selection.Moveright

      .Selection.Insertafter("Page 1")
      .Selection.Moveright

      odlog=oWord.Dialogs(159) && Insert page break w/ Dialogs collection.
      odlog.Execute

      .Selection.Insertafter("Page 2")
      .Selection.Moveright

      .Printout(0)                   && 0 turns off background printing.

      .Application.Quit(0)           && Quit, don't save & don't prompt.
   ENDWITH
				
ce code ne fonctionne pas si le document Word contient orientation mixte, qui est des sections portrait et paysage.

Remarque Ce code fonctionne uniquement avec le Service Release-1 (SR-1) pour Word 97. Les versions antérieures de Word 97 n'effectuer pas duplex d'impression à l'aide de ce code.

Pour le document Word imprimer correctement, il ne doit pas contenir en-têtes ou pieds de page sur chaque page. Toutefois, qu'il devrait s'imprimer sur duplex si le document est configuré pour un autre en-tête de première page ou le pied de page uniquement et le champ PRINT est inséré sur la première ligne de l'en-tête de suivi d'un retour chariot.

Méthode 2

Utilisez la commande SendKeys pour envoyer des séquences de touches à Word, qui simule l'utilisation de combinaisons de touches pour ouvrir la boîte de dialogue Imprimer.
   oWord=CREATEOBJECT("Word.Application")
   WITH oWord
      .Visible=.T.
      .Documents.Add

      * This code creates a two page document to print.
      .Selection.Insertafter("Page 1 - With SendKeys")
      .Selection.Moveright
      odlog=oWord.Dialogs(159) && Insert page break w/ Dialogs collection.
      odlog.Execute
      .Selection.Insertafter("Page 2 - With SendKeys")
      .Selection.Moveright
      * End of document creation.

      .Application.Activate
      .Wordbasic.Sendkeys("%fp%p%d{enter}{tab}{enter}", -1)
      =INKEY(2)   && May need to wait couple seconds before quitting.
      .Application.Quit(0)           && Quit, don't save & don't prompt.
   ENDWITH
				
Dans la commande SendKeys, le % signer représente à l'aide de la touche ALT pour accéder aux menus Windows. La commande INKEY() permet à Word de traiter les frappes de touches avant Visual FoxPro pour Windows traite le quitter. Cela peut doivent être ajustées haut, bas ou supprimés en fonction de l'application.

Pour utiliser SendKeys, Word doit être visible, ne pas réduite, depuis les combinaisons de touches doivent ouvrir une fenêtre active. Vous pouvez déplacer Word hors écran à l'aide de la commande FenAppDéplacement, afin que Word n'affiche pas, mais la boîte de dialogue s'affiche toujours. En outre, à l'aide de SendKeys peut être déconcertant car les menus et boîtes de dialogue Ouvrir et traiter comme si vous étaient dans Word et vous appuyez sur les touches ALT + F pour ouvrir le menu fichier.

Méthode 3

Créez une macro Word qui émet le SendKeys. Si la macro est nommée SendKey, puis exécutez la macro à partir de Visual FoxPro à l'aide de la commande suivante :
     oWord=CREATEOBJECT("Word.Application")
       WITH oWord
       .Visible=.T.
       .Documents.Add
       .Application.Activate
       .Run("SendKey")
       .Application.Quit(0)           && Quit, don't save & don't prompt.
    ENDWITH
				
suit le code minimal pour la macro de Word envoyer les clés pour l'impression recto verso :
   Sub SendKey()
      SendKeys "%fp%p%d{enter}{tab}{enter}"
   End Sub
				
Remarque Veuillez voir la note dans la méthode 2 pour les problèmes que vous êtes susceptible de rencontrer lorsque vous utilisez SendKeys.

Références

Pour plus d'informations, cliquez sur les numéros ci-dessous pour afficher les articles correspondants dans la base de connaissances Microsoft :
135569Codes d'échappement PCL à utiliser avec le champ PRINT
Pour plus d'informations sur la façon d'obtenir Word pour Windows 97 Service Release 1, cliquez sur le numéro ci-dessous pour afficher l'article correspondant dans la base de connaissances Microsoft :
172475Comment obtenir et installer MS Office 97 SR-1
Aide de Visual Basic Microsoft Word

(c) 1998 Microsoft Corporation. Tous droits réservés. Contribution Dean Christopher, Microsoft Corporation.

Propriétés

Numéro d'article: 194306 - Dernière mise à jour: jeudi 27 janvier 2005 - Version: 2.2
Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
  • Microsoft Visual FoxPro 5.0a
  • Microsoft Visual FoxPro 6.0 Édition Professionnelle
Mots-clés : 
kbmt kbcode kbhowto KB194306 KbMtfr
Traduction automatique
IMPORTANT : Cet article est issu du système de traduction automatique mis au point par Microsoft (http://support.microsoft.com/gp/mtdetails). Un certain nombre d?articles obtenus par traduction automatique sont en effet mis à votre disposition en complément des articles traduits en langue française par des traducteurs professionnels. Cela vous permet d?avoir accès, dans votre propre langue, à l?ensemble des articles de la base de connaissances rédigés originellement en langue anglaise. Les articles traduits automatiquement ne sont pas toujours parfaits et peuvent comporter des erreurs de vocabulaire, de syntaxe ou de grammaire (probablement semblables aux erreurs que ferait une personne étrangère s?exprimant dans votre langue !). Néanmoins, mis à part ces imperfections, ces articles devraient suffire à vous orienter et à vous aider à résoudre votre problème. Microsoft s?efforce aussi continuellement de faire évoluer son système de traduction automatique.
La version anglaise de cet article est la suivante: 194306
L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.

Envoyer des commentaires

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com