%% Simple program to print a banner page% /banner { /saveobj save def erasepage initgraphics /#copies 1 def /inch {72 mul} bind def /pagebbox [clippath pathbbox newpath] def /font /Helvetica def /size 20 def /height pagebbox 3 get def /width pagebbox 2 get .09 mul def .92 setgray pagebbox 0 get pagebbox 1 get moveto width 0 rlineto 0 height rlineto width neg 0 rlineto closepath eofill pagebbox 2 get pagebbox 1 get moveto width neg 0 rlineto 0 height rlineto width 0 rlineto closepath eofill 0 setgray font findfont size scalefont setfont /linesp size size .15 mul add neg def /tab (Destination) stringwidth pop 1.5 mul def /nextline {0 0 moveto show tab 0 moveto show 0 linesp translate} def pagebbox 0 get 1.5 width mul add pagebbox 3 get 2.0 width mul sub translate (Bin) nextline (Name) nextline (Owner) nextline (File) nextline (Account) nextline (Destination) nextline (Spooldate) nextline showpage saveobj restore} bind def
%
% Simple program to print a banner page
%
/banner {
/saveobj save def
erasepage initgraphics
/#copies 1 def
/inch {72 mul} bind def
/pagebbox [clippath pathbbox newpath] def
/font /Helvetica def
/size 20 def
/height pagebbox 3 get def
/width pagebbox 2 get .09 mul def
.92 setgray
pagebbox 0 get pagebbox 1 get moveto
width 0 rlineto 0 height rlineto width neg 0 rlineto closepath eofill
pagebbox 2 get pagebbox 1 get moveto
width neg 0 rlineto 0 height rlineto width 0 rlineto closepath eofill
0 setgray
font findfont size scalefont setfont
/linesp size size .15 mul add neg def
/tab (Destination) stringwidth pop 1.5 mul def
/nextline {0 0 moveto show tab 0 moveto show 0 linesp translate} def
pagebbox 0 get 1.5 width mul add pagebbox 3 get 2.0 width mul sub translate
(Bin) nextline
(Name) nextline
(Owner) nextline
(File) nextline
(Account) nextline
(Destination) nextline
(Spooldate) nextline
showpage
saveobj restore
} bind def