Menu

Probleme aperçu avant impression (VBA)

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

7 réponses

Patrice33740 7277 Messages postés dimanche 13 juin 2010Date d'inscription 24 septembre 2018 Dernière intervention - 5 juil. 2018 à 17:02
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 7277 Messages postés dimanche 13 juin 2010Date d'inscription 24 septembre 2018 Dernière intervention - 5 juil. 2018 à 19:11
Essaies :
  With ActiveSheet.PageSetup
    .PrintArea = ""
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1
  End With
wasd300 5 Messages postés jeudi 5 juillet 2018Date d'inscription 9 juillet 2018 Dernière intervention - 6 juil. 2018 à 08:03
ça ne marche toujours pas
wasd300 5 Messages postés jeudi 5 juillet 2018Date d'inscription 9 juillet 2018 Dernière intervention - 6 juil. 2018 à 09:51
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 7277 Messages postés dimanche 13 juin 2010Date d'inscription 24 septembre 2018 Dernière intervention - 6 juil. 2018 à 17:15
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 5 Messages postés jeudi 5 juillet 2018Date d'inscription 9 juillet 2018 Dernière intervention - 9 juil. 2018 à 15:50
c'est bon j'avais reussi a résoudre mon problème mais merci quand meme ^^
Commenter la réponse de Patrice33740