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 :

Zoomer une Print area idéalement pour impression


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Juillet 2011
    Messages
    40
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Somme (Picardie)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Industrie

    Informations forums :
    Inscription : Juillet 2011
    Messages : 40
    Par défaut Zoomer une Print area idéalement pour impression
    Salut!
    J'ai ci dessous une macro permettant d'imprimer une zone dans une feuille excel avec les propriétés que je veux.

    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
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
     
    Sub Imprimer_tableau()
     
     
    Dim intColMin As Integer
    Dim intColMax As Integer
    Dim intLinMin As Integer
    Dim intLinMax As Integer
     
    Dim reponse As Byte
     
    'Situer la zone à imprimer
     
    intColMin = 1                   'Première colonne à imprimer
    intColMax = 6                   'Dernière colonne à imprimer
    intLinMin = 13                  'Première ligne à imprimer
    intLinMax = 22                  'Dernière ligne à imprimer
     
     
    'Renseignement des lignes et colonnes à imprimer
     
    ActiveSheet.PageSetup.PrintArea = Range(Cells(intLinMin, intColMin), _
    Cells(intLinMax, intColMax)).Address
     
     
    'Réglage des propriétés d'impression
     
    ActiveSheet.PageSetup.Orientation = xlLandscape 
    ActiveSheet.PageSetup.CenterHorizontally = True
    ActiveSheet.PageSetup.CenterVertically = True
     
     
    'Etes-vous sur de vouloir imprimer ???
     
    reponse = MsgBox("Voulez-vous vraiment imprimer ce tableau ?", _
    vbquestios + vbYesNo + vbDefaultButton1)
    If reponse = vbNo Then Exit Sub
    End If
     
    'Affiche l'onglet pour déterminer ou imprimer
     
    Application.Dialogs(xlDialogPrinterSetup).Show      'Appel l'imprimante à sélectionner
    ActiveWindow.SelectedSheets.PrintOut            'Imprime le fichier
     
     
    End Sub
    J'aurais voulu savoir s'il existait un moyen de zoomer idéalement la zone d'impression à la page.
    Any Idea???

  2. #2
    Expert confirmé
    Avatar de kiki29
    Homme Profil pro
    ex Observeur CGG / Analyste prog.
    Inscrit en
    Juin 2006
    Messages
    6 132
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : ex Observeur CGG / Analyste prog.

    Informations forums :
    Inscription : Juin 2006
    Messages : 6 132
    Par défaut
    Salut,pour cela tu as l'enregistreur de macros puis une optimisation manuelle éventuelle du code ainsi que http://www.developpez.net/forums/d55...ge-macros-xl4/

  3. #3
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Juillet 2011
    Messages
    40
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Somme (Picardie)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Industrie

    Informations forums :
    Inscription : Juillet 2011
    Messages : 40
    Par défaut
    J'ai essayé de voir le lien que tu m'as donné, j'arrive pas à voir comment l'utiliser? et puis c'est apparemment pour des macro Excel4 (dont je n'ai jamais entendu parler).
    Et pour l'enregistreur de macros je ne vois pas en quoi il pourrait être utile?? est ce que tu pourrais m'expliquer cela un peu plus stp??

  4. #4
    Expert confirmé
    Avatar de kiki29
    Homme Profil pro
    ex Observeur CGG / Analyste prog.
    Inscrit en
    Juin 2006
    Messages
    6 132
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : ex Observeur CGG / Analyste prog.

    Informations forums :
    Inscription : Juin 2006
    Messages : 6 132
    Par défaut
    Salut, essaie et tu verras de toi-même en quoi le code généré peut t'être utile quant à la macro XL4 elle accélère l'impression par rapport au code précédemment généré

Discussions similaires

  1. Résolution d'une image pour impression
    Par titinesaku dans le forum Langage
    Réponses: 4
    Dernier message: 28/04/2009, 10h50
  2. SDK pour impression dans une application en mode web
    Par loxess dans le forum API, COM et SDKs
    Réponses: 0
    Dernier message: 08/02/2008, 14h10
  3. macro pour impression d'une ligne excel sous word
    Par schwoby dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 09/08/2007, 12h02
  4. position idéale pour placer un menu dans une page d'accueil
    Par Smix007 dans le forum Général JavaScript
    Réponses: 6
    Dernier message: 01/02/2007, 12h14
  5. [CSS] Le type hand pour cursor dans une balise AREA
    Par Invité dans le forum Mise en page CSS
    Réponses: 6
    Dernier message: 13/04/2005, 13h33

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