[VB6] Imprimer un document PDF

Bonjour,

Pour mon logiciel, j'avais besoin d'imprimer un document au format PDF.

En fouillant, j'ai trouvé le code que voici :

Code:

---

1 2 3 4 5 6 7 8 9

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _ ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long   Public Sub imprimer_fichier(Chemin As String, le_form As Form) 'imprimer le fichier dont le chemin est passé en paramètre ShellExecute le_form.hwnd, "print", Chemin, "", "", 1 End Sub

---

L'impression marche parfaitement, mais Acrobat Reader ce lance en même temps, ce qui est assez génant.

Existe-t-il un moyen d'empécher Acrobat de se lancer automatiquement, ou bien avez-vous une meilleur méthode à me proposer ?

Merci d'avance.

Ouvre le APIViewer pour copier la déclaration des constantes nécessaires. Trouve l'une de celles-ci.

Citation:

---

Envoyé par MSDN (version anglaise)

SW_HIDE Hides the window and activates another window.
SW_MAXIMIZE Maximizes the specified window.
SW_MINIMIZE Minimizes the specified window and activates the next top-level window in the z-order.
SW_RESTORE Activates and displays the window. If the window is minimized or maximized, Windows restores it to its original size and position. An application should specify this flag when restoring a minimized window.
SW_SHOW Activates the window and displays it in its current size and position.
SW_SHOWDEFAULT Sets the show state based on the SW_ flag specified in theSTARTUPINFO structure passed to theCreateProcess function by the program that started the application. An application should callShowWindow with this flag to set the initial show state of its main window.
SW_SHOWMAXIMIZED Activates the window and displays it as a maximized window.
SW_SHOWMINIMIZED Activates the window and displays it as a minimized window.
SW_SHOWMINNOACTIVE Displays the window as a minimized window. The active window remains active.
SW_SHOWNA Displays the window in its current state. The active window remains active.
SW_SHOWNOACTIVATE Displays a window in its most recent size and position. The active window remains active.
SW_SHOWNORMAL Activates and displays a window. If the window is minimized or maximized, Windows restores it to its original size and position. An application should specify this flag when displaying the window for the first time.

---

J'ai comme l'impression que SW_HIDE fera l'affaire. ;)

Edit : J'ai oublié de mentionner que la constante que tu utilisera servira à remplacer le 1 que tu as mis comme valeur du dernier paramètre.

J'ai le même problème que MAT 76.
J'ai essayé de remplacé le 1 à la fin par SW_HIDE mais la fenêtre d'adobe s'ouvre toujours.
Voilà mon code :

Code:

---

1 2 3

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _ ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

---

Sur action d'un bouton :

Code:

---

1 2 3 4 5

If Optfrp Then ShellExecute Me.hwnd, "print", CheminF, "", "", 1 ShellExecute Me.hwnd, "print", CheminMTF, "", "", 1 Else End If

---

Merci de votre aide

Citation:

---

Envoyé par La crevette

J'ai le même problème que MAT 76.
J'ai essayé de remplacé le 1 à la fin par SW_HIDE mais la fenêtre d'adobe s'ouvre toujours.....

---

as tu comme la dit ZaZa récupéré la déclaration de ta constante SW_HIDE..?
je ne vois pas cette déclaration dans ton code ..!


sinon avec SW_HIDE en paramètre acrobat et lancé mais minimisé (fenêtre non active..).

J'ai fait un essai en remplaçant le 1 par SW_HIDE. Mais cela n'a pas marché. Au fait qu'est ce qu etu entends par "récupérer la déclaration de ta constante SW_HIDE"
Comment faire ????? Pour moi débutant c'est pas clair. J'ai décalré des API en début de module de ma form 8O

Code:

---

1 2 3

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _ ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

---

mais la constante comment je fais ?

Citation:

---

Envoyé par bbil

as tu comme la dit ZaZa récupéré la déclaration de ta constante SW_HIDE..?

---

Dans tes déclaration il faut que tu ais cette ligne

