[Visual Studio 2003] liste d'impression

JobCount:
    ReDim Preserve buffer(0) As Long '\\ Allocate a 1 byte buffer

    
    EnumJobs hPrinter, 0, 99, 1, ByVal 0&, 0, lNeeded, lReturned
    If lNeeded > 0 Then
        DoEvents
        Sleep (2000)
        GoTo JobCount
    End If
    ClosePrinter hPrinter
    EnumJobs