Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 VBA: Ne pas répéter lignes pour dernière page PDF

shinozak

XLDnaute Occasionnel
Bonjour le forum,

Je cherche une macro qui permet de ne pas répéter les lignes pour la dernière page pour un export PDF.
J'ai réussi à créer la macro pour une impression(la fonction numéro page nous donne le numéro de la page pour une cellule donnée) mais je bloque pour un export PDF :/ :

VB:
Sub test()
nbPages = ActiveSheet.PageSetup.Pages.Count
x = numeroPage(Range("A147"))
ActiveSheet.PageSetup.PrintTitleRows = "$1:$8"
For k = 147 To 169
    If numeroPage(Range("A" & k)) <> x Then
    ActiveSheet.PrintOut from:=1, To:=nbPages - 1
    ActiveSheet.PageSetup.PrintTitleRows = ""
    ActiveSheet.PrintOut from:=nbPages, To:=nbPages
    Exit Sub
    End If
Next
ActiveSheet.PrintOut from:=1, To:=nbPages
End Sub
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…