home *** CD-ROM | disk | FTP | other *** search
/ Dan Appleman's Visual Bas…s Guide to the Win32 API / Dan.Applmans.Visual.Basic.5.0.Programmers.Guide.To.The.Win32.API.1997.Ziff-Davis.Press.CD / VB5PG32.mdf / classlib / desaware / dwdvmode.cls < prev    next >
Encoding:
Text File  |  1996-04-23  |  7.2 KB  |  258 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "dwDevMode"
  6. Attribute VB_Creatable = True
  7. Attribute VB_Exposed = True
  8. ' Desaware API Class library
  9. ' Copyright (c) 1996 by Desaware Inc.
  10. ' All rights reserved
  11.  
  12. Private iDevMode As DEVMODE
  13.  
  14. Public Sub CopyToDEVMODE(ByVal lpDevMode As Long)
  15.     If lpDevMode = 0 Then RaiseError 5, "dwDevMode"
  16.     agCopyData iDevMode, ByVal lpDevMode, Len(iDevMode)
  17. End Sub
  18.  
  19. Public Sub CopyFromDEVMODE(ByVal lpDevMode As Long)
  20.     If lpDevMode = 0 Then RaiseError 5, "dwDevMode"
  21.     agCopyData ByVal lpDevMode, iDevMode, Len(iDevMode)
  22. End Sub
  23.  
  24. Public Sub SetDevMode(dmDeviceName As String, dmSpecVersion As Integer, dmDriverVersion As Integer, dmSize As Integer, dmDriverExtra As Integer, dmFields As Long, dmOrientation As Integer, dmPaperSize As Integer, dmPaperLength As Integer, dmPaperWidth As Integer, dmScale As Integer, dmCopies As Integer, dmDefaultSource As Integer, dmPrintQuality As Integer, dmColor As Integer, dmDuplex As Integer, dmYResolution As Integer, dmTTOption As Integer)
  25.     iDevMode.dmDeviceName = dmDeviceName
  26.     iDevMode.dmSpecVersion = dmSpecVersion
  27.     iDevMode.dmDriverVersion = dmDriverVersion
  28.     iDevMode.dmSize = dmSize
  29.     iDevMode.dmDriverExtra = dmDriverExtra
  30.     iDevMode.dmFields = dmFields
  31.     iDevMode.dmOrientation = dmOrientation
  32.     iDevMode.dmPaperSize = dmPaperSize
  33.     iDevMode.dmPaperLength = dmPaperLength
  34.     iDevMode.dmPaperWidth = dmPaperWidth
  35.     iDevMode.dmScale = dmScale
  36.     iDevMode.dmCopies = dmCopies
  37.     iDevMode.dmDefaultSource = dmDefaultSource
  38.     iDevMode.dmPrintQuality = dmPrintQuality
  39.     iDevMode.dmColor = dmColor
  40.     iDevMode.dmDuplex = dmDuplex
  41.     iDevMode.dmYResolution = dmYResolution
  42.     iDevMode.dmTTOption = dmTTOption
  43. End Sub
  44.  
  45. Public Property Get dmDeviceName() As String
  46.     dmDeviceName = iDevMode.dmDeviceName
  47. End Property
  48.  
  49. Public Property Let dmDeviceName(vNewValue As String)
  50.     iDevMode.dmDeviceName = vNewValue
  51. End Property
  52.  
  53. Public Property Get dmSpecVersion() As Integer
  54.     dmSpecVersion = iDevMode.dmSpecVersion
  55. End Property
  56.  
  57. Public Property Let dmSpecVersion(vNewValue As Integer)
  58.     iDevMode.dmSpecVersion = vNewValue
  59. End Property
  60.  
  61. Public Property Get dmDriverVersion() As Integer
  62.     dmDriverVersion = iDevMode.dmDriverVersion
  63. End Property
  64.  
  65. Public Property Let dmDriverVersion(vNewValue As Integer)
  66.     iDevMode.dmDriverVersion = vNewValue
  67. End Property
  68.  
  69. Public Property Get dmSize() As Integer
  70.     dmSize = iDevMode.dmSize
  71. End Property
  72.  
  73. Public Property Let dmSize(vNewValue As Integer)
  74.     iDevMode.dmSize = vNewValue
  75. End Property
  76.  
  77. Public Property Get dmDriverExtra() As Integer
  78.     dmDriverExtra = iDevMode.dmDriverExtra
  79. End Property
  80.  
  81. Public Property Let dmDriverExtra(vNewValue As Integer)
  82.     iDevMode.dmDriverExtra = vNewValue
  83. End Property
  84.  
  85. Public Property Get dmFields() As Long
  86.         dmFields = iDevMode.dmFields
  87. End Property
  88.  
  89. Public Property Let dmFields(vNewValue As Long)
  90.     iDevMode.dmFields = vNewValue
  91. End Property
  92.  
  93. Public Property Get dmOrientation() As Integer
  94.     dmOrientation = iDevMode.dmOrientation
  95. End Property
  96.  
  97. Public Property Let dmOrientation(vNewValue As Integer)
  98.     iDevMode.dmOrientation = vNewValue
  99. End Property
  100.  
  101. Public Property Get dmPaperSize() As Integer
  102.     dmPaperSize = iDevMode.dmPaperSize
  103. End Property
  104.  
  105. Public Property Let dmPaperSize(vNewValue As Integer)
  106.     iDevMode.dmPaperSize = vNewValue
  107. End Property
  108.  
  109. Public Property Get dmPaperLength() As Integer
  110.     dmPaperLength = iDevMode.dmPaperLength
  111. End Property
  112.  
  113. Public Property Let dmPaperLength(vNewValue As Integer)
  114.     iDevMode.dmPaperLength = vNewValue
  115. End Property
  116.  
  117. Public Property Get dmPaperWidth() As Integer
  118.     dmPaperWidth = iDevMode.dmPaperWidth
  119. End Property
  120.  
  121. Public Property Let dmPaperWidth(vNewValue As Integer)
  122.     iDevMode.dmPaperWidth = vNewValue
  123. End Property
  124.  
  125. Public Property Get dmScale() As Integer
  126.     dmScale = iDevMode.dmScale
  127. End Property
  128.  
  129. Public Property Let dmScale(vNewValue As Integer)
  130.     iDevMode.dmScale = vNewValue
  131. End Property
  132.  
  133. Public Property Get dmCopies() As Integer
  134.     dmCopies = iDevMode.dmCopies
  135. End Property
  136.  
  137. Public Property Let dmCopies(vNewValue As Integer)
  138.     iDevMode.dmCopies = vNewValue
  139. End Property
  140.  
  141. Public Property Get dmDefaultSource() As Integer
  142.     dmDefaultSource = iDevMode.dmDefaultSource
  143. End Property
  144.  
  145. Public Property Let dmDefaultSource(vNewValue As Integer)
  146.     iDevMode.dmDefaultSource = vNewValue
  147. End Property
  148.  
  149. Public Property Get dmPrintQuality() As Integer
  150.     dmPrintQuality = iDevMode.dmPrintQuality
  151. End Property
  152.  
  153. Public Property Let dmPrintQuality(vNewValue As Integer)
  154.     iDevMode.dmPrintQuality = vNewValue
  155. End Property
  156.  
  157. Public Property Get dmColor() As Integer
  158.     dmColor = iDevMode.dmColor
  159. End Property
  160.  
  161. Public Property Let dmColor(vNewValue As Integer)
  162.     iDevMode.dmColor = vNewValue
  163. End Property
  164.  
  165. Public Property Get dmDuplex() As Integer
  166.     dmDuplex = iDevMode.dmDuplex
  167. End Property
  168.  
  169. Public Property Let dmDuplex(vNewValue As Integer)
  170.     iDevMode.dmDuplex = vNewValue
  171. End Property
  172.  
  173. Public Property Get dmYResolution() As Integer
  174.     dmYResolution = iDevMode.dmYResolution
  175. End Property
  176.  
  177. Public Property Let dmYResolution(vNewValue As Integer)
  178.     iDevMode.dmYResolution = vNewValue
  179. End Property
  180.  
  181. Public Property Get dmTTOption() As Integer
  182.     dmTTOption = iDevMode.dmTTOption
  183. End Property
  184.  
  185. Public Property Let dmTTOption(vNewValue As Integer)
  186.     iDevMode.dmTTOption = vNewValue
  187. End Property
  188.  
  189. ' The properties below only exist in win32.
  190. #If Win32 Then
  191.  
  192. Public Property Get dmCollate() As Integer
  193.     dmCollate = iDevMode.dmCollate
  194. End Property
  195.  
  196. Public Property Let dmCollate(vNewValue As Integer)
  197.     iDevMode.dmCollate = vNewValue
  198. End Property
  199.  
  200. Public Property Get dmFormName() As String
  201.     dmFormName = iDevMode.dmFormName
  202. End Property
  203.  
  204. Public Property Let dmFormName(vNewValue As String)
  205.     iDevMode.dmFormName = vNewValue
  206. End Property
  207.  
  208. Public Property Get dmUnusedPadding() As Integer
  209.     dmUnusedPadding = iDevMode.dmUnusedPadding
  210. End Property
  211.  
  212. Public Property Let dmUnusedPadding(vNewValue As Integer)
  213.     iDevMode.dmUnusedPadding = vNewValue
  214. End Property
  215.  
  216. Public Property Get dmBitsPerPel() As Integer
  217.     dmBitsPerPel = iDevMode.dmBitsPerPel
  218. End Property
  219.  
  220. Public Property Let dmBitsPerPel(vNewValue As Integer)
  221.     iDevMode.dmBitsPerPel = vNewValue
  222. End Property
  223.  
  224. Public Property Get dmPelsWidth() As Long
  225.     dmPelsWidth = iDevMode.dmPelsWidth
  226. End Property
  227.  
  228. Public Property Let dmPelsWidth(vNewValue As Long)
  229.     iDevMode.dmPelsWidth = vNewValue
  230. End Property
  231.  
  232. Public Property Get dmPelsHeight() As Long
  233.     dmPelsHeight = iDevMode.dmPelsHeight
  234. End Property
  235.  
  236. Public Property Let dmPelsHeight(vNewValue As Long)
  237.     iDevMode.dmPelsHeight = vNewValue
  238. End Property
  239.  
  240. Public Property Get dmDisplayFlags() As Long
  241.     dmDisplayFlags = iDevMode.dmDisplayFlags
  242. End Property
  243.  
  244. Public Property Let dmDisplayFlags(vNewValue As Long)
  245.     iDevMode.dmDisplayFlags = vNewValue
  246. End Property
  247.  
  248. Public Property Get dmDisplayFrequency() As Long
  249.     dmDisplayFrequency = iDevMode.dmDisplayFrequency
  250. End Property
  251.  
  252. Public Property Let dmDisplayFrequency(vNewValue As Long)
  253.     iDevMode.dmDisplayFrequency = vNewValue
  254. End Property
  255.  
  256. #End If ' win32 only properties
  257.  
  258.