Ejemplos usando el Api de windows para Visual basic

220 - Listar los trabajos pendientes de impresión

Ejemplo de la función del Api EnumJobs para listar en un control ListView los trabajos pendientes de impresión

El ejemplo tiene un control ComboBox en el cual se listan las impresoras que hay en el sistema. Al seleccionar una, se listan los trabajos pendientes en un control Listview, visualizando el número o Id del trabajo , el nombre de usuario al que pertenece, y el nombre del mismo

Ejemplo :

Nota: A la función EnumerarTrabajos, que es la que lista los trabajos pendientes en el LV, se le debe pasar como parámetro el nombre de la impresora

Controles

Un control ComboBox
Un control ListView

Código fuente en el formulario

Option Explicit ' Declaraciones del api Private Declare Function EnumJobs Lib "winspool.drv" Alias "EnumJobsA" ( _ ByVal HPrinter As Long, _ ByVal FirstJob As Long, _ ByVal NoJobs As Long, _ ByVal Level As Long, _ pJob As Long, _ ByVal cdBuf As Long, _ pcbNeeded As Long, _ pcReturned As Long) As Long ' Estructura que requiere la función del api OpenPrinter Private Type PRINTER_DEFAULTS pDatatype As String pDevMode As Long DesiredAccess As Long End Type Private Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" ( _ ByVal pPrinterName As String, _ phPrinter As Long, _ pDefault As PRINTER_DEFAULTS) As Long Private Declare Function ClosePrinter Lib "winspool.drv" ( _ ByVal HPrinter As Long) As Long Private Declare Function IsBadStringPtrByLong Lib "kernel32" Alias "IsBadStringPtrA" ( _ ByVal lpsz As Long, _ ByVal ucchMax As Long) As Long Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _ Destination As Any, _ Source As Any, _ ByVal Length As Long) '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' función que recibe el nombre de la impresora '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Sub Enumerar_Trabajos(ByVal PrinterName As String) Dim HPrinter As Long ' handle a la impresora Dim ret As Long ' valor de retorno de OpenPrinter Dim TPD As PRINTER_DEFAULTS Dim pcBytesRequired As Long Dim nJobs As Long ' cantidad de trabajos pendientes Dim pBuff() As Long Dim i As Long Dim pJobOffset As Long ' Abre la impresora indicada y devuelve el Handle de la misma en > HPrinter ret = OpenPrinter(PrinterName, HPrinter, TPD) ' si la función retorna un 0 es por que no hay trabajos pendientes a imprimir If ret <> 0 Then ListView1.ListItems.Clear If HPrinter <> 0 Then '\\ Get size of buffer required to hold printer jobs info ReDim Preserve pBuff(0) As Long ret = EnumJobs(HPrinter, 0, 255, 1, pBuff(0), _ UBound(pBuff) * 4, pcBytesRequired, nJobs) If pcBytesRequired > 0 Then ReDim Preserve pBuff(0 To (pcBytesRequired / 4) + 3) As Long ret = EnumJobs(HPrinter, 0, 255, 1, pBuff(0), _ UBound(pBuff) * 4, pcBytesRequired, nJobs) End If ' En nJobs se obtienen la cantidad de trabajos que hay pendientes '.. si es mayor a 0 If nJobs > 0 Then ' recorre los trabajos For i = 0 To (nJobs - 1) ' los agrega al listview With ListView1.ListItems pJobOffset = i * 16 ' Id de trabajo .Add , "JOB" & i, pBuff(pJobOffset) ' nombre de usuario de este trabajo .Item(.Count).SubItems(1) = StringFromPointer(pBuff(pJobOffset + 3), 1024) ' El Nombre del trabajo .Item(.Count).SubItems(2) = StringFromPointer(pBuff(pJobOffset + 4), 1024) End With Next End If 'Cierra ret = ClosePrinter(HPrinter) End If End If End Sub Private Function StringFromPointer(lpString As Long, _ lMaxlength As Long) As String Dim sRet As String Dim ret As Long If lpString = 0 Then StringFromPointer = "" Exit Function End If If Not IsBadStringPtrByLong(lpString, lMaxlength) Then '\\ Set aside space to copy string to sRet = String$(lMaxlength, 0) CopyMemory ByVal sRet, ByVal lpString, ByVal Len(sRet) If InStr(sRet, Chr$(0)) > 0 Then sRet = Left$(sRet, InStr(sRet, Chr$(0)) - 1) End If End If StringFromPointer = sRet End Function Private Sub Combo1_Click() Call Enumerar_Trabajos(Combo1.Text) End Sub Private Sub Form_Load() Dim Impresora As Printer ListView1.View = lvwReport ' agrega los encabezados de columna al ListView With ListView1.ColumnHeaders .Clear .Add , , "Id de trabajo", 1440 .Add , , "Usuario", 1440 .Add , , "Nombre del trabajo", 1440 End With Combo1.Clear ' recorre las impresoras del sistema y las agrega al combobox For Each Impresora In Printers Combo1.AddItem Impresora.DeviceName Next Combo1.Text = Printer.DeviceName Me.Caption = "Ver trabajos pendientes de impresión" End Sub

Buscar en Recursos vb