Discussion :

[Denis_67]

Bonjour,

La mise en page pour impression utilise la commande

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    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

[Philippe Tulliez]

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.

[Oliv-]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[NVCfrm]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[tototiti2008]

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)