Discussion :

[vinystic]

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 :

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
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

[JackOuYA]

bonsoir,

il y as quoi comme imprimantes sur tes PC ?

[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....

[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 ..

[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).