Outlook - VBA - Abfrage Status

Hallo Christian,

erst einmal vielen Dank für deine Bemühungen. Ich habe deinen Vorschlag entsprechend für NET bearbeitet. Den neuen Code siehst du nachfolgend.

Public Function PrintOutOK() As Boolean

'13.08.14******************************PrintOutOK

Dim Result As Boolean

Dim strComputer As String = "."

Dim objWMIService = GetObject("winmgmts:" &

"{impersonationLevel=impersonate}!\\"
&

strComputer & "\root\cimv2")

Dim colPrintJobs As Object

Dim objJob As Object

Try

'***Dieser Aufruf verursacht eine Fehlermeldung

'colPrintJobs = objWMIService.ExecQuery

'("Select * from Win32_PrintJob", "WQL",

'wbemFlagReturnImmediately + wbemFlagForwardOnly)

'***daher die Änderung in

colPrintJobs = objWMIService.ExecQuery("Select * from Win32_PrintJob")

'****************************

For Each objJob In colPrintJobs

Dim stA As String = objJob.JobID

Dim stB As String = objJob.DriverName

Dim stC As String = objJob.Document

Next objJob

Result = True

Catch ex As Exception

ta.ENMsg(ex.ToString & ERRR & "'clsPrinterSpooler PrintOutOK'")

Finally

objJob = Nothing

colPrintJobs = Nothing

objWMIService = Nothing

End Try

Return Result

End Function

Wie du siehst musste ich den Aufruf "colPrintJobs =" etwas verändern. das sind die kleinen Unterschiede zwischen VBA und NET.

Beste Grüße

Werner

Hallo Werner,

ich schaue mal in meinem Makro-Archiv nach einem Beispiel.

Hallo Christian,

deinen Gedanken habe ich versucht umzusetzen. Die Hilfe von MS hat mich aber leider nicht weitergebracht. Ich werde mich wohl mit der Lösung einer Warteschleife begnügen müssen bis die Daten im Druckerspooler vorhanden sind.

Dein Hinweis auf das Handbuch lässt mich vermuten, dass du ein Autor von diesem Buch bist. Ich habe die 2. Auflage, in der aber über dieses Thema auch nichts zu finden ist.

Besten Dank

Werner

Hallo Werner,

ich glaube ich werde mich doch mal mit NET beschäftigen ;-)

Wenn Du ein fertiges Beispiel mit Timer-API zur Analyse benötigst, melde dich einfach bei mir.

Hallo Christian,

selbstverständlich war die Konstante deklariert. Ich habe sie bei meiner Funktion gelöscht weil der Aufruf mit dieser Konstanten nicht funktioniert hat. Mit der Auswertung der Informationen bin ich aus Zeitgründen noch nicht weiter gekommen. Ich denke aber,
dass das keine Probleme mehr bereitet.

best regards

Werner