Discussion :

[Filippo]

Bonjour,
J'utilise la macro suivante pour afficher une image en titre et du texte en pied de page d'une sortie ods pdf :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
%Macro LogoFooterPdf(MyLogoFile, MyFooter1, MyFooter2) / store;
	%let MyLogoFile=%BQUOTE(%STR(&MyLogoFile));
	%let MyFooter1=%BQUOTE(%STR(&MyFooter1));
	%let MyFooter2=%BQUOTE(%STR(&MyFooter2));
 
	ods escapechar='^';
 
	title "^S={just=left preimage='&MyLogoFile'}";
 
	footnote1 "^S={just=left font_size=8pt font_weight=light font_style=roman} &MyFooter1";
	footnote2 "^S={just=right font_size=8pt font_weight=light font_style=roman} &MyFooter2";
%Mend;

J'utilise la macro dans le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
dm log 'clear';
option mlogic symbolgen;
option nodate nonumber;
ods listing close;
ods noproctitle;
ods PDF file='H:\TestOds.pdf' startpage=never;
%LogoFooterPdf(H:\logo.jpg, PROJET, Page ^{thispage} of ^{lastpage});
proc print data=sashelp.class; run;
 
ods PDF close;
ods listing;

Les pieds de page apparaissent bien mais pas l'image.
Si je supprime les footnotes alors l'image apparait correctement.

J'ai essayé d'ajuster la taille de la page avec option ps sans succès.

Le problème revient à pouvoir afficher en même temps une image en title et une footnote.

Si quelqu'un a une idée, j'avoue que je sèche.

Merci.

[Filippo]

En poursuivant mes recherches, je m'aperçois que je n'arrive pas à faire cohabiter les numéros de page personnalisés PDF avec le logo :

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
dm log 'clear';
dm output 'clear';
 
%Global MyCurDate;
data _null_ ;
   	Ddate = input("&sysdate",date7.) ;
	DateChar=put(Ddate,ddmmyy10.);
	Call Symput('MyCurDate', DateChar);
 run ;
 
 %global fichierATraiter;
 %Let fichierATraiter=NomDuFichier;
 
option nodate nonumber;
%LogoFooterPdf("&drive.&chemMacros.\logo.jpg", PROJET - Fichier : &fichierATraiter, &MyCurDate  - Page ^{thispage} of ^{lastpage});
ods listing close; /* désactive sortie en output pendant sortie dans ods pdf */ 
 
ods PDF file="H:\Test.pdf";
proc print DATA=sashelp.class; run;
 
ods PDF close; 
ods listing; /* réactive sorties dans output */

N'affiche pas le logo, en revanche si je supprime

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

^{thispage} of ^{lastpage}

de la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 &fichierATraiter, &MyCurDate  - Page ^{thispage} of ^{lastpage});

alors le logo apparait bien.

[datametric]

Oui c'est lastpage qui boggue : http://support.sas.com/kb/34/573.html

[Filippo]

Merci Datametric