Probleme aperçu avant impression (VBA)

wasd300 Messages postés 5 Date d'inscription   Statut Membre Dernière intervention   -  
wasd300 Messages postés 5 Date d'inscription   Statut Membre Dernière intervention   -
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

Réponse 1 / 1
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
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 Date d'inscription   Statut Membre Dernière intervention  
 
mais comment je fais pour gérer ça automatiquement avec une commande vba ?
0
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Essaies : 
  With ActiveSheet.PageSetup
    .PrintArea = ""
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1
  End With
0
wasd300 Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
ça ne marche toujours pas
0
wasd300 Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
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 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
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

Discussions similaires

je voudrais accéder à mon compte copains d'avant
alice.allio -
Utilisateur anonyme -

1 réponse
Copains d'avant, qui a visité notre profil
Grigri -
Grigri -

2 réponses
Impression PDF incomplète
le-tux -
toin - toin -

5 réponses
Historique d'impression
nyla29 -
zzz -

6 réponses
Perte de mes anciens accès pour Copain D'Avant
Cslingue -
Utilisateur anonyme -

4 réponses