home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / Bonus / WSTAR2 / DISK4 / PRINTPAG.WM_ / PRINTPAG.bin
Encoding:
Text File  |  1994-02-28  |  6.9 KB  |  60 lines
  1. REM Description: Prints the current page
  2. REM Filename:  printpag.wmc
  3. REM Created by:  Steven Wylie - 11/29/93
  4.  
  5. REM Can't run if no document open
  6. IF GetDocName$() = "" THEN
  7.     MESSAGE "Please create a new document or open an existing document first."
  8.     STOP
  9. ENDIF
  10.  
  11. REM If the draft editor is active, we have to switch to the page editor.
  12. IF GetEditor() = 0 THEN
  13.     switch% = 1
  14.     ret% = GetTextOffset(start%, end%)
  15.     ViewEditor 1
  16. ENDIF
  17.  
  18. REM Get the number of the current page.
  19. pageNum% = GetPageNum(0)
  20.  
  21. REM Print just the one page.
  22. FilePrint 0, pageNum%, pageNum%, , , , , ,
  23.  
  24. IF switch% = 1 THEN
  25.     ViewEditor 0
  26.     EditGotoOffset start%,
  27.     IF ret% THEN EditGotoOffset end%, 1
  28. ENDIF
  29.  
  30. 
  31. *****  WARNING *****
  32. This is a WSWin macro file.
  33. Subsequent data is binary information and should not be modified.
  34. # MF # 1.0None762570751z¬"í
  35. 8àêë
  36. âêçèâ
  37. 8ìî
  38. ïìÄÅ
  39. 8    
  40. 8     ÉÆô
  41. âÆöâ
  42. 8 òÇ
  43. 8 ùÿÖûÜ
  44. 8£Ç¢£¥
  45. 8á
  46. ƒá₧í
  47. 8úóú₧₧Ñ
  48. 8
  49. âòǺâ
  50. 8¿¢¿⌐
  51. 8
  52. ¬ÿ½
  53. 8âû¡â
  54. 8«Ç
  55. ¬Ö«»▓~:▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒._R._R._R ._R-._R5._R;._RA._RN._R^._R    l._R
  56. z._R ê._R û._Rñ._R▓._R╢._R╣._R╜._R└._R┬._R─._R╞._R╔._R╠._R╧._R╥._R╘._R╓._R┌._R▄._R▐._Rα._R Γ._R!Σ._R"Θ._R#∞._R$≡._R%⌡._R&ⁿ._R'/_R(
  57. /_R)/_R*/_R+/_R,"/_R-(/_R.-/_R/3/_R06/_R1;/_R2@/_R3B/_R4E/_R5J/_R6N/_R7T/_R8Y/_R9`/_R:g/_R;l/_R<o/_R=w/_R>y/_R?{/_R@/_RAê/_RBî/_RCÅ/_RDù/_RE₧/_RFú/_RG¡/_RH┤/_RI╣/_RJ╜/_RK┬/_RL╟/_RM═/_RN╤/_RO╒/_RP▄/_RQπ/_RRΩ/_RS≡/_RT≈/_RU0_RV0_RW0_RX$0_RY10_RZ:0_R[G0_R\P0_R]X0_R^`0_R_h0_R`q0_Rav0_Rb{0_RcÇ0_Rdç0_ReÄ0_Rfö0_Rg¢0_Rh¥0_Rió0_Rj¿0_Rk«0_Rl╡0_Rm╛0_Rn╟0_Ro╦0_Rp╙0_Rq╫0_Rr▄0_RsΓ0_RtΦ0_Ruε0_Rv⌠0_Rw∙0_Rx■0_Ry1_Rz1_R{1_R|1_R}OV  OV+OV+    OVOVOV  OV OV
  58. ë,OV  H1OV+      4OV      9OV     >OV  HCOVçKOV+      ÄOV      ôOV  ÿOV     ¥OVçºOV  ª¼OV  ▒OV     ╢OV  ª╗OV          ├OV          ╚OVç╓OV          ▌OV          ΓOV     τOVA≥OV  °OV     ■OV          OVç    OV  OV     OVA (OV  .OV  4OV     :OV  \?OV  \DOV  JOV     POVA_OV     eOV  \jOV  \oOV  uOV     {OV}OV????01CANCELERRORNUM[T1]
  59. GETDOCNAME$[L1]""[T2][T3][L2]MESSAGE"Please create a new document or open an existing document first."[T4][T5][T6]GETEDITOR[L3][T7][T8][L4]SWITCH%RET%GETTEXTOFFSETSTART%END%[T9]VIEWEDITOR[T10][T11]PAGENUM%GETPAGENUM[T12][T13]FILEPRINT[T14][T15][T16][L5][L6][T17][T18]EDITGOTOOFFSET[T19][L7][L8][T20][T21]
  60.