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