Zone d'impression variable

Pour toutes vos questions à propos d'Excel ...

Zone d'impression variable

Messagepar plamb2316 » 01 Avr 2009, 16:47

Bonjour,
Mon problème est le suivant:
Jj'ai préparé un petit tableau de comptabilité et à la fin de chaque mois j'aimerais utiliser une macro pour l'imprimer.
Mais bien sûr le nombre de lignes change, alors dans ce cas, comment faire pour que la zone d'impression s'adapte, vous remarquerez que sous la dernière inscription il y a 3 lignes vides avant les lignes de résumé. Merci de votre aide
plamb2316
Nouveau venu
 
Messages: 8
Inscription: 29 Mars 2009, 16:09
Version Excel: 2007 FR

Zone d'impression variable

Messagepar plamb2316 » 01 Avr 2009, 16:52

Re bonjour,
En complément à ma question j'ai un petit exemple pour illustrer mon propos. Merci d'avance


http://www.excel-pratique.com/~files/do ... stion.xlsx
plamb2316
Nouveau venu
 
Messages: 8
Inscription: 29 Mars 2009, 16:09
Version Excel: 2007 FR

Messagepar felix » 01 Avr 2009, 17:51

Bonsoir,

avec ce code, tu détermines la zone d'impression (j'ai considéré que "Résultat du Mois" était toujours dans la colonne E.
De plus, l'impression se fait en mode "Paysage", centrée horizontalement, et sur une seule feuille en largeur (il peut y avoir plusieurs feuilles en hauteur)

Si c'est correct, tu peux remplacer le .PrintPreview (aperçu avant impression) par .PrintOut (impression)

Code: Tout sélectionner
Sub imprime()
With Sheets("Feuil1")
    .PageSetup.PrintArea = "$A$1:$K$" & .[E65000].End(xlUp).Row
    .PageSetup.FitToPagesWide = 1
    .PageSetup.CenterHorizontally = True
    .PageSetup.Orientation = xlLandscape
    .PrintPreview
End With
End Sub
Notre seule récompense est un "Merci".........
felix
Membre impliqué
 
Messages: 1549
Inscription: 11 Août 2007, 20:01
Localisation: Landerneau, Finistère
Version Excel: 2003 Fr (PC); 2007 Fr (PC)


Retourner vers Excel - VBA

 


  • Sujets similaires
    Réponses
    Vus
    Dernier message

Utilisateurs en ligne

Utilisateurs parcourant ce forum: Exabot [Bot], Google Adsense [Bot] et 41 invités

cron