Imprimer certaines pages d'un fichier PDF
Bonsoir le forum
Mes vœux les meilleurs à tous les membres de ce forum :
Paix, Santé, Prospérité et assistance du seigneur dans tous vos projets et actions.
Cela fait 2 mois que je suis à la recherche d'une solution pour imprimer certaines pages d'un fichier PDF.
J'ai pu grâce à des recherches trouvé un code qui m'a permis de l'adapter à ma solution.
Elle fonctionne à moitié bien car je n'arrive pas à l'adapter à l'impression des pages nécessaires de fichier PDF.
Je vous le soumet pour appréciation et proposition sachant que je souhaite imprimer la page 2-3 :
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
| 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
Sub Imprimer_turquoise()
Dim Nomfic As String, spath As String
Dim X As Long
X = FindWindow("XLMAIN", Application.Caption)
spath = Environ("USERPROFILE")
spath = spath & "\Desktop\Z_YEB\"
Nomfic = Sheets("PARAMETRE_ADMIN").Range("AS1") '"02&51-FORMULAIRE DE DEMANDE DE CARTE.pdf"
ShellExecute X, "print", spath & Nomfic, 2, 3, 1
End Sub |
Encore bonne et heureuse année
