Michael Dannenhöfer schrieb:
Hallo,
am schnellsten kannst Du abfragen ob der Drucker belegt oder frei ist.
sub main
myDoc=ThisComponent
yProperties=mydoc.getprinter()
oPrinterStatus = FindProperty( myProperties, "IsBusy" )
if oPrinterStatus.Value=false then msgbox "OK"
End Sub
Function FindProperty( aArrayOfProperties, cPropName As String ) As
com.sun.star.beans.PropertyValue
For i = LBound( aArrayOfProperties ) To UBound( aArrayOfProperties )
oProp = aArrayOfProperties(i)
If oProp.Name = cPropName Then
FindProperty() = oProp
Exit Function
EndIf
Next
End Function
mfg
Michael
Klaus Diehl schrieb:
Ist es möglich den Status des Standard-Druckers abzufragen, um zB.
festzustellen, ob der Druck fertig ist oder der Drucker betriebsbereit
ist?
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Hallo Michael,
zunächst erstmal vielen Dank für deine schnelle Antwort. Nach einigem
Experimentieren und Abwandlung Deines Vorschlages, sieht mein Programm
wie folgt aus:
Sub testDrucker
Dim PrintProp As Object
Dim oPrintStat As Object
PrintProp = oBeleg.getprinter()
oPrintStat = FindProp(PrintProp, "IsBusy" )
if oPrintStat.Value = false then msgbox "OK"
End Sub
Function FindProp(aArrayOfProperties, cPropName As String) As
com.sun.star.beans.PropertyValue
Dim oProp as Object
For i = LBound(aArrayOfProperties) To UBound(aArrayOfProperties)
oProp = aArrayOfProperties(i)
If oProp.Name = cPropName Then
FindProp() = oProp
Exit Function
EndIf
Next
MsgBox "nicht ok"
End Function
Mit der Abfrage "IsBusy" scheint es ja zu funktionieren. Mein Problem
ist eigentlich ein anderes. Ich möchte abfragen ob der Drucker vorhanden
ist ("IsReady" gibts nicht), das heißt die Verbindung über die USB
Schnittstelle zum Drucker ok ist. Beim meinem System (Canon Pixma iP2500
unter Ubuntu 7.04) scheint es Initialisierungs-Probleme mit dem OOo 2.2
zu geben. Es kommt immer wieder vor, dass nach dem Hochfahren des
Systems und Start meiner Anwendung in OpenOffice der Drucker nicht
druckt. Ich muß dann den Drucker ausschalten, die OOo Anwendung beenden,
den Drucker wieder einschlaten und dann die Anwendung neu starten.
Manchmal muß ich sogar das ganze Ubuntu neu starten.
Meine Idee war jetzt in mein Basic-Programm beim Start der Anwendung
eine Abfrage einzubauen, die die Verbindung zum Drucker testet und die
eigentliche Anwendung erst frei gibt, wenn der Drucker erkannt wurde.
Frage bekommt man sowas in Basic hin?
Gruß Klaus
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
