Impression en VBA page remplie

Iomi75 -  
 Iomi75 -
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,

3 réponses

  1. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    Bonjour,

    peut-^tre une idée:

    Combien de lignes mange chaque description ?
    0
    1. Iomi75
       
      Bonjour michel,

      Pour commencé, merci pour ta réponse si rapide.
      Pour le nombre de ligne que mange chaque description, il est la le problème. Le champs descriptif de la panne varie en fonction de l'importance de la panne. Il n'y a donc pas de dimension standard hélas.
      0
  2. Frenchie83 Messages postés 2254 Statut Membre 339
     
    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
    0
    1. Iomi75
       
      je regarde ca :-)
      merci frenchie83
      0
    2. Iomi75
       
      c'est parfait je vais me débrouiller avec ce que tu m'as passé. C'est parfait !!!!
      ca me renvoie le numéro de ligne ou il y a le saut de page :-) c'est juste parfait :-)

      Encore merci les amis !!!!
      Bonne journée
      0
  3. Frenchie83 Messages postés 2254 Statut Membre 339
     
    Bonjour michel_m
    Excusez_moi, je n'avais pas vu que vous étiez aussi sur l'affaire,
    Cordialement
    0