home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_2 / VB_G_PRT / VBG1.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-06-03  |  5.4 KB  |  135 lines
  1. Form1
  2. VB General Printer
  3. Form15
  4.     chkItalic
  5. Italic
  6. chkBold
  7. Combo2
  8. Combo2
  9. Combo1
  10. Combo1
  11. cmdExit
  12. E&xit
  13. cmdPrint
  14. &Print
  15. Text1
  16. Text1
  17. Frame1
  18. Instructions:
  19. Label1
  20. Enter text in the box below.  Choose File|Print to print text or click on command button below.  Choose File|Printer Select... to choose new printer.
  21. Label3
  22. Font Size:
  23. Label2
  24. Font:
  25. mnuFile
  26. &File
  27. mnuPrinterSelect
  28. Printer &Select...
  29. mnuPrint
  30. &Print
  31. mnuSep1
  32. mnuExit
  33. E&xit
  34. mnuHelp
  35. &Help
  36. mnuAbout
  37. &About VBGPRINT
  38.     Form_Load
  39. mnuExit_Click
  40. Text1
  41. cmdExit_Click
  42. cmdPrint_Click
  43. mnuPrint_ClickO
  44. mnuPrinterSelect_Clickg
  45. ThisPrinter
  46. GetWindowsDefaultPrinter
  47. ThisOrientation(
  48. GetWindowsPrinterOrientation
  49. SelectPrinter<
  50. PrintThisText
  51. Form_Unload
  52. Cancel
  53. Text27
  54. Text3
  55. FillCombo2
  56. FillCombo3
  57. Combo3
  58.     ListIndex
  59. Combo2
  60. FillCombo1
  61. PrinterInfoO
  62. GetProfileString
  63. OldPos
  64. Counter
  65. XtraInfo
  66. PrinterArrayp
  67.     DevOutputt
  68. GetDeviceOutput
  69. NumOutputs
  70. GetNumDeviceOutputs
  71. AddThis`
  72. GetDeviceName
  73. GetNumberedDeviceOutput
  74. GetDeviceDriver
  75. List1
  76. ItemData
  77. NewIndex
  78. CurrentPrinterE
  79. InstalledFonts
  80. MB_ICONSTOP
  81. ThisFont
  82. Combo1
  83. UseBold
  84.     UseItalic
  85. Combo1_Change
  86. Combo1_Click
  87. chkBold
  88.     chkItalic
  89. mnuAbout_Click
  90. frmAbout
  91. chkBold_Click
  92. Combo2_Change
  93. Frame1_DragDrop
  94. Source
  95. Control
  96. Label1_Click#
  97. mnuFile_Click4
  98. mnuHelp_Click
  99. mnuSep1_Click
  100. Text1_Change"
  101. Copyright 1994   Unger Business Systems  All Rights Reserved
  102. This code is distributed as shareware.  If you use it, you
  103. are required by law to register it.  Please contact Ungeru
  104. Business Systems at 11926 Barrett Brae, Houston, TX 77072-4004
  105. or call (713) 498-8517.  Registration fee is $20.00 US
  106. See the README.TXT file for more information
  107. All code, forms, modules, controls, etc. are provided without-
  108. warranty or liabilityl
  109. cmdExit_Click
  110. cmdPrint_Click
  111. Combo1_Click
  112. if chosen font has BOLD or ITALIC in its name, set the
  113. appropriate check boxL
  114. ITALIC
  115. FillCombo1
  116. This routine reads all of the installed fonts and
  117. stores them as choices in the combo box 
  118. Calling GetProfileString with 0& as the second parameter returns a listu
  119. of all items in the "fonts" section of WIN.INI
  120. These are separated by ASCII 0's and must be parsedm
  121. fonts
  122. No Windows fonts installed.
  123. FillCombo2
  124. Form_Load
  125. Get the default windows printer for a starting point
  126. available fonts=
  127. some font sizes=
  128. Form_Unload
  129. mnuAbout_Click
  130. modalo
  131. mnuExit_Click
  132. mnuPrint_Click
  133. mnuPrinterSelect_Click
  134. VBG Printer
  135.