%!PS-Adobe-3.0 %%BoundingBox: 0 0 612 792 %%HiResBoundingBox: 0 0 612 792 /inch {72 mul} def /hpitch 2.06 inch def /vpitch 0.50 inch def /width 1.75 inch def /height 0.50 inch def /left 0.28 inch def /top 0.50 inch def /cols 4 def /rows 20 def % Content to print on labels /content [ (BL1130.A4 B472) (DS406.B56 2009) (DS406.B76 2008) (DS407.G75 2008) (DS436.T17 1999) (DS480.84.U47) (DS480.853.S579 2007) (DS481.A1 A377 1985) (DS481.G23 A35 1982) (DS481.G23G86 1992) (DS481.G3 A3 1993) (DS493.3.B56 2009) (G1046.P33 O9 2007) (GA203.V57 2006) (GV199.42.C6 H36 1999) (GV199.42.C6 R64 2001) (GV199.42.C62 I538 1992) (GV199.42.W22 O48 2006) (GV199.42.W22R344 2005) (GV200.183.S36 2007) (GV200.2.C665 2007) (GV200.M688 2003) (GV854.5.C6 L54 1999) (HQ734.P84 1987) (LB1139.5.R43 B58 2006) (LC2330.M67 2006) (PS648.E7 K564 2009) (PS3568.O696B4 1984) (PZ8.3.G8713 2007) (Q105.A1 G73 2009) (QA76.76.O63 N448 2006) (QA76.9.A25 C6678 2009) (QA76.9.A73D68) (RJ61.M48 2000) (RJ101.K84 2005) (RJ216.W72) (TH4817.3.F45 2000) (TK7882.C56 P64 1992) (TT870.S355) (TX714.C37317 1998) (TX740.B3763 2009) (TX763.B32385) (TX801.C43 1993) (TX837.C325 1987) (TX837.K67 2000) (TX7837.K38) ] def % Height of the letter page /pageheight 792 def /fontsize 11 def /Times findfont fontsize scalefont setfont /i 0 def 0 1 cols 1 sub { /x exch def 0 1 rows 1 sub { /y exch def gsave left x hpitch mul add pageheight top sub y vpitch mul sub translate % Draw the bounding box newpath 0 0 moveto width 0 rlineto 0 height neg rlineto width neg 0 rlineto 0 height rlineto closepath stroke % Write the text itself i content length lt { 0 0 moveto content i get dup stringwidth pop width exch sub 2 div height fontsize add 2 neg div moveto show } if /i i 1 add def grestore } for } for showpage