Hallo
ich hätte da mal ne Frage. Ich habe mein Dokument schon mit den entsprechenden Seriendruckfeldern gefüllt.
Gibt es eine Möglichkeit einen Serienbrief automatisiert zu erstellen?
Quasi so, dass ich das mit einem Makro evtl machen könnte, also wenn ich den Serienbrief öfnne und gleichzeitig mit dem Makro und ich dann einen fertigen Serienbrief habe.
Beispielsweise so
"C:\Program Files (x86)\OpenOffice.org 3\program\swriter.exe" "macro://dokumentname/Standard.Module1.serienDruckStarten()" "C:\Dokumentpfad"
oder ein macro das einfach nur die funktion "drucken" startet?
LG
🎄 Helfen Sie noch heute, unser LibreOffice Forum zu erhalten! 🎄
❤️ Nur noch wenige Tage, um das Ziel für 2025 zu erreichen. Vielen lieben Dank! ❤️
>> Das LibreOffice-Forum lebt von Ihnen – und von vielen Experten, die freiwillig ihr Wissen teilen.<<
Ihre Spende hilft, die Community offen, werbefrei (bei Registrierung) und lebendig zu halten. Vielen Dank!
🤗 Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet. 🤗
Sirienbrief
-
michaelf2k
- Beiträge: 2
- Registriert: Mi 20. Mär 2013, 14:26
Re: Sirienbrief
REM ***** BASIC *****
das macro hier startet die drunkfunktion, jedoch überspringt es die Abfrage von OO ob die Felder gefüllt werden sollen
Code: Alles auswählen
Sub drucken
Dim mPrintopts1(), x as Variant
Dim oDocument As Object, oPrinter As Object
oDocument = ThisComponent
'**** spezieller Drucker
'Dim mPrinter(0) As New com.sun.star.beans.PropertyValue
'mPrinter(0).Name="Name"
'mPrinter(0).value="\\NTPQ_TMT-HP4345MFP**" ' name des druckers
'oDocument.Printer = mPrinter()
'****
oDocument.Print(mPrintopts1()) 'Standarddrucker
End Sub-
pmoegenb
An alle, die das LibreOffice-Forum gern nutzen und unterstützen wollen:
Bitte helfen Sie uns mit 7 Euro pro Monat.
Durch Ihren Beitrag tragen Sie dazu bei, unsere laufenden Kosten für die kommenden Monate zu decken.
Unkompliziert per Kreditkarte oder PayPal.
Als ein kleines Dankeschön werden Sie im LO-Forum als SUPPORTER gekennzeichnet.