Discussion :

[akmer]

Bonjour,
J'ai crée un petit programme sous Excel 2003 avec vba, il marche très bien sur mon pc, mais cependant su certain autres pc ce logiciel déconne et quand je fais le débogage la ligne "PrintQuality=600" est en jaune,a quoi correspond ce code vba, que veut il dire, et pourquoi sur d'autre pc cela marches très bien??
Je vous fourni l'ensemble de la macro ou apparait ce code, cette macro consiste a faire la mise en page d'une feuille
Voici les codes:

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Sub miseenpage() 
' 
' miseenpage Macro 
' Macro enregistrée le 09/04/2008 par 999235826 

Sheets("Etat des décisions").Select 

With ActiveSheet.PageSetup 
.PrintTitleRows = "$3:$3" 
.PrintTitleColumns = "" 
End With 
ActiveSheet.PageSetup.PrintArea = "" 
With ActiveSheet.PageSetup 
.LeftHeader = "" 
.CenterHeader = "" 
.RightHeader = "" 
.LeftFooter = "" 
.CenterFooter = "Page &P de &N" 
.RightFooter = "" 
.LeftMargin = Application.InchesToPoints(0.393700787401575) 
.RightMargin = Application.InchesToPoints(0.393700787401575) 
.TopMargin = Application.InchesToPoints(0.393700787401575) 
.BottomMargin = Application.InchesToPoints(0.590551181102362) 
.HeaderMargin = Application.InchesToPoints(0.511811023622047) 
.FooterMargin = Application.InchesToPoints(0.511811023622047) 
.PrintHeadings = False 
.PrintGridlines = False 
.PrintComments = xlPrintNoComments 
.PrintQuality = 600 
.CenterHorizontally = False 
.CenterVertically = False 
.Orientation = xlLandscape 
.Draft = False 
.PaperSize = xlPaperA4 
.FirstPageNumber = xlAutomatic 
.Order = xlDownThenOver 
.BlackAndWhite = False 
.Zoom = 100 
.PrintErrors = xlPrintErrorsDisplayed 
End With 

End Sub

Merci d'avance pour votre aide

[Jean-Pierre49]

Bonjour



Peut générer une erreur, selon le pilote d'imprimante que vous utilisez.

Supprime le et vois ce que cela donne

Tu as du nettoyage a faire ds ton code

[akmer]

si je le supprime sa marche bien mais j'aurais bien voulu connaitre le problème comme même, merci de ta réponse.
Peux tu me montrer le nettoyage que tu ferais sur mon code vba??
Que doit on enlever??le lignes avec les guillemets??les lignes avec false??

[Jean-Pierre49]

Sur toutes les propriétés aussi tu choisiras celles que tu conserve pour une amélioration future.

Sinon tout ce qui est par défaut

= ""
= False

Par exemple

Bon Courage

[akmer]

merci beaucoup pour votre aide