Druckerwechsel geht nicht beim Etikettendruck Makro

[Medel]

Hallo,

ich habe ein Makro erstellt um über MailMerge nach Filterung bestimmter Datensätze Etiketten zu bedrucken. Leider wird immer nur auf dem Standard Drucker geduckt. Die Einstellung im Makro werden nicht beachtet.
hier mein Makro:

Code: Alles auswählen

SUB AutoDruck
    Dim MyProps() as Object
    Dim oMailMerge as Object

    id = thisComponent.drawpage.forms.getByName("Formular").getByName("Lfd_Nr").getCurrentValue

    oMailMerge = createunoservice("com.sun.star.text.MailMerge")
    oMailMerge.DataSourceName = "Reserve"
    oMailMerge.DocumentURL = ConvertToUrl("D:\APPROACH\test.ott")
    oMailMerge.CommandType = 0
    oMailMerge.Command = "REServe"
    oMailMerge.Filter = "Reserve.LFD_NR = " & id 'filter für aktuellen Datensatz
    oMailMerge.OutputType = 1
    oMailMerge.SinglePrintJobs = False
   '*****************************************************************
    'Druckereinstellungen
    Dim myPrinter(0) as new com.sun.star.beans.PropertyValue
    myPrinter(0).Name = "Name"
    myPrinter(0).Value = "canon"
    oMailMerge.Model.setPrinter(myPrinter)
    '*****************************************************************
    oMailMerge.execute(MyProps())
END SUB

wenn ich einen Beobachter setze auf "oMailMerge" ist der geänderte Drucker eingetragen unter Model -> Printer -> Printer(0)
Auch ein geänderter Drucker in der Vorlage wird nicht benutzt.

Ich habe Libre Office 4.2.4.2 installiert unter Windows 7 64 Bit

Gruß
Medel

[Medel]

Hallo,

ich vermute dass es sich um einen Fehler handelt der noch aus OpenOffice stammt. Ich habe folgenden Eintrag im openoffice Bugzilla gefunden:
https://issues.apache.org/ooo/show_bug.cgi?id=122844

Gruß

Medel

[adler]

Hallo,

Ich habe das gleiche Problem und es funktioniert nach 5 Jahre und der Version 6.0.7 immer noch nicht!

Oder gibt es in der Zwischenzeit eine andere Lösung?

Freundliche Grüsse
Heinz