XL 2010 Editer en pdf dernière page Sans "les lignes à répéter du haut"

[cathodique]

Bonjour,

Une feuille à éditer en PDF (ou imprimer ), sur laquelle une entête à reproduire sur toutes les pages sauf la dernière qui contient un petit encadré.
Je parvins à gérer les sauts de page mais je n'ai aucune idée pour ne pas imprimer l’entête sur la dernière page.

Option Explicit
Sub mep()
    Dim dl As Long, col As Byte, HPage As Integer, VPage As Byte, x As Integer
    ActiveWindow.View = xlPageBreakPreview

    With ActiveSheet
        dl = .UsedRange.Rows.Count
        .ResetAllPageBreaks
        .PageSetup.PrintArea = "A1:k" & dl
        .PageSetup.PrintTitleRows = "$1:$4"
        HPage = .HPageBreaks.Count
        VPage = .VPageBreaks.Count
      
        If VPage >= 1 Then .VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
      
        If HPage >= 1 Then
            For x = dl To 1 Step -1
                If .Cells(x, 9).Borders(xlEdgeTop).LineStyle = xlContinuous Then
                    .HPageBreaks.Add Before:=Range("A" & x - 1)
                    Exit For
                End If
            Next x
        End If
    End With
    ActiveWindow.View = xlNormalView
End Sub

Merci pour votre aide.

 

[cathodique]

Messieurs Bonsoir,

Avant un grand merci pour l'un d'avoir aidé, pour l'autre d'avoir suivi la discussion.
Tout ce que disait JM, je l'ai vécu bien avant lui en ce qui concerne la reconnaissance.
Comme vous n'êtes pas moi, ni moi comme vous (Retraité depuis un bon bout de temps, attendant le trépas je m'occupe comme je peux). J'ai dépassais ce stade depuis, je n'attends de reconnaissance de personne. Tout en me gardant de ne pas l'être envers ce qui le mérite vraiment.

Pour conclure, vous avez toute ma reconnaissance d'avoir eu la gentillesse de lire ma discussion et surtout de m'avoir consacré de votre temps.

Merci beaucoup.

 

[patricktoulon]

@Staple1600
la version gratuiciel fait environ 5 mega

 

[Staple1600]

Re

Alors qu'est-ce que cela?

Ah oui, je viens de comprendre

=>cathodique
Ma petite digression "anticapitaliste", c'était juste de l'humour à la sauce Staple.
Aucunement une critique à ton endroit, ou sur la discussion.

 

[patricktoulon]

7 méga pour le version 10.x.x.... je suppose que le logiciel c'est épaissi pour W10
bon ben pas de quoi fouetter un chat

 

[patricktoulon]

allez je viens de me mettre a jour à la 12.xXXX
ben on a plein d'option en plus dans les paramètres sinon le reste ne change pas

j'aurais certainement l'occasion de la tester plus profondément cette semaine

 

[Staple1600]

Re

Euh ?
Le lien que j'ai mis indique 40.67Mo, non ?
Et la version freeware est limitée, non ?

 

[patricktoulon]

re
elle est limité oui mais tu peux imprimer fusionner décompiler qu'est ce que tu veux de plus pour du gratuit
la seule chose ennuyant avec cette version c'est message qui te dis que c'est la version gratuite

 

[patricktoulon]

re
bon visiblement avec cette version on ne peut shunter les dialogues sans passer a la version pro
j'ai remis ma version 7 on peut tout shunter la mienne

c'est nikel je lance l'impression des 3 premières page avec entête et 1 dernière fois pour la dernière page et je me retrouve bien avec un seul pdf de 4 pages dont la dernière n'a pas d’entête

je vais voir si je trouve un lien vers cette old version

 

[patricktoulon]

et bien la voila
https://bullzip-pdf-printer.fr.uptodown.com/windows/telecharger/18511

 

[Staple1600]

Re

C'est gentil
Mais l'export natif d'Office me suffit
(Pour le reste, j'utilise ce que m'offre le master Windows bridé par ma DSN)
Oui parce qu'en dehors du boulot, les PDF, je ne fais que les lire

 

[ChTi160]

Bonsoir
Merci
jean marie