home *** CD-ROM | disk | FTP | other *** search
/ C/C++ User's Journal & Wi…eveloper's Journal Tools / C-C__Users_Journal_and_Windows_Developers_Journal_Tools_1997.iso / vbdemos / vbdemos.lzh / VBLPDEMO.BAS < prev    next >
BASIC Source File  |  1993-07-14  |  8KB  |  215 lines
  1. Global PrintWhat As Integer
  2. Global Collate As Integer
  3. Global PrintToFile As Integer
  4. Global PageNumbers As Integer
  5. Global FromPage As Integer
  6. Global ToPage As Integer
  7. Global MinPage As Integer
  8. Global MaxPage As Integer
  9. Global NumberOfCopies As Integer
  10. Global Selection As Integer
  11. Global VBLiteDir As String
  12.  
  13. ' Constants for the Action property
  14. Global Const DISPLAY_PRINT_DIALOG = 0
  15. Global Const DISPLAY_PRINTSETUP_DIALOG = 1
  16. Global Const RESET_TO_DEFAULT = 2
  17. Global Const START_PRINT_JOB = 3
  18. Global Const ADVANCE_TO_NEXT_PAGE = 4
  19. Global Const END_PRINT_JOB = 5
  20. Global Const PRINT_TEXT = 6
  21. Global Const PRINT_SHAPE = 7
  22. Global Const PRINT_DIB = 8
  23. Global Const PRINT_MEMORY_BITMAP = 9
  24. Global Const DISPLAY_CHOOSEFONT_DIALOG = 10
  25.  
  26. ' Constants for the ShapeToPrint property
  27. Global Const DRAW_POINT = 0
  28. Global Const DRAW_LINE = 1
  29. Global Const DRAW_ARC = 2
  30. Global Const DRAW_CHORD = 3
  31. Global Const DRAW_ELLIPSE = 4
  32. Global Const DRAW_PIE = 5
  33. Global Const DRAW_RECTANGLE = 6
  34. Global Const DRAW_ROUNDEDRECT = 7
  35. Global Const DRAW_POLYGON = 8
  36.  
  37. ' Constants for the PrintWhat property
  38. Global Const PRINT_ALL_PAGES = 1
  39. Global Const PRINT_SELECTION = 2
  40. Global Const PRINT_RANGE_OF_PAGES = 3
  41.  
  42. ' Constants for the PrintToFile property
  43. Global Const DISABLE_PRINTTOFILE_CHECKBOX = 1
  44. Global Const HIDE_PRINTTOFILE_CHECKBOX = 2
  45. Global Const PRINTTOFILE_CHECKED = 3
  46. Global Const PRINTTOFILE_NOTCHECKED = 4
  47.  
  48. ' Constants for the PageNumbers property
  49. Global Const DISABLE_PAGES_BUTTON = 1
  50. Global Const PAGES_BUTTON_SET = 2
  51. Global Const PAGES_BUTTON_NOT_SET = 3
  52.  
  53. ' Constants for the Selection property
  54. Global Const DISABLE_SELECTION_BUTTON = 1
  55. Global Const SELECTION_BUTTON_SET = 2
  56. Global Const SELECTION_BUTTON_NOT_SET = 3
  57.  
  58. ' Constants for the Orientation property
  59. Global Const O_PORTRAIT = 1
  60. Global Const O_LANDSCAPE = 2
  61.  
  62. ' Constants for the PaperSize property
  63. Global Const PS_LETTER = 1               ' Letter 8 1/2 x 11 in
  64. Global Const PS_LETTERSMALL = 2          ' Letter Small 8 1/2 x 11 in
  65. Global Const PS_TABLOID = 3              ' Tabloid 11 x 17 in
  66. Global Const PS_LEDGER = 4               ' Ledger 17 x 11 in
  67. Global Const PS_LEGAL = 5                ' Legal 8 1/2 x 14 in
  68. Global Const PS_STATEMENT = 6            ' Statement 5 1/2 x 8 1/2 in
  69. Global Const PS_EXECUTIVE = 7            ' Executive 7 1/4 x 10 1/2 in
  70. Global Const PS_A3 = 8                   ' A3 297 x 420 mm
  71. Global Const PS_A4 = 9                   ' A4 210 x 297 mm
  72. Global Const PS_A4SMALL = 10             ' A4 Small 210 x 297 mm
  73. Global Const PS_A5 = 11                  ' A5 148 x 210 mm
  74. Global Const PS_B4 = 12                  ' B4 250 x 354
  75. Global Const PS_B5 = 13                  ' B5 182 x 257 mm
  76. Global Const PS_FOLIO = 14               ' Folio 8 1/2 x 13 in
  77. Global Const PS_QUARTO = 15              ' Quarto 215 x 275 mm
  78. Global Const PS_10X14 = 16               ' 10x14 in
  79. Global Const PS_11X17 = 17               ' 11x17 in
  80. Global Const PS_NOTE = 18                ' Note 8 1/2 x 11 in
  81. Global Const PS_ENV_9 = 19               ' Envelope #9 3 7/8 x 8 7/8
  82. Global Const PS_ENV_10 = 20              ' Envelope #10 4 1/8 x 9 1/2
  83. Global Const PS_ENV_11 = 21              ' Envelope #11 4 1/2 x 10 3/8
  84. Global Const PS_ENV_12 = 22              ' Envelope #12 4 \276 x 11
  85. Global Const PS_ENV_14 = 23              ' Envelope #14 5 x 11 1/2
  86. Global Const PS_CSHEET = 24              ' C size sheet
  87. Global Const PS_DSHEET = 25              ' D size sheet
  88. Global Const PS_ESHEET = 26              ' E size sheet
  89. Global Const PS_ENV_DL = 27              ' Envelope DL 110 x 220mm
  90. Global Const PS_ENV_C5 = 28              ' Envelope C5 162 x 229 mm
  91. Global Const PS_ENV_C3 = 29              ' Envelope C3  324 x 458 mm
  92. Global Const PS_ENV_C4 = 30              ' Envelope C4  229 x 324 mm
  93. Global Const PS_ENV_C6 = 31              ' Envelope C6  114 x 162 mm
  94. Global Const PS_ENV_C65 = 32             ' Envelope C65 114 x 229 mm
  95. Global Const PS_ENV_B4 = 33              ' Envelope B4  250 x 353 mm
  96. Global Const PS_ENV_B5 = 34              ' Envelope B5  176 x 250 mm
  97. Global Const PS_ENV_B6 = 35              ' Envelope B6  176 x 125 mm
  98. Global Const PS_ENV_ITALY = 36           ' Envelope 110 x 230 mm
  99. Global Const PS_ENV_MONARCH = 37         ' Envelope Monarch 3.875 x 7.5 in
  100. Global Const PS_ENV_PERSONAL = 38        ' 6 3/4 Envelope 3 5/8 x 6 1/2 in
  101. Global Const PS_FANFOLD_US = 39          ' US Std Fanfold 14 7/8 x 11 in
  102. Global Const PS_FANFOLD_STD_GERMAN = 40  ' German Std Fanfold 8 1/2 x 12 in
  103. Global Const PS_FANFOLD_LGL_GERMAN = 41  ' German Legal Fanfold 8 1/2 x 13 in
  104. Global Const PS_USER = 256               ' User defined paper size
  105.  
  106. ' Constants for the DefaultBin property
  107. Global Const DB_UPPER = 1
  108. Global Const DB_ONLYONE = 1
  109. Global Const DB_LOWER = 2
  110. Global Const DB_MIDDLE = 3
  111. Global Const DB_MANUAL = 4
  112. Global Const DB_ENVELOPE = 5
  113. Global Const DB_ENVMANUAL = 6
  114. Global Const DB_AUTO = 7
  115. Global Const DB_TRACTOR = 8
  116. Global Const DB_SMALLFMT = 9
  117. Global Const DB_LARGEFMT = 10
  118. Global Const DB_LARGECAPACITY = 11
  119. Global Const DB_CASSETTE = 14
  120.  
  121. ' Constants for the PrintQuality property
  122. Global Const PQ_DRAFT = -1
  123. Global Const PQ_LOWRES = -2
  124. Global Const PQ_MEDIUMRES = -3
  125. Global Const PQ_HIGHRES = -4
  126.  
  127. ' Constants for the UseOfColor property
  128. Global Const COLUSE_MONO = 1
  129. Global Const COLUSE_COLOR = 2
  130.  
  131. ' Constants for the DuplexType property
  132. Global Const DT_SIMPLEX = 1
  133. Global Const DT_VERTICAL = 2
  134. Global Const DT_HORIZONTAL = 3
  135.  
  136. ' Constants for the DrawMode property
  137. Global Const DM_BLACK = 1
  138. Global Const DM_NOTMERGEPEN = 2
  139. Global Const DM_MASKNOTPEN = 3
  140. Global Const DM_NOTCOPYPEN = 4
  141. Global Const DM_MASKPENNOT = 5
  142. Global Const DM_NOT = 6
  143. Global Const DM_XORPEN = 7
  144. Global Const DM_NOTMASKPEN = 8
  145. Global Const DM_MASKPEN = 9
  146. Global Const DM_NOTXORPEN = 10
  147. Global Const DM_NOP = 11
  148. Global Const DM_MERGENOTPEN = 12
  149. Global Const DM_COPYPEN = 13
  150. Global Const DM_MERGEPENNOT = 14
  151. Global Const DM_MERGEPEN = 15
  152. Global Const DM_WHITE = 16
  153.  
  154. ' Constants for the DrawStyle property
  155. Global Const DS_SOLID = 0
  156. Global Const DS_DASH = 1
  157. Global Const DS_DOT = 2
  158. Global Const DS_DASHDOT = 3
  159. Global Const DS_DASHDOTDOT = 4
  160. Global Const DS_NULL = 5
  161. Global Const DS_INSIDEFRAME = 6
  162.  
  163. ' Constants for the FillStyle property
  164. Global Const FS_SOLID = 0
  165. Global Const FS_TRANSPARENT = 1
  166. Global Const FS_HORIZLINE = 2
  167. Global Const FS_VERTLINE = 3
  168. Global Const FS_UPDIAGONAL = 4
  169. Global Const FS_DOWNDIAGONAL = 5
  170. Global Const FS_CROSS = 6
  171. Global Const FS_DIAGCROSS = 7
  172.  
  173. ' Constants for the ScaleMode property
  174. Global Const SM_USER = 0
  175. Global Const SM_TWIP = 1
  176. Global Const SM_POINT = 2
  177. Global Const SM_PIXEL = 3
  178. Global Const SM_CHARACTER = 4
  179. Global Const SM_INCH = 5
  180. Global Const SM_MILLIMETER = 6
  181. Global Const SM_CENTIMETER = 7
  182.  
  183. ' Constants for possible error codes
  184. Global Const ERR_UNABLE_TO_CHANGE_SETTING = 32000
  185. Global Const ERR_UNABLE_TO_GET_SETTING = 32001
  186. Global Const ERR_UNSUPPORTED_PRINTER_SETTING = 32002
  187. Global Const ERR_UNABLE_TO_START_PRINTJOB = 32003
  188.  
  189. ' Constants for the SupportedSettings property
  190. Global Const SUPP_ORIENTATION = &H1&
  191. Global Const SUPP_PAPERSIZE = &H2&
  192. Global Const SUPP_PAPERLENGTH = &H4&
  193. Global Const SUPP_PAPERWIDTH = &H8&
  194. Global Const SUPP_SCALEFACTOR = &H10&
  195. Global Const SUPP_DEFAULTBIN = &H200&
  196. Global Const SUPP_PRINTQUALITY = &H400&
  197. Global Const SUPP_COPIES = &H100&
  198. Global Const SUPP_USEOFCOLOR = &H800&
  199. Global Const SUPP_DUPLEXTYPE = &H1000&
  200.  
  201. ' Constants for ErrorCode and NotReported parameters
  202. ' for the PrintAborted event
  203. Global Const ERROR_USERABORTED = 0
  204. Global Const ERROR_GENERALERROR = -1
  205. Global Const ERROR_APPABORT = -2
  206. Global Const ERROR_PRINTMANAGERABORT = -3
  207. Global Const ERROR_OUTOFDISKSPACE = -4
  208. Global Const ERROR_OUTOFMEMORY = -5
  209.  
  210. Global Const ERROR_REPORTED = -1
  211. Global Const ERROR_NOTREPORTED = 0
  212.  
  213.  
  214.  
  215.