OpenOffice.info

Verfasst: **Do, 05.10.2006 13:41**

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:

:view -> XPrintable). Kann mir sagen, wie ich das Interface erstelle. Habe mit ".createinstance" schon was versucht, aber leider ohne Erfolg.

MfG Hurby

Verfasst: **Fr, 06.10.2006 00:49**

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: Alles auswählen

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

Gruß
Stephan

OpenOffice.info

Interface in VB6 erstellen

Interface in VB6 erstellen