Impression PDF d'une sélection de cellules [Résolu]

[d0n32]

Bonjour à toutes et à tous,

Je souhaiterais imprimer en PDF certaines cellules d'un document Excel.
Après recherche et réflexion, je suis arrivé au code suivant, qui utilise PDFCreator :

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
32
33
34
35
36
37
38
39
40
Sub ToPdf()
 
Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
NomExcel = ThisWorkbook.Name
NomPdf = Left(NomExcel, Len(NomExcel) - 4) & ".pdf"
 
With pdfjob
    If .cstart("/NoProcessingAtStartup") = False Then
        MsgBox "Can't initialize PDFCreator.", vbCritical + vbOKOnly, "PrtPDFCreator"
        Exit Sub
    End If
    .cOption("UseAutosave") = 1
    .cOption("UseAutisaveDirectory") = 1
    .cOption("AutosaveDirectory") = ThisWorkbook.Path
    .cOption("AutosaveFilename") = NomPdf
    .cOption("AutosaveFormat") = 0
    .cClearCache
End With
 
Worksheets(3).Range("A2:M9,B35:E73").PrintOut copies:=1, ActivePrinter:="PDFCreator"
 
 
Do Until pdfjob.cCountOfPrintjobs = 1
DoEvents
Loop
 
pdfjob.cPrinterStop = False
Do Until pdfjob.cCountOfPrintjobs = 0
DoEvents
Loop
 
With pdfjob
    .cDefaultprinter = DefaultPrinter
    .cClearCache
    .cClose
End With
 
Set pdfjob = Nothing
 
End Sub

Cela fonctionne et crée un document PDF. La plage de cellule sélectionnée Range("A2:M9,B35:E73") sort cependant sur 2 feuilles différentes (une pour A2:M9, une autre pour B35:E73), alors qu'elle a la place d'être sur une même feuille.

Je n'ai pas réussi à trouver le bout de code qui permettrait de restreindre l'impression à une seule page au lieu des 2 par défaut.

J'en appelle à vos brillants
Merci d'avance

[ZebreLoup]

Il y a une option dans "mise en page" qui permet de faire tenir l'impression sur n feuilles en largeur et m feuilles en longueur. Un petit coup d'enregistreur de macro devrait te donner la propriété à utiliser.

[d0n32]

Bonjour et merci de ta réponse !

Effectivement, je connais cette fonction. Je ne m'explique pas pourquoi elle ne fonctionne pas dans ce cas : j'ai beau indiquer que je souhaite imprimer ma sélection sur 1 seule feuille, la sélection se partage sur 2 feuilles... rageant !

Cela pourrait-il venir du fait que les 2 plages de cellules sélectionnées sont non jointes et que leur espacement est trop important ? Quelle solution pour contourner ce problème si c'est bien le cas ?

Merci d'avance

[ZebreLoup]

Je dirais que le mieux c'est que tu essaies manuellement pour trouver une solution qui marche avant de l'implémenter dans ta macro.
Si tu sélectionnes directement A2:M73, ça ne fonctionne pas comme tu veux ?
Si tu veux que les 2 plages soient collées, je pense qu'il faut d'abord copier sur une autre feuille pour avoir la mise en page que tu veux avant d'imprimer.

[d0n32]

Je te remercie pour ces éléments d'info !
Certaines cellules que je ne souhaite pas imprimer figurent dans la plage A2:M73, d'où ma volonté de sélectionner certaines plages..

Merci !