Probleme aperçu avant impression (VBA)

Bonjour,
J'ai un problème, j'ai sélectionné des lignes que je souhaite imprimer plus tard mais lors de l'affichage de l'aperçu, les lignes sont sur des pages différentes et je ne comprend pas pourquoi ?
Merci de votre aide ^^

1 réponse

  1. Bonjour,

    Soit la sélection ne tient pas sur la page (dans la mise en page, choisir Ajuster)
    Soit il y a des saut de page dans ta sélection (dans mise en page, Annuler la zone d'impression)
    0
    1. mais comment je fais pour gérer ça automatiquement avec une commande vba ?
      0
    2. Essaies :
        With ActiveSheet.PageSetup
          .PrintArea = ""
          .Zoom = False
          .FitToPagesWide = 1
          .FitToPagesTall = 1
        End With
      
      0
    3. ça ne marche toujours pas
      0
    4. mais j'ai trouvé pourquoi ça ne marche pas c'est parce que ma selection n'est pas contigue et du coup sur la preview il affiche chaque "morceaux" sur des pages différentes. Il faudrait donc que j'arrive à copier ma selection sur une autre feuille et ainsi les avoir à la suite sans espace. Mais je n'arrive pas à déplacer ma ligne entière sur l'autre feuille.
      Peux tu m'aider ^^
      0
    5. Bonjour,

      Essaies :
      Sub ImprimerSelection()
        ActiveCell.Activate
        With Worksheets("feuil2") ' destination à adapter
          .Cells.Clear
          Selection.EntireRow.Copy .Range("A1")
          With .PageSetup
            .PrintArea = ""
            .Zoom = False
            .FitToPagesWide = 1
            .FitToPagesTall = 1
          End With
          .PrintOut
        End With
      End Sub
      0