Probleme aperçu avant impression (VBA)

Fermé

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

A voir également:

Probleme aperçu avant impression (VBA)
Spouleur d'impression - Guide
Copains d'avant qui a visité mon profil - Forum Facebook
Vba range avec variable ✓ - Forum VB / VBA
Impression ecran windows - Guide
Dans la présentation à télécharger, sarah avait encadré directement le titre de certaines diapositives avant d’automatiser cette mise en forme pour tout le document. sur quelles diapositives avait-elle encadré directement le titre ? ✓ - Forum Bureautique

1 réponse

Réponse 1 / 1

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
5 juil. 2018 à 17:02

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)

wasd300 Messages postés 5 Date d'inscription jeudi 5 juillet 2018 Statut Membre Dernière intervention 9 juillet 2018
5 juil. 2018 à 18:19

mais comment je fais pour gérer ça automatiquement avec une commande vba ?

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
5 juil. 2018 à 19:11

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 Statut Membre Dernière intervention 9 juillet 2018
6 juil. 2018 à 08:03

ça ne marche toujours pas

wasd300 Messages postés 5 Date d'inscription jeudi 5 juillet 2018 Statut Membre Dernière intervention 9 juillet 2018
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 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
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

Discussions similaires

Transparence en tete et bas de page

chaima csc

Nouveaux avis de recherche copain d'avant

"L'indice n'appartient à la sélection" + VBA

Veuillez patientez quelques minutes avant de réessayer

Discussions similaires

Newsletters