home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b095 / 2.img / LIBRARY / LABEL / DATA.$LM / data.xlm (.txt)
Encoding:
Excel Spreadsheet  |  1991-11-20  |  11.4 KB  |  114 lines
  1. Sheet: 
  2. (0, 0)        DATA.main 
  3. (0, 1)        
  4. (0, 2)        LABEL.list 
  5. (0, 3)        
  6. (0, 4)        APP.close
  7. (0, 5)        
  8. (1, 1)        Hide the main window
  9. (1, 2)        Sorting Database
  10. (1, 3)        
  11. (1, 5)        
  12. (2, 1)        Make sure database worksheet is active
  13. (2, 3)        
  14. (2, 5)        Close all opened files
  15. (3, 1)        Hide the database worksheet
  16. (3, 3)        Hide the main .menu
  17. (3, 5)        
  18. (4, 1)        Select the database area
  19. (4, 3)        Make sure database worksheet is active
  20. (4, 5)        
  21. (5, 1)        Set the area as database
  22. (5, 3)        Display the database worksheet
  23. (5, 5)        
  24. (6, 1)        Maintain database
  25. (6, 3)        Arrange the window
  26. (6, 5)        
  27. (7, 1)        Save the change
  28. (7, 3)        Select the database area
  29. (7, 5)        End
  30. (8, 1)        Display the main window
  31. (8, 3)        Names the total row of selection "total.row"
  32. (9, 1)        Arrange the window
  33. (9, 3)        Select the sort area
  34. (10, 1)        End
  35. (10, 3)        Sorting the database
  36. (11, 2)        Define the criteria range
  37. (11, 3)        
  38. (12, 3)        Set Criteria range
  39. (13, 3)        Display a dialog box for user to input the begining customer number 
  40. (14, 3)        Display a dialog box for user to input the ending customer number 
  41. (15, 3)        
  42. (16, 3)        
  43. (17, 3)        
  44. (18, 3)        
  45. (19, 3)        
  46. (20, 3)        
  47. (21, 3)        
  48. (22, 3)        
  49. (23, 3)        Define the extract range
  50. (24, 3)        Extract the records which meets the criteria
  51. (25, 3)        
  52. (26, 3)        
  53. (27, 3)        Set the column width as the "best fit" type
  54. (28, 3)        Names the qualified records number "Total.rec"
  55. (29, 2)        Select and adjust record for mailing labels
  56. (29, 3)        
  57. (30, 3)        Select the sex field
  58. (31, 3)        Insert one column
  59. (32, 3)        Select the first cell to fill translated sex
  60. (33, 3)        Change the "M" to "ѲÑ═","F" to "ñp⌐j"
  61. (34, 3)        Copy the formula
  62. (35, 3)        Select the paste area
  63. (36, 3)        Only pasete the formula
  64. (37, 3)        Decide the active cell
  65. (38, 3)        End the copy function
  66. (39, 3)        Insert one column
  67. (40, 3)        Make the selection for fill the formula
  68. (41, 3)        Combine the name, translated sex, cust no to one column
  69. (42, 3)        Make a copy
  70. (43, 3)        Only paste the value
  71. (44, 3)        End the copy function
  72. (45, 3)        Select the useless columns
  73. (46, 3)        Delect the 3 columns
  74. (47, 3)        
  75. (48, 3)        Decide the active cell
  76. (49, 2)        Create labels from selection
  77. (49, 3)        
  78. (50, 3)        Names the active cell "upper left"
  79. (51, 3)        Sets no. of rows in selection to be transposed
  80. (52, 3)        Sets no. of columns in selection to be transposed
  81. (53, 3)        Creates counter; sets it = 0
  82. (54, 3)        Selects first customer & address
  83. (55, 3)        Gives name "temp" to first customer record
  84. (56, 3)        Selects the area where label will be created
  85. (57, 3)        Transposes text
  86. (58, 3)        Copies and 
  87. (59, 3)        Pastes values only to label area
  88. (60, 3)        Selects next record of database to transpose
  89. (61, 3)        Increments the counter
  90. (62, 3)        Check: "Are we done yet?" If not, go to .C55
  91. (63, 3)        
  92. (64, 3)        
  93. (65, 3)        Selects last label cell
  94. (66, 3)        Names row of last cell "last row"
  95. (67, 3)        Names "label area" as "last row" to end of database
  96. (68, 3)        Selects "label area" to prepare for printing
  97. (69, 3)        End the copy function
  98. (70, 3)        Decide to print the labels now?
  99. (71, 3)        If don't print labels now, display the main window
  100. (72, 2)        Prints labels
  101. (72, 3)        
  102. (73, 3)        Set the label.area as the print area
  103. (74, 3)        Set up the page format
  104. (75, 2)        Clear Work Area
  105. (75, 3)        Print the mailing labels
  106. (76, 3)        
  107. (77, 3)        Clear work area
  108. (78, 2)        Display main window
  109. (78, 3)        
  110. (79, 3)        Hide the active window
  111. (80, 3)        Display the main window
  112. (81, 3)        Arrange the window
  113. (82, 3)        End
  114.