想把txt输出改成pdf格式输出

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

想把txt输出改成pdf格式输出，有什么简单方法，求教，感谢！

程序如下：

libname random "E:\random";

%macro random;
%window main

////  @10 "请输入名称" @40 index 20 attr=underline

// @10 "请输入总数" @40 n 4 attr=underline

// @10 "请输入组数" @40 ngrp 4 attr=underline

// @10 "请输入组间比例" @40 ratio 8 attr=underline
   @50 "(1:1、2:1:1等形式)"

// @10 "请输入区组长度" @40 rand 4 attr=underline

// @10 "请输入种子数" @40 seed 10 attr=underline

//// @10 "按ENTER键继续"  ;

%display main;


data _null_;
file "E:\random\&index.随机结果.txt" ;
put
////  "&index.随机设计参数"
//   @1 22*"━"
/    @2 "总样本数"    @20 "&n."
/    @2 "组数"        @20 "&ngrp."
/    @2 "组间比例"    @20 "&ratio."
/    @2 "区组长度"    @20 "&rand."
/    @2 "随机数种子"  @20 "&seed."
/    @1 22*"━"
;
run;

%let s=0;
%do i=1 %to &ngrp;
        %let ratio&i=%scan(&ratio,&i,:);
        %let s=%eval(&s+&&ratio&i);
%end;

ods listing close;
ods output plan=plan;
proc plan seed=&seed.;
   factors block=%eval( &n./ &rand.)
           rand=&rand.;
output out=temp1
       rand cvals=(        %do i=1 %to %eval(&rand/&s);
                                          %do j=1 %to &ngrp;
                                                %do k=1 %to &&ratio&j;
                            "%sysfunc(byte(&j+64))"
                    %end ;%end;%end;);
quit;
ods listing;

data temp1(drop=rand);
set temp1;
D=_n_;
group=rand || "组";
run;

data _null_;
set temp1 end=final;
ID=put(D, z3.);
file "E:\random\&index.随机结果.txt" mod;
if _n_=1 then put // @1 "&index.随机数字表"
                  // @2 "编号" @12 "分组"
                  / @1 8*"━";
put  @2 id  @12 group ;
if final then  put @1 8*"━";
run;

data _null_;
file "E:\random\&index.包装表.txt" ;
put
////  "&index.随机设计参数"
//   @1 22*"━"
/    @2 "总样本数"    @20 "&n."
/    @2 "组数"        @20 "&ngrp."
/    @2 "组间比例"    @20 "&ratio."
/    @2 "区组长度"    @20 "&rand."
/    @2 "随机数种子"  @20 "&seed."
/    @1 22*"━"
;
run;

proc sort data=temp1 out=temp2;
by group;
run;

data _null_;
set temp2 end=final;
ID=put(D, z3.);
file "E:\random\&index.包装表.txt" mod;
if _n_=1 then put // @1 "&index.包装表"
                  // @2 "编号" @12 "分组"
                 / @1 8*"━";
put  @2 id  @12 group ;
if final then put @1 8*"━";
run;

proc delete data=temp1 temp2 plan;
quit;
%mend random;

%random;

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：pdf格式 PDF txt listing libname display 简单方法 window null file

好复杂

想输出为pdf格式，求指导！

急急急！求指导！！！谢谢先！

常用做法是ODS PDF，但要改写程序。
不常用做法是自定义PDF打印机，将TXT转成PDF，但是PDF打印机的字号和边界要根据TXT的LINESIZE和PAGESIZE调整。
下面的例子是将132x79的LISTING OUTPUT转PDF，在UNIX下完成，WINDOWS环境下的OPTIONS可能略有不同。

1. data pdf7p;
   
2.         dest        = 'sasprt.pdf';
   
3.         hostopt        = ' ';
   
4.         desc        = 'PDF (132x79)';
   
5.         viewer        = ' ';
   
6.         name        = 'PDF7P';
   
7.         model        = 'PDF Version 1.4';
   
8.         preview        = ' ';
   
9.         typeface        = 'Courier';
   
10.         papersiz        = 'Letter';
    
11.         *papertyp        = '<Default>';
    
12.         *paperin                = '<Default>';
    
13.         *paperout        = '<Default>';
    
14.         res        = '300 DPI';
    
15.         weight        = 'Normal';
    
16.         style        = 'Regular';
    
17.         charset        = 'Western';
    
18.         protocol        = ' ';
    
19.         device        = 'DISK';
    
20.         trantab        = ' ';
    
21.         units        = 'IN';
    
22.         lrecl        = 255;
    
23.         top        = 1.5;
    
24.         left        = .5;
    
25.         right        = .5;
    
26.         bottom        = 1.5;
    
27.         fontsize        = 7;
    
28. proc prtdef data=pdf7p replace;
    
