home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / i / ivb92b.zip / PRTINFO1.FRM (.txt) < prev    next >
Visual Basic Form  |  1992-09-17  |  3KB  |  87 lines
  1. Form1
  2. Get default printer info
  3. Form1
  4. lblPrinter
  5.     lblDriver
  6. lblPort
  7. lblLPI
  8. Label1
  9. Command1
  10. Get Default Printer Info
  11. Command2
  12. Form_Click
  13. GetProfileString
  14.     lpAppName
  15.     lpKeyName
  16.     lpDefault
  17. lpReturnedString
  18. nSizeU
  19. Command1_Clickg
  20. lpRetStr
  21. NumChars&
  22. NullStr
  23. lpRet
  24. koRetStr
  25.     CommaPos1`
  26.     CommaPos2=
  27. lblPrinter
  28. Caption
  29.     lblDriver
  30. lblPort
  31. Command2_Click
  32. DeviceInfo
  33. Device_Error    
  34.     PageScale
  35. GetDeviceCaps
  36. Printer
  37. LOGPIXELSX
  38. LOGPIXELSYn
  39. FALSEG
  40. POINTAPI
  41. PageSizex
  42. Result8
  43. Escapeu
  44. GETPHYSPAGESIZE
  45. Orientation
  46. GETSETPRINTORIENT
  47. lblOrientation
  48. X_Size
  49. Y_Size
  50. Vertical_resolution
  51.     Page_Size
  52. lblPaperSize
  53. lblXSize
  54. lblYSize
  55. lblVerticalResolution
  56.     lblScaleX
  57.     lblScaleYT
  58. Lines_Per_InchB
  59. Pixels_Per_Inch
  60. TextMetrix
  61. TEXTMETRIC
  62. GetTextMetrics
  63. tmHeight
  64. tmExternalLeading
  65. Lines_Per_Inch
  66. lblLPI^
  67. Kernel|
  68. Command1_Click
  69. windows"
  70. device
  71. Printer: "
  72. Driver: 
  73. Port: 
  74.  lblOrientation.Caption = "Orientation: Portrait")
  75.  lblOrientation.Caption = "Orientation: Landscape"
  76.  lblOrientation.Caption = ""
  77.   lblPaperSize.Caption = "Page Size:" + Page_Size$ + " inches"
  78.   lblPaperSize.Caption = ""a
  79. lblXSize.Caption = "X Size = " + Str$(X_Size!)
  80. lblYSize.Caption = "Y Size = " + Str$(Y_Size!)
  81. lblVerticalResolution.Caption = "Vertical Resolution = " + Str$(Vertical_resolution)
  82. lblScaleX.Caption = "Pixels X: " + Str$(PageScale.X)
  83. lblScaleY.Caption = "Pixels Y: " + Str$(PageScale.Y)
  84. Command2_Click
  85. DeviceInfo
  86. Lines_Per_Inch
  87.