[Solved] Print error using Calc as report

[zeke99]

Since ORB hangs frequently I test other ways to get reports from base. One way is to use calc as report-engine.
There is no problem to open a calc sheet but when I try to print it I get following error:

Basic run-time error
An exception occured
Type: com.sun.star.lang.IllegalArgumentException
Message: cannot coerce argument type during coreflection call!

Tested to ways, neither working:

Code: Select all

Sub TestFunktion (Event as object)

Dim printopts as object
dim dispatcher as object
Dim oHidden(0) As New com.sun.star.beans.PropertyValue
oHidden(0).Name = "Hidden"
oHidden(0).Value = FALSE 
oDBDoc = StarDesktop.loadComponentFromURL("file:///home/prm/Affarssystem/Exempel/TestKalkyl.ods", "_blank", 0, oHidden())

REM First test - not working
'oDBDoc.print(printopts)


REM Second test - not working either
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(oDBDoc, ".uno:PrintDefault", "", 0, Array())

xray oDBDoc
msgbox " "

'oDBDoc.dispose()

end sub

Anyone know how to get the print command working?

[RPG]

Hello

The code is a recorded macro. Look to the next line

Code: Select all

document   = ThisComponent.CurrentController.Frame

Code: Select all

sub Main
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 ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:PrintDefault", "", 0, Array())


end sub

Romke

[B Marcelly]

Hi,
A correct API code:

Code: Select all

Dim printopts(0) As New com.sun.star.beans.PropertyValue
Dim oHidden(0) As New com.sun.star.beans.PropertyValue
oHidden(0).Name = "Hidden"
oHidden(0).Value = FALSE ' or True
oDBDoc = StarDesktop.loadComponentFromURL("file:///home/prm/Affarssystem/Exempel/TestKalkyl.ods", "_blank", 0, oHidden())
printopts(0).Name = "Wait"
printopts(0).Value = True ' necessary if you want to close just after
oDBDoc.print(printopts)
oDBDoc.close(True)

[zeke99]

Sweet! Works like a charm.
It's so damn hard to find info about these options neccesary. Countless hours spent with xray and trial/error.

Thanks a lot Marcelly. Saved me a couple of hours tonight.
Zeke

[Villeroy]

This is how I do it:
The [Print ...] button on a form (just set the Action and URL properties) opens the report spreadsheet which runs a most trivial on-open macro to update all import ranges and pivot tables.

My report spreadsheets contain more than one report sheet. Some of them have auto-filter buttons in the header row. For any user it is very easy to select the right sheet, apply some auto-filter to get a smaller, more relevant report and print the active sheet.

Who needs one-click solutions if things can be controlled so easily?