29. run;
    
30. options printerpath=(pdf7p myprint)
    
31.                 ls=132 ps=79
    
32.                 orientation=portrait
    
33.         nodate
    
34. ;
    
35. filename myprint "example.pdf";
    
36. filename myuprt uprinter;
    
37. 
    
38. proc printto print=myuprt;
    
39. data _null_;
    
40.         file print notitles;
    
41.         infile "example.txt";
    
42.         input;
    
43.         put _infile_;
    
44. run;
    
45. proc printto;
    
46. run;

复制代码

保存一下！

1. libname random "E:\random";
   
2. 
   
3. %macro random;
   
4. %window main
   
5. 
   
6. ////  @10 "请输入名称" @40 index 20 attr=underline
   
7. 
   
8. // @10 "请输入总数" @40 n 4 attr=underline
   
9. 
   
10. // @10 "请输入组数" @40 ngrp 4 attr=underline
    
11. 
    
12. // @10 "请输入组间比例" @40 ratio 8 attr=underline
    
13.    @50 "(1:1、2:1:1等形式)"
    
14. 
    
15. // @10 "请输入区组长度" @40 rand 4 attr=underline
    
16. 
    
17. // @10 "请输入种子数" @40 seed 10 attr=underline
    
18. 
    
19. //// @10 "按ENTER键继续"  ;
    
20. 
    
21. %display main;
    
22. 
    
23. 
    
24. data _null_;
    
25. file "E:\random\&index.随机结果.txt" ;
    
26. put
    
27. ////  "&index.随机设计参数"
    
28. //   @1 22*"━"
    
29. /    @2 "总样本数"    @20 "&n."
    
30. /    @2 "组数"        @20 "&ngrp."
    
31. /    @2 "组间比例"    @20 "&ratio."
    
32. /    @2 "区组长度"    @20 "&rand."
    
33. /    @2 "随机数种子"  @20 "&seed."
    
34. /    @1 22*"━"
    
35. ;
    
36. run;
    
37. 
    
38. %let s=0;
    
39. %do i=1 %to &ngrp;
    
40.         %let ratio&i=%scan(&ratio,&i,:);
    
41.         %let s=%eval(&s+&&ratio&i);
    
42. %end;
    
43. 
    
44. ods listing close;
    
45. ods output plan=plan;
    
46. proc plan seed=&seed.;
    
47.    factors block=%eval( &n./ &rand.)
    
48.            rand=&rand.;
    
49. output out=temp1
    
50.        rand cvals=(        %do i=1 %to %eval(&rand/&s);
    
51.                                           %do j=1 %to &ngrp;
    
52.                                                 %do k=1 %to &&ratio&j;
    
53.                             "%sysfunc(byte(&j+64))"
    
54.                     %end ;%end;%end;);
    
55. quit;
    
56. ods listing;
    
57. 
    
58. data temp1(drop=rand);
    
59. set temp1;
    
60. D=_n_;
    
61. group=rand || "组";
    
62. run;
    
63. 
    
64. data _null_;
    
65. set temp1 end=final;
    
66. ID=put(D, z3.);
    
67. file "E:\random\&index.随机结果.txt" mod;
    
68. if _n_=1 then put // @1 "&index.随机数字表"
    
69.                   // @2 "编号" @12 "分组"
    
70.                   / @1 8*"━";
    
71. put  @2 id  @12 group ;
    
72. if final then  put @1 8*"━";
    
73. run;
    
74. 
    
75. data _null_;
    
76. file "E:\random\&index.包装表.txt" ;
    
77. put
    
78. ////  "&index.随机设计参数"
    
79. //   @1 22*"━"
    
80. /    @2 "总样本数"    @20 "&n."
    
81. /    @2 "组数"        @20 "&ngrp."
    
82. /    @2 "组间比例"    @20 "&ratio."
    
83. /    @2 "区组长度"    @20 "&rand."
    
84. /    @2 "随机数种子"  @20 "&seed."
    
85. /    @1 22*"━"
    
86. ;
    
87. run;
    
88. 
    
89. proc sort data=temp1 out=temp2;
    
90. by group;
    
91. run;
    
92. 
    
93. data _null_;
    
94. set temp2 end=final;
    
95. ID=put(D, z3.);
    
96. file "E:\random\&index.包装表.txt" mod;
    
97. if _n_=1 then put // @1 "&index.包装表"
    
98.                   // @2 "编号" @12 "分组"
    
99.                  / @1 8*"━";
    
100. put  @2 id  @12 group ;
     
101. if final then put @1 8*"━";
     
102. run;
     
103. 
     
104. proc delete data=temp1 temp2 plan;
     
105. quit;
     
106. %mend random;
     
107. 
     
108. %random;

复制代码