[Win32/VB] DeviceCapabilities probleem

Pagina: 1
Acties:
  • 147 views sinds 30-01-2008
  • Reageer

  • pjonk
  • Registratie: November 2000
  • Laatst online: 29-12-2025
Ik ben op dit moment bezig met een applicatie die via de printerdriver de beschikbare input trays en output bins moet ophalen.

Het ophalen van de input trays via is geen probleem. Dit doe ik via de Windows API functie DeviceCapabilities.
Dat ziet er globaal als volgt uit:

Visual Basic:
1
2
3
4
5
6
7
8
9
10
11
Private Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, ByVal pDefault As Long) As Long
Private Declare Function ClosePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long
Private Declare Function DeviceCapabilities Lib "winspool.drv" Alias "DeviceCapabilitiesA" (ByVal lpDeviceName As String, ByVal lpPort As String, ByVal iIndex As Long, lpOutput As Any, ByVal dev As Long) As Long
Private Const DC_BINS = 6
Private Const DC_BINNAMES = 12

If OpenPrinter(DeviceName, hPrn, 0) <> 0 Then
    ' Beschikbare bins ophalen
    lngNumberOfBins = DeviceCapabilities(DeviceName, PortName, DC_BINS, ByVal vbNullString, 0)
    Call ClosePrinter(hPrn)
End If


Echter nu wil ik de beschikbare output bins ophalen, maar ik kan hier geen constante voor vinden zoals DC_BINS (er is geen DC_OUTPUT_BINS of iets dergelijks).

Ook een zoekactie op Google leverde helaas niets op.

Iemand hier ervaring mee of enig idee waar ik dit zou kunnen vinden?

It’s nice to be important but it’s more important to be nice