Impression en VBA page remplie Fermé

Question

Bonjour, 

je suis actuellement à la recherche d'une solution afin d'imprimer des pages excel automatiquement.

Des lignes sont incrémentées chaque jours avec des descriptifs de panne. Quelqu'un aurait-il une solution pour détecter que ma page est remplie afin de d'imprimer le tableur afin d'archiver une version papier.

Si le lignes était toujours de la même taille, il me faudrait simplement savoir combien de ligne entre dans ma page seulement lorsque le descriptif est conséquent, un retour à la ligne double la taille de la ligne. Ainsi pas de possibilité de se référer à un nombre de ligne standard par feuille.

D'avance merci,



Configuration: Mac OS X (10.11.3) / Safari 9.0.3

michel_m · Answer

Bonjour,

peut-^tre une idée:

Combien de lignes mange chaque description ?

Frenchie83 · Answer

Bonjour
Essayez ceci, à copier dans le module de la feuille
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim CptsautPage As Long
    Application.ScreenUpdating = False
    CptsautPage = ActiveSheet.HPageBreaks.Count
    DerSautPage = ActiveSheet.HPageBreaks.Item(CptsautPage).Location.Row
    If Target.Row + 1 = DerSautPage Then ActiveWindow.SelectedSheets.PrintOut From:=CptsautPage, To:=CptsautPage, Copies:=1, Collate:=True
End Sub
Cdlt

Frenchie83 · Answer

Bonjour michel_m
Excusez_moi, je n'avais pas vu que vous étiez aussi sur l'affaire,
Cordialement

Impression en VBA page remplie

3 réponses

Discussions similaires