home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD 12 / 12_pcplus_supercd.iso / COMUN / NWMAC / NW_MAC / ATPS.BNR < prev    next >
Encoding:
Text File  |  1993-10-05  |  3.7 KB  |  144 lines
  1. % ------
  2. % ATPS.BNR                         10/5/93
  3. % ------
  4. %
  5. %      This is an example external PostScript banner for use with
  6. %  ATPS.NLM.  By default, when the ATPS print server prints a banner,
  7. %  it does this by sending the printer PostScript or text data which is built
  8. %  into ATPS.NLM.  The external banner capability of ATPS allows you to replace
  9. %  the default PostScript banner with one customized to your environment.
  10. %  You could modify the banner to use a different font, include your
  11. %  organization's logo, or be localized to your language and locale.
  12. %
  13. %    When a version of ATPS.NLM that supports the external banner
  14. %  tries to print a PostScript banner, it goes through the following steps:
  15. %
  16. %    1) transmits 9 strings with information about the print job
  17. %    2) transmits an optional message string definition (for example,
  18. %        the text of a PostScript error)
  19. %    3) checks for the existence of SYS:SYSTEM\NW-MAC\ATPS.BNR
  20. %    4) transmits the contents of this file, or the ATPS internal banner
  21. %        if it is not present
  22. %    5) waits for confirmation from the printer that the banner has
  23. %        been output
  24. %
  25. %  The banner PostScript code should use the string operands previously
  26. %  pushed on the stack to generate a banner.  It should also
  27. %  check to see if the optional message string has been defined,
  28. %  and, if so, include the message on the banner.  Your finished ATPS.BNR
  29. %  file should be placed in SYS:SYSTEM\NW-MAC for use by ATPS.  This
  30. %  sample print out the standard ATPS banner in a different font.
  31. %
  32. %  The strings are transmitted in this order, and are thus present on the
  33. %  stack in the *reverse* order:
  34. % 
  35. %  string 1    the localized date
  36. %  string 2    the localized time
  37. %  string 3    the server name
  38. %  string 4    the queue name
  39. %  string 5    the job's description
  40. %  string 6    the job owner's NetWare name
  41. %  string 7    the job number (in hexadecimal format)
  42. %  string 8    the job's file name (set in Printcon for DOS users)
  43. %  string 9    the job's user name (set in Printcon for DOS users)
  44. %
  45. % ---------
  46. % VARIABLES
  47. % ---------
  48.  
  49. /HeaderFont
  50.     /Helvetica findfont 12 scalefont def
  51. /NameFont
  52.     /Helvetica findfont 30 scalefont def
  53. /MsgFont
  54.     /Helvetica findfont 18 scalefont def
  55. /BordStart {72 72} def
  56. /BordTall 632 def
  57. /BordWide 468 def
  58. /ShadeStart {500 72} def
  59. /ShadeWide 39 def
  60. /HeadOff {18 BordTall 18 sub} def
  61.  
  62. % ----------
  63. % PROCEDURES
  64. % ----------
  65.  
  66. /doborder    % draws the border
  67. { newpath
  68.     BordStart moveto
  69.     0 BordTall rlineto
  70.     BordWide 0 rlineto
  71.     0 BordTall neg rlineto
  72.     closepath
  73.     .5 setlinewidth
  74.     stroke } def
  75.  
  76. /doshade    % print a shaded strip along the right edge
  77. { gsave
  78.     newpath
  79.     ShadeStart moveto
  80.     0 BordTall rlineto
  81.     ShadeWide 0 rlineto
  82.     0 BordTall neg rlineto
  83.     closepath
  84.     .9 setgray
  85.     fill
  86.     grestore} def
  87.  
  88. /HeaderPosition        % move to the upper left of the top panel
  89. { BordStart moveto
  90.     HeadOff rmoveto
  91.     rmoveto } def
  92.  
  93. /domsg        % print the message text
  94. { MsgFont setfont
  95.     0 -340 HeaderPosition
  96.     /MsgText load show } def
  97.  
  98. /doheader    % print the bannner information
  99. { NameFont setfont
  100.     96 -24 HeaderPosition
  101.     show
  102.     HeaderFont setfont
  103.     0 -66 HeaderPosition
  104.     (Job Name: ) show
  105.     96 -66 HeaderPosition
  106.     show
  107.     0 -90 HeaderPosition
  108.     (Job Number: ) show
  109.     96 -90 HeaderPosition
  110.     show
  111.     0 -114 HeaderPosition
  112.     (User Account: ) show
  113.     96 -114 HeaderPosition
  114.     show
  115.     0 -138 HeaderPosition
  116.     (Description: ) show
  117.     96 -138 HeaderPosition
  118.     show
  119.     0 -162 HeaderPosition
  120.     (Queue: ) show
  121.     96 -162 HeaderPosition
  122.     show
  123.     0 -186 HeaderPosition
  124.     (Server: ) show
  125.     96 -186 HeaderPosition
  126.     show
  127.     0 -210 HeaderPosition
  128.     (Time and date: ) show
  129.     96 -210 HeaderPosition
  130.     show
  131.     (  ) show
  132.     show } def
  133.  
  134. % ------------
  135. % MAIN PROGRAM
  136. % ------------
  137.  
  138. doborder
  139. doheader
  140. doshade
  141. userdict /MsgText known {domsg} if
  142. showpage
  143.  
  144.