Probleme aperçu avant impression (VBA)

wasd300 Messages postés 5 Statut Membre -  
wasd300 Messages postés 5 Statut Membre -
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 ^^
A voir également:

1 réponse

Patrice33740 Messages postés 8930 Statut Membre 1 781
 
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
wasd300 Messages postés 5 Statut Membre
 
mais comment je fais pour gérer ça automatiquement avec une commande vba ?
0
Patrice33740 Messages postés 8930 Statut Membre 1 781
 
Essaies :
  With ActiveSheet.PageSetup
    .PrintArea = ""
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1
  End With
0
wasd300 Messages postés 5 Statut Membre
 
ça ne marche toujours pas
0
wasd300 Messages postés 5 Statut Membre
 
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
Patrice33740 Messages postés 8930 Statut Membre 1 781
 
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