学VB的大哥大姐们怎么样用一段代码就可以监测到打印机打印的文件信息

[dayfallbird]

'获得打印文件名
' Get the document name
lngResult = lstrcpy(byteBuffer(0), ByVal .pDocument)

strDocument = StrConv(byteBuffer(), vbUnicode)
' Document name has been returned as null terminated-string
strDocument = Left$(strDocument, InStr(strDocument, vbNullChar) - 1)
'获得打印文件的所有者名字
' Get the document's owner name
lngResult = lstrcpy(byteBuffer(0), ByVal .pUserName)
strOwnerName = StrConv(byteBuffer(), vbUnicode)
'文件的所有者名字是归来的同样地无效力的-终止字符串
' Document's owner name has been returned as null-terminated string
strOwnerName = Left$(strOwnerName, InStr(strOwnerName, vbNullChar) - 1)
'翻译状态
' Translate status
strStatus = ""

strStatus = CheckStatus(strStatus, .Status, JOB_STATUS_DELETING, "?删除")
strStatus = CheckStatus(strStatus, .Status, JOB_STATUS_ERROR, "！错误")
strStatus = CheckStatus(strStatus, .Status, JOB_STATUS_OFFLINE, "脱机")
strStatus = CheckStatus(strStatus, .Status, JOB_STATUS_PAPEROUT, "无打印纸")
strStatus = CheckStatus(strStatus, .Status, JOB_STATUS_PAUSED, "中止")
strStatus = CheckStatus(strStatus, .Status, JOB_STATUS_PRINTED, "打印中")
strStatus = CheckStatus(strStatus, .Status, JOB_STATUS_PRINTING, "打印")
strStatus = CheckStatus(strStatus, .Status, JOB_STATUS_SPOOLING, "假脱机")
'表示它在listview

' Show it in listview
'文件名
Set itmX = lvPrintQueue.ListItems.Add(, "JOB_ID_" & .JobId, .Position & "个" & strDocument)
'状态
itmX.SubItems(1) = strStatus
'打印者姓名
itmX.SubItems(2) = strOwnerName
'页
itmX.SubItems(3) = .PagesPrinted & " of " & (.TotalPages + .PagesPrinted)
'文件大小
itmX.SubItems(4) = ？？？？？？？？？？？
'打印时间
itmX.SubItems(5) = ？？？？？？？？？？？
End With
其中的"？？？？？？？？？？？？"，就是我要问的问题？
怎么写，这段代码，急用，先谢谢了