OpenOffice.info

Set objServiceManager = CreateObject("com.sun.star.ServiceManager")
Set objStardesktop = objServiceManager.createinstance("com.sun.star.frame.Desktop")
Set objDoc = objStardesktop.loadComponentfromurl("private:factory/swriter", "_blank", 0, Dummy)
For i = LBound(drucker) To UBound(drucker)
    If drucker(i).Name = "Name" Then
        MsgBox drucker(i).Name & ": " & drucker(i).Value
        Exit Sub
    End If
Next i
End Sub

Du hast bestimmt schon das Dokumentobjekt, das liefert Dir mit .getPrinter() eine PropetyValue-Variable in wo Du nach der Eigenschaft Name suchen mußt um den aktuell für das Dokument verwendeten Drucker auszulesen, hier für ein neu erstelltes Dokument:

[code]Set objServiceManager = CreateObject("com.sun.star.ServiceManager")
Set objStardesktop = objServiceManager.createinstance("com.sun.star.frame.Desktop")
Set objDoc = objStardesktop.loadComponentfromurl("private:factory/swriter", "_blank", 0, Dummy)
For i = LBound(drucker) To UBound(drucker)
If drucker(i).Name = "Name" Then
MsgBox drucker(i).Name & ": " & drucker(i).Value
Exit Sub
End If
Next i
End Sub[/code]



Gruß
Stephan

Hallo, ich wollte von OpenOffice den Drucker eines bestimmten Dokuments auslesen und gegebenenfalls den in Windows definierten Drucker für das Dokument festlegen. Leider weiss ich nichtmal wie ich das oder besser gesagt ein Interface erstelle.(com::sun::star::view -> XPrintable). Kann mir sagen, wie ich das Interface erstelle. Habe mit ".createinstance" schon was versucht, aber leider ohne Erfolg.

MfG Hurby