Bonjour à tous,
je travaille pour un client qui évolue sur Excel 2003, et comme il refuse que je fasse des tests sur son poste, je n'ai pas beaucoup de solutions possibles :/
Aussi, est-ce que quelqu'un parmi vous pourrait me donner l'équivalent du macro recorder sous Excel 2003 de la manipulation suivante :
-Définir la zone d'impression A1:J200
- ligne d'en-tête à garder 1:11
- format portrait
- 1 page max en largeur
- automatique en hauteur
Le code que j'ai actuellement sous 2007 mais qui ne passe pas sous la version 2003 du client :
Avec une erreur 438, erreur non gérée...
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 Application.PrintCommunication = False With wbk.Sheets(Boucle).PageSetup .PrintArea = wbk.Sheets(Boucle).Range("A1:J" & wbk.Sheets(Boucle).Range("A65536").End(xlUp).Row).Address .PrintTitleRows = "$1:$11" .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "&10&P/&N" .LeftMargin = Application.InchesToPoints(0.25) .RightMargin = Application.InchesToPoints(0.25) .TopMargin = Application.InchesToPoints(0.75) .BottomMargin = Application.InchesToPoints(0.75) .HeaderMargin = Application.InchesToPoints(0.3) .FooterMargin = Application.InchesToPoints(0.3) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments '.PrintQuality = 600 .CenterHorizontally = False .CenterVertically = False .orientation = xlPortrait .Draft = False .PaperSize = xlPaperA4 .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 0 'automatique .PrintErrors = xlPrintErrorsDisplayed End With Application.PrintCommunication = True
Merci par avance
Partager