home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / WINDOWS / UTIL / APPSHL.ZIP / APPPRSET.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1991-08-17  |  4.2 KB  |  96 lines
  1. AppPrSetup
  2. Printer Setup
  3. Form1,
  4. PrinterLabel
  5.     &Printer:
  6. OKCmd
  7. PrinterList
  8.     CancelCmd
  9. Cancel
  10. SetupCmd
  11.     &Setup...
  12. AppPrSetup
  13. Form_Click
  14. @    Form_Load
  15. RetStr2
  16. RetStr2Size
  17. GetProfileString
  18. Buffer
  19. BufferSize'
  20. OKCmd_Click
  21. RetStr(
  22. RetStrSize
  23. DriverName
  24. PortName
  25. DoPrinterSetupU
  26. AppMain)
  27. PrinterName
  28. App_PrSetupTitle
  29. Caption
  30. AppPrSetupTitle
  31.     ListCount
  32. PrinterList0
  33.     ListIndex
  34. BufSize
  35. driver
  36. LoadPrinterList
  37. PrName
  38. PrNum
  39. SetupCmd_Click
  40. CancelCmd_Click[
  41. Remove_Items_from_Sysmenu
  42. PrinterList_Click7
  43. PrinterList_DblClick
  44. OKCmd
  45. Click
  46. App_PrinterName
  47. App_DriverName
  48. App_PortName
  49.     SelPrName
  50. App_PrinterDriverM
  51. App_PrinterPort
  52. PrinterLabel_Click
  53. MB_ICONSTOP
  54. MB_ICONINFORMATION
  55. Place_DialogBox_in_Form
  56.     LibHandle
  57. LoadLibrary
  58. Form1
  59. FreeLibrary
  60. AppShellPrSetup
  61. MB_ICONEXCLAMATION
  62. APP_NAME
  63. handleP
  64. Form_Load
  65. Printer Setup"
  66.  empty the printer list boxr
  67.  if no currently selected printer, use the default
  68. windows"
  69. device 
  70. Error"
  71. Error"
  72.  get the new list of printers
  73. devices"
  74. Error"
  75.  parse list and load list box
  76.  number of printers loaded
  77.  end index into buffer
  78. No Printers Found"
  79.  highlight currently selected printer in list boxb
  80. OKCmd_Click
  81. Must select a printer"
  82. LoadPrinterList
  83.  find out the driver name and port name
  84. devices"
  85. Error"
  86. SetupCmd_Click
  87. Must select a printer"
  88.  determine printer to setups
  89.  call app shell dll routine to display printer setup dialog boxl
  90. APPSHELL.DLL
  91. Can't run printer setup;
  92. please check your installation
  93.       MsgBox "Can't find printer setup program;" + CRLF + "reason code =" + Str$(handle%) + ";" + CRLF + "please check your software installation", MB_ICONEXCLAMATION, APP_NAME
  94. CancelCmd_Click
  95. PrinterList_DblClick
  96.