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 :

format de page


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    cal
    cal est déconnecté
    Membre habitué
    Inscrit en
    Juillet 2005
    Messages
    8
    Détails du profil
    Informations forums :
    Inscription : Juillet 2005
    Messages : 8
    Par défaut format de page
    Bonjour à tous, peut on définir (en vba) la hauteur du document à imprimer? mon problème est que je dois imprimer une feuille excel 100 fois de suite, avec des données différentes récupérées par une routine vb, j'utilise pour ça une feuille qui me sert de trame d'impression et je met les cellules à jour pour chaque impression. Mon problème vient surtout du fait que je dois imprimer sur du listing et que le format en hauteur n'est pas courant (210 mm). Si j'utilise la mise en page d'Excel et que je choisi le format A5 le saut de page s'effectue après l'impression de la première feuille mais il me manque un saut de ligne pour ne pas décaler l'impression suivante. Avez vous la solution soit pour envoyer un saut de ligne à l'imprimante (ça doit être assez basique mais je n'y arrive pas) soit définir une mise en page personnalisée (plus élégant).

    Merci

  2. #2
    Inactif  
    Profil pro
    Inscrit en
    Juin 2007
    Messages
    2 054
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Juin 2007
    Messages : 2 054
    Par défaut
    Bonoir
    Et en modifiant les hauteurs des marge bas et haut ?
    A toutes fin utile, pour ajouter/déplacer les sauts de pages
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Dim e
        e = ActiveSheet.HPageBreaks.Count 'nombre de page que contient la zone d'impression.
        'commence à 0 si une seule page. pour exemple le 1er tableau fini en ligne 70
     
        If e > 0 then 'il y à plusieur page
            Range("A70").Activate
            ActiveSheet.HPageBreaks.Add Before:=ActiveCell
        end if
    A+

  3. #3
    cal
    cal est déconnecté
    Membre habitué
    Inscrit en
    Juillet 2005
    Messages
    8
    Détails du profil
    Informations forums :
    Inscription : Juillet 2005
    Messages : 8
    Par défaut
    en fait il faut simplement utiliser "printsetup.pagesize" et on accède à tous les choix possibles


  4. #4
    Membre confirmé Avatar de a.dequidt
    Profil pro
    Inscrit en
    Septembre 2007
    Messages
    144
    Détails du profil
    Informations personnelles :
    Âge : 38
    Localisation : France

    Informations forums :
    Inscription : Septembre 2007
    Messages : 144
    Par défaut
    Cal tu peux nous en dire un peu plus sur cette fonctionnalité?

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XSL~FO] Changement du format de page
    Par Mamath dans le forum XSL/XSLT/XPATH
    Réponses: 4
    Dernier message: 11/10/2018, 09h05
  2. Problème de format de pages (portrait et paysage)
    Par ideranaba dans le forum iReport
    Réponses: 1
    Dernier message: 21/11/2008, 14h27
  3. Format de page d'impession par PrinterSetupDialog
    Par ybruant dans le forum Langage
    Réponses: 9
    Dernier message: 22/05/2008, 14h53
  4. Choix du format de page pour impression
    Par looping dans le forum Langage
    Réponses: 2
    Dernier message: 26/10/2007, 19h19
  5. Réponses: 3
    Dernier message: 20/07/2006, 16h05

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