execution trop long

Version imprimable

execution trop long

Bonsoir,

J'ai un programme qui s'execute à vitesse normale, des qu'il arrive au code ci-dessous, ca devient tres tres long. Je ne sais pas pourquoi, d'autant plus que ca me fait ca uniquement sur un PC.

Merci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
With ActiveSheet.PageSetup
    If famille = "LISTING COMMANDES EN COURS" Then
        .PrintArea = "$A$3:$N$" & ii - 1
    Else: .PrintArea = "$A$3:$O$" & ii - 1
    End If
    .PrintTitleRows = "$1:$2"
    .LeftMargin = 0
    .RightMargin = 0
    .TopMargin = 0
    .BottomMargin = 1
    .HeaderMargin = 0
    .FooterMargin = 0
    .CenterHorizontally = True
    .CenterVertically = False
    .Orientation = xlLandscape
    If famille = "LISTING COMMANDES EN COURS" Then
        .Zoom = 87
    Else: .Zoom = False
    End If
    .FitToPagesWide = 1
    .FitToPagesTall = 10
    .RightFooter = "&P / &N"
End With

13/11/2008, 23h25
JackOuYA

bonsoir,

il y as quoi comme imprimantes sur tes PC ?
13/11/2008, 23h53
vinystic

Dans le cas du PC avec lequel c'est lent, une HP laser ou un PDF creator, sur les autres PCs, des HP laser....
14/11/2008, 00h15
JackOuYA

et les impressions sur ce PC se passent normalement, je dis cela .. je dis rien.. c'est juste que ton code à l'air de toucher au mise en forme d'impression, peu-être une piste.

tu dis quoi ..
14/11/2008, 03h52
Tomeloale

Bonsoir,

J'ai rencontré ce problème avec une de mes applications et j'en sus venu au constat que la lenteur provenait de l'imprimante par défaut. Les imprimantes virtuelles telles que Microsoft office document imaging ou les PDF creator augmentent la vitesse d'exécution comparativement à toute imprimante récente (probablement dû au plus grand nombre de paramètre à gérer).