Code:

---

Private Const SW_HIDE = 0

---

pour déclarer tes constantes voir APIViewer... ( pages outils du site..)

à placer tout en haut de ton code...

Code:

---

1 2 3 4

Private Const SW_HIDE = 0 Private Const SW_SHOWNORMAL = 1 ...

---

Hé oui! le APIViewer qu'on trouve sous Démarrer > Programmes > Microsoft Visual Basic 6.0 > Outils Microsoft Visual Basic > Api Text Viewer.

Citation:

---

Envoyé par bbil

pour déclarer tes constantes voir APIViewer... ( pages outils du site..)

à placer tout en haut de ton code...

Code:

---

1 2 3 4

Private Const SW_HIDE = 0 Private Const SW_SHOWNORMAL = 1 ...

---

---

Merci à tous pour votre aide:king:
Par contre la fenêtre principale d'Adobe reste ouverte. seule la fenêtre lance par la ligne

Code:

---

ShellExecute Me.hwnd, "print", CheminMTF, "", "", SW_HIDE

---

est réduite. Comment puis je faire pour que ce soit la fenêtre principale qui soit en mini. Au pire comment faire pour la mettre en arrière plan.
En fouillant dans la FAQ j'ai trouvé un code qui permet d'attendre la fin de l'application pour fermer . Après avoir essayé diverses solution rien de mieux

Comment puis je faire ???:aie:

Bonjour,

Tout d'abord, merci de m'avoir répondu (et désolé de ne pas avoir pu répondre avant)

J'ai suivi les conseils (notamment ceux de zazaraignée), mais malheureusement, Acrobat se lance toujours (il n'est pas actif mais est présent dans la barre des taches). Il faudrait vraiment (si c'est possible) que Acrobat ne se lance pas (ou du moins que l'utilisateur ne sache pas qu'il se lance).

Au cas où, je redonne mon code (on ne sait jamais, j'ai peut être loupé quelque chose)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Option Explicit   Private Const SW_HIDE = 0   Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _ ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long   Public Sub imprimer_fichier(Chemin As String, le_form As Form) 'imprimer le fichier dont le chemin est passé en paramètre ShellExecute le_form.hwnd, "print", Chemin, "", "", SW_HIDE End Sub

---

Et je lance l'impression par

Code:

---

1 2	Call imprimer_fichier(fichier, Me)

---

Personellement , je ne pense pas que ce soit possible. Il faudrait ne pas utiliser acrobat pour l'impression, mais là c'est un problème financier.

D'accord. Dans ce cas, serait-il possible de fermer automatiquement Acrobat une fois toutes les impressions finies ?

Edit:
Finalement, mon problème a quelque peu évoluer. La demande a changer, ce qui fait que je me trouve en présence non pas de PDF mais de fichier .doc.
J'ai trouvé dans la FAQ un focntion permettant d'imprimer un fichier Word

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub PrintDocWord(sDoc As String) Dim objWord As Word.Application Dim docWord As Word.Document Dim Fichier As String   Set objWord = CreateObject("Word.Application") '-- ouvrir une session Word objWord.Visible = False '-- masquer l'application Word Set docWord = objWord.Documents.Open(sDoc) '-- ouvrir le document Word   docWord.PrintOut '-- imprimer le document   docWord.Close '-- fermer le document Word objWord.Quit '-- fermer la session Word Set docWord = Nothing '-- détruire l'objet Document Set objWord = Nothing '-- détruire l'objet Word End Sub

---

En revanche, lorsque j'imprime, un message m'averti qu'un document est en cours d'impression, que si je ferme Word l'impression sera annulé et me propose le choix entre fermé ou non Word.
Ce message sera, je pense, particulièrement génant pour les futurs utilisateurs et j'aimerai (si possible) éviter l'affichage de ce message.

Merci d'avance, encore une fois, de m'aider.

Edit2: Finalement, en imprimant le document .doc avec la première méthode, je n'ai plus aucun message lors de l'impression, ce qui 'arrange grandement.