banner.ps (973B)
1 % 2 % Simple program to print a banner page 3 % 4 5 /banner { 6 /saveobj save def 7 erasepage initgraphics 8 9 /#copies 1 def 10 /inch {72 mul} bind def 11 /pagebbox [clippath pathbbox newpath] def 12 13 /font /Helvetica def 14 /size 20 def 15 /height pagebbox 3 get def 16 /width pagebbox 2 get .09 mul def 17 18 .92 setgray 19 pagebbox 0 get pagebbox 1 get moveto 20 width 0 rlineto 0 height rlineto width neg 0 rlineto closepath eofill 21 pagebbox 2 get pagebbox 1 get moveto 22 width neg 0 rlineto 0 height rlineto width 0 rlineto closepath eofill 23 0 setgray 24 25 font findfont size scalefont setfont 26 /linesp size size .15 mul add neg def 27 /tab (Destination) stringwidth pop 1.5 mul def 28 /nextline {0 0 moveto show tab 0 moveto show 0 linesp translate} def 29 30 pagebbox 0 get 1.5 width mul add pagebbox 3 get 2.0 width mul sub translate 31 (Bin) nextline 32 (Name) nextline 33 (Owner) nextline 34 (File) nextline 35 (Account) nextline 36 (Destination) nextline 37 (Spooldate) nextline 38 showpage 39 saveobj restore 40 } bind def