excel généré à partir d'Access - comment modifier les n° de pages
Bonjour,
A partir d'Access je génère un fichier xls.
J'utilise le code ci-dessous pour la mise en page.
En particulier la numérotation des pages est gérée ainsi
Code:
1
2
3
|
.CenterFooter = "Pagina &P di &N" |
et les pages sont donc numérotées de cette manière
Pagina 1 di 3
Pagina 2 di 3
Pagina 3 di 3
Je souhaiterais pouvoir commencer la numérotation avec un numéro différent
et avoir
Pagina 2 di 4
Pagina 3 di 4
Pagina 4 di 4
Comment est-ce possible?
Code:
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
|
With xlSheet.PageSetup
.LeftHeader = "&9Ecole française de Rome"
.CenterHeader = "&""Arial,Grassetto""REGISTRO DELLE USCITE"
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = "Pagina &P di &N"
.RightFooter = ""
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.LeftMargin = 10
.RightMargin = 10
.LeftMargin = 40
.TopMargin = 30
.BottomMargin = 8
.HeaderMargin = 10
.FooterMargin = 12
.PrintQuality = 600
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
'.Order = xlDownThenOver
.Order = xlOverThenDown
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
End With |
