Menu

Probleme aperçu avant impression (VBA)

Messages postés
5
Date d'inscription
jeudi 5 juillet 2018
Dernière intervention
9 juillet 2018
- - Dernière réponse : wasd300
Messages postés
5
Date d'inscription
jeudi 5 juillet 2018
Dernière intervention
9 juillet 2018
- 9 juil. 2018 à 15:50
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 ^^
Afficher la suite 

Votre réponse

1 réponse

Messages postés
7447
Date d'inscription
dimanche 13 juin 2010
Dernière intervention
15 décembre 2018
0
Merci
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)
Patrice33740
Messages postés
7447
Date d'inscription
dimanche 13 juin 2010
Dernière intervention
15 décembre 2018
-
Essaies :
  With ActiveSheet.PageSetup
    .PrintArea = ""
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1
  End With
wasd300
Messages postés
5
Date d'inscription
jeudi 5 juillet 2018
Dernière intervention
9 juillet 2018
-
ça ne marche toujours pas
wasd300
Messages postés
5
Date d'inscription
jeudi 5 juillet 2018
Dernière intervention
9 juillet 2018
-
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 ^^
Patrice33740
Messages postés
7447
Date d'inscription
dimanche 13 juin 2010
Dernière intervention
15 décembre 2018
-
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
wasd300
Messages postés
5
Date d'inscription
jeudi 5 juillet 2018
Dernière intervention
9 juillet 2018
-
c'est bon j'avais reussi a résoudre mon problème mais merci quand meme ^^
Commenter la réponse de Patrice33740