PageSetup: exécution longue

Bonjour,

La mise en page pour impression utilise la commande

Code:

---

With ActiveSheet.PageSetup

---

cependant le traitement est extrèmenent long, au point de croire que la macro est palntée.
exsite il une autre façon de gérer les mise en page pour impression ?

Merci

Denis

Bonjour,
C'est exact que le temps d'exécution est long mais il suffit d'enlever toutes les méthodes et propriétés dont tu n'as pas l'usage.

SAlut,
J'avais rencontré ce pb où avec certaines imprimantes le temps de traitement était multiplié.

Pour contourner ce pb j'ai ajouté une imprimante simple/basique sur les postes de travail (espon lq850)

Code:

---

1 2 3 4 5 6 7 8

Old_imp = Application.ActivePrinter Application.ActivePrinter = "Epson LQ-850 sur LPT1:"     ' TON CODE   Application.ActivePrinter =Old_imp

---

bonjour,
pour ne pas exécuter toujours la configuration de l'imprimante dans le code à chaque impression, un test m'évite cela:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

t = ActiveSheet.PageSetup.PrintArea = "$E$8:$H$30" If t Then MySheet.Range("$E$8:$H$30").PrintOut Else conFigurer(MySheet.Name,Range("$E$8:$H$30")) End if   Sub Configurer(sh as String, imprimer as Range) ...... ..... End Sub

---

dans le cas de plusieurs utilisateurs la plage d'impression peut être rendu inaccessible. les données y seront apportées par code.

Bonsoir à tous,

une autre possibilité est de faire la mise en page avec les macros XL4
http://www.mcgimpsey.com/excel/udfs/pagesetup.html
Mais bon, on ne sait pas si ça sera encore fonctionnel encore longtemps (je ne sais pas ce qu'il en est sur Excel 2013)