能否利用sas ods将每条观测打印成检查报告单

raw_data.rar (16.78 KB) 本附件包括：

• raw_data.sas7bdat

2013-4-9 19:53:45 上传

我有一个sas数据集，已经整理成了打印需要的格式，如图示


sas 数据集见附件 sas dataset
现在我想对每个编号打印出一张报告单，生成如图的格示


最好是生成rtf文档，一张文档有两张报告单，这样我就可以批量打印了

我能想到的就是利用ods rtf，但是对于表格上面的一行文字不知道怎么弄，字体粗细，大小也不能个性设置
求高手有没有什么办法，最好与上述图片格式保持一致。

或者不用sas, 用excel或者access能不能实现，或者有没有其它软件可以实现上述需求

求高位高手不吝赐教，悬赏1008币，聊表寸心。

1、讲数据集中数据，整理为标准格式。

1. data a;
   
2.     set raw_data;
   
3.     if F1 ^="";
   
4. run;
   
5. 
   
6. 
   
7. data b(keep=_no _date);
   
8. 
   
9.     set a;
   
10.         
    
11.         length _no $9 _date $10;
    
12.         if _N_>1 and (mod((_N_-2),13)=0 ) then do;
    
13.             
    
14.             no=scan(F1,2,":");
    
15.             date=scan(F1,3,":");
    
16.             _no=substr(no,1,9);
    
17.             _date=substr(date,1,9);
    
18. 
    
19.         end;
    
20.         
    
21.         if _no ^="" and _date^="";
    
22. 
    
23. run;
    
24. 
    
25. data c(keep=var1-var10);
    
26. 
    
27.     set a;
    
28. 
    
29.         if F2^="结果" and F2^="" then do;
    
30.             array _var(*) $6 var1-var10;
    
31.             x=mod((_N_-4),13)+1;
    
32.             _var(x)=F2;
    
33.             output;
    
34.         end;
    
35. 
    
36.         if F2^="结果" and F2^="";
    
37. 
    
38. run;
    
39. 
    
40. %macro getname;
    
41.     %do i=1 %to 10;
    
42.         c&i.(keep=var&i.)
    
43.     %end;
    
44. %mend;
    
45. 
    
46. 
    
47. data %getname;
    
48.      set c;
    
49. run;
    
50. 
    
51. data _NULL_;
    
52.    
    
53.     length code $1000;         
    
54.     array _name(14) $50;
    
55. 
    
56.     do i=1 to 10;
    
57.         _name(i)=cat("data c",strip(i),";set c",strip(i),";if var",strip(i),"^='';run;");
    
58.     end;
    
59. 
    
60.      code=cat(of _name:);
    
61.      call execute(code);
    
62. 
    
63. run;
    
64. 
    
65. data result;
    
66.     merge b %getname;
    
67. run;
    
68. 
    
69. proc datasets lib=work;
    
70.     delete c: a b;
    
71. quit;

复制代码

2、将数据集导出到Excel2003，邮件合并。详见附件。

邮件合并.rar (334.83 KB)

2013-4-10 07:50:11 上传

3、共计296份检验单。



完美解决，睡觉去了。

这个比较难，求大神帮忙吧，替楼主顶一下

sas不知道怎么做，但是用word的邮件合并功能可以做，给调查对象反馈结果就用这个功能。

zhengbo8 发表于 2013-4-10 07:51
1、讲数据集中数据，整理为标准格式。

真心佩服ls的
结果都出来了
word的域功能还真是强大

不知道proc template可以做吗
我简单查了下，大多是控制SAS直接导出的数据和图表的罗列方式
这样自定义表格，然后取数据填充表格的功能不知道能否实现

playmore 发表于 2013-4-10 08:37
真心佩服ls的
结果都出来了
word的域功能还真是强大

proc template，我想也是应该可以的，只是格式设置起来比较麻烦，要破费一番心血。

zhengbo8 发表于 2013-4-10 07:51
1、讲数据集中数据，整理为标准格式。

不明觉厉！
另在你的程序上修改了下，生成标准数据集就代码就少点儿了：

1. data a(keep=_:);
   
2.     set raw_data;
   
3.         length _no $9 _date $10;
   
4.         if prxmatch('/(编号)/',f1) then do;
   
5.                 _no=prxchange('s/\D+(\d{9})\D+(\d{4}-\d{1,2}-\d{1,2})\D+/$1/',-1,f1);
   
6.                 _date=prxchange('s/\D+(\d{9})\D+(\d{4}-\d{1,2}-\d{1,2})\D+/$2/',-1,f1);
   
7.         end;
   
8.         if _no^=' ';
   
9. run;
   
10. data b(keep=var:);
    
11.         array _var $6 var1-var10;
    
12.         do i=1 to 10;
    
13.                 set raw_data(where=(F2^="结果" and F2^=""));
    
14.                 _var(i)=F2;
    
15.         end;
    
16.         output;
    
17. run;
    
18. data result;
    
19.     merge a b;
    
20. run;

复制代码

zhengbo8 发表于 2013-4-10 08:40
proc template，我想也是应该可以的，只是格式设置起来比较麻烦，要破费一番心血。

嗯，我看了下proc template的文档
感觉这东西就和latex的模板一样
用一月的时间学，用一天的时间用，然后三天不碰又都忘了
对此真是有心无力啊

很经典！

zhengbo8 发表于 2013-4-10 07:51
1、讲数据集中数据，整理为标准格式。

不知道该用什么方法来表达对您的崇敬之情，仅奉上些许论坛币，聊表心意。太强大了