BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das LibreOffice Forum zu erhalten!

❤️ DANKE >><< DANKE ❤️

> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Erhalt und Ausbau 🌱 des LibreOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet. 🤗

Druckerwechsel geht nicht beim Etikettendruck Makro

Alles zur Programmierung im LibreOffice.
Antworten
Medel
Beiträge: 3
Registriert: Sa 31. Mai 2014, 10:37

Druckerwechsel geht nicht beim Etikettendruck Makro

Beitrag von Medel » Sa 31. Mai 2014, 10:57

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
Beiträge: 3
Registriert: Sa 31. Mai 2014, 10:37

Re: Druckerwechsel geht nicht beim Etikettendruck Makro

Beitrag von Medel » Sa 31. Mai 2014, 22:30

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
Beiträge: 12
Registriert: So 28. Nov 2010, 17:13
Wohnort: CH-6467 Schattdorf

Re: Druckerwechsel geht nicht beim Etikettendruck Makro

Beitrag von adler » So 5. Mai 2019, 16:13

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

An alle, die das LibreOffice-Forum nutzen:


Bitte beteiligen Sie sich mit 7 Euro pro Monat und helfen uns bei unserem Budget für das Jahr 2024.
Einfach per Kreditkarte oder PayPal.
Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet.

❤️ Vielen lieben Dank für Ihre Unterstützung ❤️

Antworten