'Erzählt uns wieviel Seiten es ingesamt sind
            Job(x).TotalPages = Buffer(c * x + 10)
 
            'Erzählt uns wieviel Seiten davon schon gedruckt wurden
            Job(x).PagesPrinted = Buffer(c * x + 11)
 
            'Submitted
            With Job(x).Submitted
                .wYear = Buffer(c * x + 12) Mod 65536
                .wMonth = Buffer(c * x + 12) \ 65536
                .wDayOfWeek = Buffer(c * x + 13) Mod 65536
                .wDay = Buffer(c * x + 13) \ 65536
                .wHour = Buffer(c * x + 14) Mod 65536
                .wMinute = Buffer(c * x + 14) \ 65536
                .wSecond = Buffer(c * x + 15) Mod 65536
                .wMilliseconds = Buffer(c * x + 15) \ 65536
            End With
        Next x
 
        'Ausgabe
        For x = 0 To UBound(Job)
              List1.AddItem ConvJobToString(Job(x))
        Next x