VB6からOpenOffice Calcでプリンターを選択するには？

解決

ゆうちん 2010-01-30 00:40:00 No: 143165

VB6からOpenOffice Calcで以下のようなソースで
印刷をしようとしていますが
プリンターの選択ができず
通常使うプリンターに出力されてしまいます。

    Dim args1(0)
    Set args1(0) = objServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
    args1(0).Name = "Printer"
    args1(0).Value = "レーザー"
    CallByName objDocument, "print", VbMethod, args1()

args1(0).Name = "Printer" → "Name"
・・にしてみましたかダメでした。

ゆうちん 2010-02-04 01:41:38 No: 143166

下記のようなソースで解決しました。

Dim dispatcher As Object
Set dispatcher = ServiceManager.CreateInstance("com.sun.star.frame.DispatchHelper")

    Dim args1(0)

    Set args1(0) = ServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
    args1(0).Name = "Printer"
    args1(0).Value = "レーザー"

    Call dispatcher.executeDispatch(Document.CurrentController.Frame, ".uno:Printer", "", 0, args1())