IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Probleme ajustemet de marge avec PageSetup


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Homme Profil pro
    Technicien Help Desk
    Inscrit en
    Février 2014
    Messages
    326
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Eure (Haute Normandie)

    Informations professionnelles :
    Activité : Technicien Help Desk
    Secteur : Industrie

    Informations forums :
    Inscription : Février 2014
    Messages : 326
    Par défaut Probleme ajustemet de marge avec PageSetup
    Bonjour

    Pourquoi dans ma macro l'ajustement à la largeur de la page ne fonctionne pas ?

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    ActiveSheet.Select
     
    cp = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
     
    With ActiveSheet
        With .PageSetup
             .FitToPagesWide = 1 'lageur  de la  zone
             .PaperSize = xlPaperA4  'format papier
             .Orientation = xlLandscape  'paysage
             .CenterHorizontally = True  'centré horizontalement
             .CenterVertically = False    'centré verticalement
             .PrintTitleRows = Rows("1:2").Address 'répeter les titres
             .LeftMargin = Application.InchesToPoints(0)   'marge gauche
             .RightMargin = Application.InchesToPoints(0)  'marge droite
             .TopMargin = Application.InchesToPoints(0)    'marge haut
             .BottomMargin = Application.InchesToPoints(0) 'marge bas
             .PrintArea = "A1:G" & cp     'zone d'impression
         End With
    End With

  2. #2
    Expert éminent Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2007
    Messages
    16 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 16 037
    Par défaut
    Petite remarque liminaire : les deux trois ci-dessous sont inutiles.
    retire-les et tu verras que la macro fonctionne aussi bien (en enlevant le "." devant PageSetup.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    ActiveSheet.Select
    With ActiveSheet
    End With
    Citation Envoyé par laurent27530 Voir le message
    Pourquoi dans ma macro l'ajustement à la largeur de la page ne fonctionne pas ?
    Pourrais-tu donner plus de détails sur ce qui ne correspond pas à ce que tu souhaites ?

Discussions similaires

  1. probleme de marges avec pdftops
    Par pcouas dans le forum Applications et environnements graphiques
    Réponses: 0
    Dernier message: 22/11/2007, 09h37
  2. Problème install Modem Asus avec amedyn
    Par PeGaZe dans le forum Matériel
    Réponses: 7
    Dernier message: 01/10/2004, 13h51
  3. [JSP] probleme de out.println() avec un document
    Par SEMPERE Benjamin dans le forum Servlets/JSP
    Réponses: 6
    Dernier message: 15/08/2004, 23h05
  4. [JSP] probleme de out.println() avec un document
    Par SEMPERE Benjamin dans le forum Servlets/JSP
    Réponses: 2
    Dernier message: 12/08/2004, 08h31
  5. Problème sur une cmd avec AWK
    Par OrangeBud dans le forum Linux
    Réponses: 3
    Dernier message: 02/06/2004, 10h51

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo