Bonjour,
Je sors des listings de données par patient. J'aimerais avoir des sauts de page entre mes patients (code_pat) mais pas entre mes procedures. J'ai lancé un template et il supprime tous les sauts. Comment enlever les sauts entre les procedures et les remettre en les patients ?
J'ai tester l'options formdlim entre les proc report mais ça ne marche pas.
Merci d'avance.
Mon progr est le suivant :
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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69 proc template; define style saut; parent = styles.default; style body from body / pagebreakhtml = _UNDEF_; end; run; ods noptitle; ods html file='c:\marie\testdepi.html' (title="Cancers des bases ONCOLR et RCP") style=saut; Data _NULL_; set K end=eof; call symput('numpat'!!trim(left(put(_n_,8.))),code_pat); If eof then call symput('nbpat',_n_); run; %macro report; %Do i=1 %to &nbpat; Proc report data = demo missing nowd style(report)={just=center} style(lines)=header{background=white Foreground=red asis=on font_size=12pt font_face="TimesRoman" font_weight=bold just=left} style(header)=header{background=white font_size=10pt font_face="TimesRoman" frame=box font_weight=bold} style(column)=header{background=white font_size=10pt font_face="TimesRoman" font_weight=medium}; where code_pat = "&&numpat&i"; title1 "PATIENT N° &&numpat&i"; column text resp; define code_pat / width = 0 "" noprint; define text / width = 30 flow " " style(column)={just=center}; define resp / width = 30 flow " " style(column)={just=center}; run; quit; Proc report data = DONNEESoncolr missing nowd style(report)={just=center} style(lines)=header{background=white asis=on font_size=12pt font_face="TimesRoman" font_weight=bold just=left} style(header)=header{background=white font_size=10pt font_face="TimesRoman" frame=box font_weight=bold} style(column)=header{background=white font_size=10pt font_face="TimesRoman" font_weight=medium}; where code_pat = "&&numpat&i" and dossieroncolr eq 1; title1 "Données ONCOLR du patient N° &&numpat&i"; column text resp; define code_pat / width = 0 "" noprint; define dossieroncolr / width = 0 "" noprint; define text / width = 30 flow " " style(column)={just=center}; define resp / width = 30 flow " " style(column)={just=center}; run; quit; Proc report data = DONNEESrcp missing nowd style(report)={just=center} style(lines)=header{background=white asis=on font_size=12pt font_face="TimesRoman" font_weight=bold just=left} style(header)=header{background=white font_size=10pt font_face="TimesRoman" frame=box font_weight=bold} style(column)=header{background=white font_size=10pt font_face="TimesRoman" font_weight=medium}; where code_pat = "&&numpat&i" and dossierrcp eq 1; title1 "Données RCP du patient N° &&numpat&i"; column text resp; define code_pat / width = 0 "" noprint; define dossierrcp / width = 0 "" noprint; define text / width = 30 flow " " style(column)={just=center}; define resp / width = 30 flow " " style(column)={just=center}; run; QUIT; %end; %mend; %report; ods html close;
Partager