[Solved] Print merged documents on specific printer via macro

[StefanGT]

Hi there,
I am quite new t macro programming...so I hope to get some code snippets here

The task is as follows:
I need to run LibreOffice in headless mode as part of an automation process. When opening the template file (with a related database) I want to start a macro that prints all merged documents to a specific printer (which is not the default one!) without any user interaction (as LibreOffice runs in headless mode). Can anyone provide me a codesnsippet for the macro?

Thanks in advance!

Regards,
Stefan

[robleyd]

You should download the excellent OpenOffice.org Macros Explained by Andrew Pitonyak; sections 13.14 and 13.15 might provide you with some useful information.

You might also find the object inspection tool MRI useful - see [Tutorial] Introduction into object inspection with MRI for more information.

[StefanGT]

Hi Davaid, I know that document and I managed to print a single merged document on a specific printer. But when I use the "MailMergePrintDocuments"-Command I still get a window to select the documents to print... Within this window there is the correct printer selcted but I still have to click the "Print Documents"-Button... (see attachment)

This is how my code looks like:

Code: Select all

sub PrintAll
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")


rem ---- choose a certain printer -----------------------------------
DIM mPrinterOpts(1) AS NEW com.sun.star.beans.PropertyValue
mPrinterOpts(0).Name = "Name"
mPrinterOpts(0).Value = "DirectPrint"
ThisComponent.Printer = mPrinterOpts()

REM Set printOptions
DIM mPrintOpts(1) AS NEW com.sun.star.beans.PropertyValue
mPrintOpts(0).Name = "CopyCount"
mPrintOpts(0).Value = 1

dispatcher.executeDispatch(document, ".uno:MailMergePrintDocuments", "", 0, mPrintOpts())
end sub

After all documents have been printed I want to close the application. But that's another problem... First I need to get all the documents printed without user interaction as LibreOffie will run in headless mode...

Can anyone help me

[JeJe]

Have you tried CreateUnoService("com.sun.star.text.MailMerge")

https://ask.libreoffice.org/t/can-libre ... ge/16900/4

[StefanGT]

No, I haven't tried but it looks promising. WIll check it tomorrow. The challenge again is to set up a specific printer and print the files to that printer instead saving as a file... Will have a look...

[StefanGT]

Have you tried CreateUnoService("com.sun.star.text.MailMerge")

https://ask.libreoffice.org/t/can-libre ... ge/16900/4

I checked now that link and it worked But there are two questions left:
- before starting the MailMerge I want to count the records of the connected database? How can I do that?
- With "oMailMerge.FileNamePrefix" I can set the filenameprefix from the values of a database column. Can I also combine two coloms here, for example name and surname?

Many thanks in advance