Interface in VB6 erstellen

[Hurby]

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

[Stephan]

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