Ask Your Question

Exported PDF 250% bigger [closed]

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

Jos oet Gebrook gravatar image

updated 2015-10-24 02:28:53 +0100

Alex Kemp gravatar image

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("")

  rem #----------------------------------------------------------------------
  dim args1(0) as new
  args1(0).Name = "ToPoint"
  args1(0).Value = "$A$1:$G$50"

  dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

  rem #----------------------------------------------------------------------
  dim args2(2) as new
  Dim Cel         As Object
  Dim Naam        As Object
  Dim Werkblad    As Object
  Dim Werkmap     As Object
  Dim Path        As Object
  Dim Jaar        As Object

  Cel=Werkblad.getCellByposition(6,10)  Rem# G11
  Jaar=Werkblad.getCellByposition(12,0) Rem# M1
  Naam=Werkblad.getCellByposition(2,9)  Rem# C10

  dim completefilenaam, Nieuwenaam
  Rem#print completefilenaam

  if not globalscope.BasicLibraries.islibraryloaded("Tools") then
    Rem# Laad nu de library
  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("IsSkipEmptyPages",0,true,com.sun ...
edit retag flag offensive reopen merge delete

Closed for the following reason question is not relevant or outdated by Alex Kemp
close date 2015-10-24 02:29:24.531694

4 Answers

Sort by » oldest newest most voted

answered 2013-02-25 05:56:36 +0100

qubit gravatar image

Hi @Jos oet Gebrook,

If you're still having a problem here, if none of the other Answers on this bug are providing a solution for you, and if installing the latest release doesn't seem to fix this problem...

... please file a bug and provide a list of steps that can reproduce it. The QA team will be happy to help you track down this issue!

Please post a link to any bugs you file in a comment below using the format "fdo#123456".


edit flag offensive delete link more

answered 2012-04-26 14:39:56 +0100

vojo gravatar image

since LO export to PDF has the option to export to allow both LO editing and PDF viewing, it might be that the way your script is tasking LO, it is assume this combo format. For me, when combo turned on, PDF is 300% bigger than when off

edit flag offensive delete link more

answered 2012-04-26 02:40:45 +0100

mahfiaz gravatar image

updated 2012-05-03 21:34:08 +0100

Hey, could you provide example files as well? Then maybe someone can take a look.

edit flag offensive delete link more

answered 2012-04-26 02:50:14 +0100

m.a.riosv gravatar image

Or verify if default values to export in Menu/File/Export to PDF are the same.

edit flag offensive delete link more

Question Tools

1 follower


Asked: 2012-04-19 12:32:13 +0100

Seen: 682 times

Last updated: Feb 25 '13