Ler o spool da impressora

[Rodrigo Defende 0]

Seguinte:Tenho um arquivo que quando eu mando pra impressora ele gera 5 paginas para ser impresso. Eu queria via VB indicar na tela do meu sistema que a pagina 1 esta sendo impressa faltando 4 - a pagina 2 esta sendo impressa faltando 3 e assim vai....Será que tem jeito de se fazer isso???? :blink:

[Rodrigo Defende 0]

Para quem interessar esta ai a solução do problema:

 

Private Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, pDefault As Any) As LongPrivate Declare Function ClosePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As LongPrivate 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 Any, ByVal cdBuf As Long, pcbNeeded As Long, pcReturned As Long) As LongPrivate Sub Command1_Click()    Dim hPrinter As Long, lNeeded As Long, lReturned As Long    Dim lJobCount As Long    OpenPrinter Printer.DeviceName, hPrinter, ByVal 0&    EnumJobs hPrinter, 0, 99, 1, ByVal 0&, 0, lNeeded, lReturned    If lNeeded > 0 Then        ReDim byteJobsBuffer(lNeeded - 1) As Byte        EnumJobs hPrinter, 0, 99, 1, byteJobsBuffer(0), lNeeded, lNeeded, lReturned        If lReturned > 0 Then            lJobCount = lReturned        Else            lJobCount = 0        End If    Else        lJobCount = 0    End If    ClosePrinter hPrinter    MsgBox "Arquivos a serem impressos: " + CStr(lJobCount), vbInformationEnd Sub

Valeu http://forum.imasters.com.br/public/style_emoticons/default/joia.gif http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif