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

shinozak

XLDnaute Nouveau
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

Haut Bas