home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 18 / 18.iso / w / w252 / 4.ddi / MACROS.CMZ / PRNSHADE.SMM < prev    next >
Encoding:
INI File  |  1991-08-19  |  1013 b   |  107 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     ~macro.sty
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     PostScript Printer
  13. [lang]
  14.     1
  15. [desc]
  16.     Quickly print only the selected or shaded text in a document with PRNSHADE.
  17.     Lotus WPD Marketing
  18.     Beginner
  19.     FileNew, Paste, UserControl
  20.     
  21.     682670595
  22.     10
  23.     671525509
  24.     8
  25.     1
  26.     0
  27.     0
  28.     0
  29.     0
  30.     
  31.     
  32.     
  33.     
  34.     
  35.     
  36.     0
  37. [fopts]
  38.     0
  39.     1
  40.     0
  41.     0
  42. [lnopts]
  43.     2
  44.     Body Text
  45.     1
  46. [docopts]
  47.     5
  48.     2
  49. [l1]
  50.     0
  51. [edoc]
  52. Macro by <+!>Charlie Pappas<-!>
  53.  
  54.  
  55. function shadeprt()
  56.  
  57. again:
  58.  
  59. if curshade$() = ""
  60.  
  61.     usercontrol("Select text to print, then resume")
  62.  
  63.     goto again
  64.  
  65. endif
  66.  
  67. copy()
  68.  
  69. new("~default.sty", 0, 0)
  70.  
  71. paste()
  72.  
  73. fileprint
  74.  
  75. filechanged(1, 0)
  76.  
  77. fileclose()
  78.  
  79. end function
  80.  
  81. >
  82.  
  83. [Embedded]
  84. 00000752
  85. >
  86. [macsum] 1
  87. shadeprt 0 0 1 2
  88. [macse]
  89. 14 shadeprt
  90. 0 24
  91. 13
  92. 7 ""
  93. 18 0
  94. 11 00000102
  95. 0 7 "Select text to print, then resume"
  96. 10 00000013
  97. 2 154 1
  98. 2 101 1 "~default.sty" 0 0
  99. 2 155 1
  100. 24 111
  101. 0 34 1 0
  102. 2 147 1
  103. 6 0
  104. 15
  105. 9
  106. 00000777
  107.