I have a Calc-file to make bills. The bill has te size of an A4 and in 3.4.4 the filesize is between 44 kB and 49 kB.
This morning I installed 3.5.2. Since then the bills have an filesize between 115kB and 125 kB.
I use a self made macro, so I’m sure I didn’t do anything in another way.
Does anybody know the reason of this bigger filesize?
For now, I downgraded LibreOffice back to 3.4.4.
The script:
sub export_pdf
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 #----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$A$1:$G$50"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
rem #----------------------------------------------------------------------
dim args2(2) as new com.sun.star.beans.PropertyValue
Dim Cel As Object
Dim Naam As Object
Dim Werkblad As Object
Dim Werkmap As Object
Dim Path As Object
Dim Jaar As Object
Werkmap=ThisComponent
Werkblad=Werkmap.Sheets.getByName("Factuur")
Cel=Werkblad.getCellByposition(6,10) Rem# G11
Jaar=Werkblad.getCellByposition(12,0) Rem# M1
Naam=Werkblad.getCellByposition(2,9) Rem# C10
dim completefilenaam, Nieuwenaam
completefilenaam=thiscomponent.url
Rem#print completefilenaam
if not globalscope.BasicLibraries.islibraryloaded("Tools") then
Rem# Laad nu de library
globalscope.BasicLibraries.loadlibrary("Tools")
end if
select case GetGUIType
case 1 : Separator="/" Rem# Windows
case 4 : Separator="/" Rem# Unix
case else print "onbekend"
end select
args2(0).Name = "URL"
args2(0).Value = tools.DirectoryNameOutOfPath(completefilenaam,Separator) &
"/facturen/"& Jaar.getString() & Separator &
Cel.getString()& "_" & Naam.getString() & ".pdf"
args2(1).Name = "FilterName"
args2(1).Value = "calc_pdf_Export"
args2(2).Name = "FilterData"
args2(2).Value = Array(
Array("UseLosslessCompression",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),
Array("Quality",0,90,com.sun.star.beans.PropertyState.DIRECT_VALUE),
Array("ReduceImageResolution",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),
Array("MaxImageResolution",0,300,com.sun.star.beans.PropertyState.DIRECT_VALUE),
Array("UseTaggedPDF",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),
Array("SelectPdfVersion",0,0,com.sun.star.beans.PropertyState.DIRECT_VALUE),
Array("ExportNotes",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),
Array("ExportBookmarks",0,true,com.sun.star.beans.PropertyState.DIRECT_VALUE),
Array("OpenBookmarkLevels",0,-1,com.sun.star.beans.PropertyState.DIRECT_VALUE),
Array("UseTransitionEffects",0,true,com.sun.star.beans.PropertyState.DIRECT_VALUE),
Array("IsSkipEmptyPages",0,true,com.sun.star.beans.PropertyState.DIRECT_VALUE),
Array("IsAddStream",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),
Array("FormsType",0,0,com.sun.star.beans.PropertyState.DIRECT_VALUE),
Array("ExportFormFields",0,true,com.sun.star.beans.PropertyState.DIRECT_VALUE),
Array("HideViewerToolbar",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),
Array("HideViewerMenubar",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),
Array("HideViewerWindowControls",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),
Array("ResizeWindowToInitialPage",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),
Array("CenterWindow",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),
Array("OpenInFullScreenMode",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),
Array("DisplayPDFDocumentTitle",0,true,com.sun.star.beans.PropertyState.DIRECT_VALUE),
Array("InitialView",0,0,com.sun.star.beans.PropertyState.DIRECT_VALUE),
Array("Magnification",0,0,com.sun.star.beans.PropertyState.DIRECT_VALUE),
Array("Zoom",0,100,com.sun.star.beans.PropertyState.DIRECT_VALUE),
Array("PageLayout",0,0,com.sun.star.beans.PropertyState.DIRECT_VALUE),
Array("FirstPageOnLeft",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),
Array("InitialPage",0,1,com.sun.star.beans.PropertyState.DIRECT_VALUE),
Array("Printing",0,2,com.sun.star.beans.PropertyState.DIRECT_VALUE),
Array("Changes",0,4,com.sun.star.beans.PropertyState.DIRECT_VALUE),
Array("EnableCopyingOfContent",0,true,com.sun.star.beans.PropertyState.DIRECT_VALUE),
Array("EnableTextAccessForAccessibilityTools",0,true,com.sun.star.beans.PropertyState.DIRECT_VALUE),
Array("ExportLinksRelativeFsys",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),
Array("PDFViewSelection",0,0,com.sun.star.beans.PropertyState.DIRECT_VALUE),
Array("ConvertOOoTargetToPDFTarget",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),
Array("ExportBookmarksToPDFDestination",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),
Array("_OkButtonString",0,"",com.sun.star.beans.PropertyState.DIRECT_VALUE),Array("EncryptFile",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),
Array("DocumentOpenPassword",0,"",com.sun.star.beans.PropertyState.DIRECT_VALUE),
Array("RestrictPermissions",0,false,com.sun.star.beans.PropertyState.DIRECT_VALUE),
Array("PermissionPassword",0,"",com.sun.star.beans.PropertyState.DIRECT_VALUE),
Array("Selection",0,,com.sun.star.beans.PropertyState.DIRECT_VALUE)
)
dispatcher.executeDispatch(document, ".uno:DefinePrintArea", "", 0, args1())
dispatcher.executeDispatch(document, ".uno:ExportToPDF", "", 0, args2())
rem #----------------------------------------------------------------------
dim args3(3) as new com.sun.star.beans.PropertyValue
args3(0).Name = "ToPoint"
args3(0).Value = "$I$7"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args3())
end sub