Exported PDF 250% bigger

asked 2012-04-19 12:32:13 +0200

Jos oet Gebrook
1 ● 1

updated 2013-01-26 23:18:44 +0200

qubit
5721 ● 3 ● 48 ● 41

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