Changer d'imprimante avec SAS

[MEGAMIND2]

Bonjour,
En cherchant, je suis tombé sur ce programme (ce qui est déjà bien) qui permet de changer d'imprimante lors d'une impréssion mais il refuse de fonctionner .

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
35
36
37
38
39
40
41
42
43
44
45
options noxwait noxsync;
filename sys dde "Excel|system";
 
DATA _NULL_ ;
    length FID RC STOP 8 ;
    FID = FOPEN("SYS","S");                      
    IF FID = 0 then do ; 
        RC = SYSTEM("start excel");  
        STOP = datetime() + 10 ;  
        do while (FID = 0) ;     
            FID = FOPEN("SYS","S");     
            IF (Datetime() > STOP) then FID = 1 ; 
        end ;
    end ;
    RC = fclose(FID);
run ; 
 
DATA _null_;
    file SYS;
    put "[ERROR(false)]";
    put "[open(""C:\Documents and Settings\fichier.xls"",,TRUE)]";
run; 
 
DATA _null_;
cmd='[FilePrintSetup .Printer = "PDFCreator sur Ne00:" ]';
file sys;
put cmd;
run;
 
 
DATA _null_;
file sys;
cmd='[FilePrint .Printer = "PDFCreator sur Ne00:", .AppendPrFile = 0 ,
.PrToFileName = ' || '"' || "C:\sorti" ||'"' ||
', .PrintToFile = 1]';
put cmd;
t=sleep(8);
run; 
 
DATA _null_;
t=sleep(15);
cmd= '[FileClose 2]';
file sys;
put cmd;
run;

Merci de votre aide!

[z6c3po]

un passage par ODS PRINTER serait peut être plus simple non ?

ODS PRINTER printer="le nom de l'imprimante";

a+

[MEGAMIND2]

Merci Sébastien, je vais essayé ça