home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 July & August / Pcwk78b98.iso / Smart30 / ENGLISH / PRODUCTS / LOTUS018.DSK / PRNSHADE.SMM < prev    next >
Encoding:
INI File  |  1992-05-08  |  2.4 KB  |  226 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. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [desc]
  18.     Print the selected text
  19.     Lotus WPD Marketing
  20.     Beginner
  21.     FileNew, Paste, UserControl
  22.     noautorun
  23.     705370886
  24.     17
  25.     671525509
  26.     13
  27.     1
  28.     0
  29.     0
  30.     0
  31.     0
  32.     
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     0
  39. [fopts]
  40.     0
  41.     1
  42.     0
  43.     0
  44. [lnopts]
  45.     2
  46.     Body Text
  47.     1
  48. [docopts]
  49.     5
  50.     2
  51. [GramStyle]
  52.     
  53. [tag]
  54.     Table Text
  55.     5
  56.     [fnt]
  57.         Arial
  58.         240
  59.         0
  60.         16384
  61.     [algn]
  62.         1
  63.         1
  64.         0
  65.         0
  66.         0
  67.     [spc]
  68.         33
  69.         273
  70.         1
  71.         0
  72.         0
  73.         1
  74.         100
  75.     [brk]
  76.         4
  77.     [line]
  78.         8
  79.         0
  80.         1
  81.         0
  82.         1
  83.         1
  84.         1
  85.         10
  86.         10
  87.         1
  88.     [spec]
  89.         0
  90.         0
  91.         
  92.         0
  93.         1
  94.         0
  95.         0
  96.         0
  97.         0
  98.         0
  99.     [nfmt]
  100.         272
  101.         1
  102.         3
  103.         .
  104.         ,
  105.         $
  106.     Table Text
  107.     0
  108.     0
  109. [l1]
  110.     0
  111. [pg]
  112.     1
  113.     28 0 12 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  114. [edoc]
  115. <:#293,9360>Macro by <+!>Charlie Pappas<-!>
  116.  
  117. <:#284,9360>
  118.  
  119. @Function@<:#293,9360>function shadeprt()
  120.  
  121. <:#284,9360>IF IsNewWave()
  122.  
  123. <:#284,9360>    Message("Macro not available while running under HP NewWave.")
  124.  
  125. <:#284,9360>    Exit Function
  126.  
  127. <:#284,9360>ENDIF
  128.  
  129. <:#284,9360>ignorekeyboard(2)
  130.  
  131. <:#284,9360>again:
  132.  
  133. if curshade$() = "" and getmode() = 129
  134.  
  135.     usercontrol("Select only 1 cell to print, then resume")
  136.  
  137.     goto again
  138.  
  139. endif
  140.  
  141. if curshade$() = ""
  142.  
  143. <:#284,9360>    usercontrol("Select text to print, then resume")
  144.  
  145. <:#284,9360>    goto again
  146.  
  147. <:#284,9360>endif
  148.  
  149. <:#284,9360>copy()
  150.  
  151. <:#284,9360>sty = GetProfileString$("AmiPro", "defstyle", "amipro.ini")
  152.  
  153. <:#284,9360>if sty = ""
  154.  
  155. <:#284,9360>    sty = "_default.sty"
  156.  
  157. <:#284,9360>endif
  158.  
  159. <:#284,9360>new(sty, 0, 0)
  160.  
  161. <:#284,9360>paste()
  162.  
  163. <:#284,9360>fileprint
  164.  
  165. <:#284,9360>filechanged(1, 0)
  166.  
  167. <:#284,9360>fileclose()
  168.  
  169. <:#284,9360>end function
  170.  
  171. >
  172.  
  173. [Embedded]
  174. 00001831
  175. >
  176. [macsum] 1
  177. shadeprt 0 0 2 2
  178. [macse]
  179. 14 shadeprt
  180. 0 1317
  181. 13
  182. 11 00000109
  183. 0 3 "Macro not available while running under HP NewWave."
  184. 6 0
  185. 15
  186. 9
  187. 0 32 2
  188. 0 24
  189. 13
  190. 7 ""
  191. 18 0
  192. 0 29
  193. 13
  194. 5 129
  195. 18 0
  196. 1 1
  197. 11 00000241
  198. 0 7 "Select only 1 cell to print, then resume"
  199. 10 00000117
  200. 0 24
  201. 13
  202. 7 ""
  203. 18 0
  204. 11 00000330
  205. 0 7 "Select text to print, then resume"
  206. 10 00000117
  207. 2 154 1
  208. 0 286 "AmiPro" "defstyle" "amipro.ini"
  209. 13
  210. 8 1
  211. 6 1
  212. 7 ""
  213. 18 0
  214. 11 00000441
  215. 7 "_default.sty"
  216. 8 1
  217. 2 101 1 "{1}" 0 0
  218. 2 155 1
  219. 24 111
  220. 0 34 1 0
  221. 2 147 1
  222. 6 0
  223. 15
  224. 9
  225. 00001856
  226.