01type
02  XlPaperSize = (xlPaperLetter = 1, xlPaperLetterSmall = 2, xlPaperTabloid = 3, 
03    xlPaperLedger = 4, xlPaperLegal = 5, xlPaperStatement = 6, 
04    xlPaperExecutive = 7, xlPaperA3 = 8, xlPaperA4 = 9, xlPaperA4Small = 10, 
05    xlPaperA5 = 11, xlPaperB4 = 12, xlPaperB5 = 13, xlPaperFolio = 14, 
06    xlPaperQuarto = 15, xlPaper10x14 = 16, xlPaper11x17 = 17, xlPaperNote = 18, 
07    xlPaperEnvelope9 = 19, xlPaperEnvelope10 = 20, xlPaperEnvelope11 = 21, 
08    xlPaperEnvelope12 = 22, xlPaperEnvelope14 = 23, xlPaperCsheet = 24, 
09    xlPaperDsheet = 25, xlPaperEsheet = 26, xlPaperEnvelopeDL = 27, 
10    xlPaperEnvelopeC5 = 28, xlPaperEnvelopeC3 = 29, xlPaperEnvelopeC4 = 30, 
11    xlPaperEnvelopeC6 = 31, xlPaperEnvelopeC65 = 32, xlPaperEnvelopeB4 = 33, 
12    xlPaperEnvelopeB5 = 34, xlPaperEnvelopeB6 = 35, xlPaperEnvelopeItaly = 36, 
13    xlPaperEnvelopeMonarch = 37, xlPaperEnvelopePersonal = 38, 
14    xlPaperFanfoldUS = 39, xlPaperFanfoldStdGerman = 40, 
15    xlPaperFanfoldLegalGerman = 41, xlPaperUser = 256);

Или

01type
02  XlPaperSize = TOleEnum;
03const
04  xlPaperLetter = $00000001;
05  xlPaperLetterSmall = $00000002;
06  xlPaperTabloid = $00000003;
07  xlPaperLedger = $00000004;
08  xlPaperLegal = $00000005;
09  xlPaperStatement = $00000006;
10  xlPaperExecutive = $00000007;
11  xlPaperA3 = $00000008;
12  xlPaperA4 = $00000009;
13  xlPaperA4Small = $0000000A;
14  xlPaperA5 = $0000000B;
15  xlPaperB4 = $0000000C;
16  xlPaperB5 = $0000000D;
17  xlPaperFolio = $0000000E;
18  xlPaperQuarto = $0000000F;
19  xlPaper10x14 = $00000010;
20  xlPaper11x17 = $00000011;
21  xlPaperNote = $00000012;
22  xlPaperEnvelope9 = $00000013;
23  xlPaperEnvelope10 = $00000014;
24  xlPaperEnvelope11 = $00000015;
25  xlPaperEnvelope12 = $00000016;
26  xlPaperEnvelope14 = $00000017;
27  xlPaperCsheet = $00000018;
28  xlPaperDsheet = $00000019;
29  xlPaperEsheet = $0000001A;
30  xlPaperEnvelopeDL = $0000001B;
31  xlPaperEnvelopeC5 = $0000001C;
32  xlPaperEnvelopeC3 = $0000001D;
33  xlPaperEnvelopeC4 = $0000001E;
34  xlPaperEnvelopeC6 = $0000001F;
35  xlPaperEnvelopeC65 = $00000020;
36  xlPaperEnvelopeB4 = $00000021;
37  xlPaperEnvelopeB5 = $00000022;
38  xlPaperEnvelopeB6 = $00000023;
39  xlPaperEnvelopeItaly = $00000024;
40  xlPaperEnvelopeMonarch = $00000025;
41  xlPaperEnvelopePersonal = $00000026;
42  xlPaperFanfoldUS = $00000027;
43  xlPaperFanfoldStdGerman = $00000028;
44  xlPaperFanfoldLegalGerman = $00000029;
45  xlPaperUser = $00000100;

Элементы перечисления:

Имя	Значение	Назначение
xlPaperLetter	1
xlPaperLetterSmall	2
xlPaperTabloid	3
xlPaperLedger	4
xlPaperLegal	5
xlPaperStatement	6
xlPaperExecutive	7
xlPaperA3	8
xlPaperA4	9
xlPaperA4Small	10
xlPaperA5	11
xlPaperB4	12
xlPaperB5	13
xlPaperFolio	14
xlPaperQuarto	15
xlPaper10x14	16
xlPaper11x17	17
xlPaperNote	18
xlPaperEnvelope9	19
xlPaperEnvelope10	20
xlPaperEnvelope11	21
xlPaperEnvelope12	22
xlPaperEnvelope14	23
xlPaperCsheet	24
xlPaperDsheet	25
xlPaperEsheet	26
xlPaperEnvelopeDL	27
xlPaperEnvelopeC5	28
xlPaperEnvelopeC3	29
xlPaperEnvelopeC4	30
xlPaperEnvelopeC6	31
xlPaperEnvelopeC65	32
xlPaperEnvelopeB4	33
xlPaperEnvelopeB5	34
xlPaperEnvelopeB6	35
xlPaperEnvelopeItaly	36
xlPaperEnvelopeMonarch	37
xlPaperEnvelopePersonal	38
xlPaperFanfoldUS	39
xlPaperFanfoldStdGerman	40
xlPaperFanfoldLegalGerman	41
xlPaperUser	256