Discussion :

[cb_60]

Bonjour
J'utilise shellexecute pour ouvrir un PDF, j'utilise cette même fonction pour imprimer le document entier ( PDF), je ne trouve pas la syntaxe pour imprimer seulement la première page de ce PDF,
Possible ou Pas?

Merci de votre réponse

[QuestVba]

Bonjour,

J'ai vu ceci sur le net pour des pages spécifiques. À étudier :


You need to reference acrobat library and try the code below

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim pri_err As Integer 
Dim ad_app As New Acrobat.AcroApp 
Dim ad_ac_doc As New Acrobat.AcroAVDoc 
Dim ad_pd_doc As Acrobat.AcroPDDoc 
 
ad_ac_doc.Open FilePath,"" 
pri_err = ad_ac_doc.PrintPagesSilent(0,2, 2, 0, 0) 
ad_ac_doc.Close 1 
ad_pd_doc.Close 
 
Set ad_pd_doc = Nothing 
Set ad_ac_doc = Nothing 
Set ad_app = Nothing

Ou

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
Sub Test_PrintPDFByPages() 
    PrintPDFByPages "x:\pdf\test.pdf", lngLastPage:=2 
End Sub 
 
 'Add reference, Adobe Acrobat 9.0 Type Library, acrobat/tlb
Sub PrintPDFByPages(sFilePath As String, Optional lngFirstPage As Long = 0, Optional lngLastPage As Long, _ 
    Optional lngPSLevel = 2, Optional lngBinaryOK As Long = 0, Optional lngShrinkToFit As Long = 0) 
    Dim pri_err As Boolean 
    Dim ad_app As New Acrobat.AcroApp 
    Dim ad_ac_doc As New Acrobat.AcroAVDoc 
    Dim ad_pd_doc As Acrobat.AcroPDDoc 
    Dim tf As Boolean 
    tf = ad_ac_doc.Open(sFilePath, Len(sFilePath)) 
    pri_err = ad_ac_doc.PrintPagesSilent(lngFirstPage, lngLastPage, lngPSLevel, lngBinaryOK, lngShrinkToFit) 
    ad_ac_doc.Close 1 
    ad_pd_doc.Close 
 
    Set ad_pd_doc = Nothing 
    Set ad_ac_doc = Nothing 
    Set ad_app = Nothing 
End Sub

[cb_60]

Bonjour à tous, Questvba
Merci pour la réponse, malheureusement, je n'ai pas réussi à mettre en œuvre les deux propositions, difficile!!