thanks a lot for reply. i have tried, but still got error. do you please to make libreoffice calc macro codes, to print, export pdf, send to email or send to whatsapp? for example like this… because i have googling, but not found yet. or make student report. thanks

Looks like your fileName is not being created correctly; probably have invalid character in file name.

Can you add the following statement in the line 63 and share a screenshot of the output.

msgbox fileName

This line is incorrect.

oCellRange = oSheet.getCellRangeByName(“$A$1:$CJ$63”)

You need to remove the dollar sign. Replace the above line with below and then try to run.

oCellRange = oSheet.getCellRangeByName(“A1:CJ63”)

No with worksheet calc contents

This my macro,

Rem Attribute VBA_ModuleType=VBAModule
Rem Option VBASupport 1

Sub GUARDAR_DATOS()
‘
‘ GUARDAR_DATOS Macro

    dim document as object
  dim dispatcher as object
  dim fileName
  fileName = ThisComponent.Sheets(0).Name & _
   “_Litoman1_” & ThisComponent.Sheets(0).getCellRangebyName(“B5”).String & _
   “_” & Replace(Date,”/”,”-“) & “.pdf”
  document = ThisComponent.CurrentController.Frame
  dispatcher = createUnoService(“com.sun.star.frame.DispatchHelper”)
  
  oSheet = ThisComponent.CurrentController.getActiveSheet()
  oCellRange = oSheet.getCellRangeByName(“$A$1:$CJ$63”)
  
  dim aFilterData(0) as new com.sun.star.beans.PropertyValue
  aFilterData(0).Name = “Selection”
  aFilterData(0).Value = oCellRange
 
  ‘ change the path below as per your needs
  path =”C:\Users\hcarrillo\Documents\” & fileName
  Open path For Append As #1
  Close #1
 
  dim args1(1) as new com.sun.star.beans.PropertyValue
  args1(0).Name = “URL”
  args1(0).Value = “C:\Users\hcarrillo\Documents\” & fileName ‘ change the path below as per your needs
  
  args1(1).Name = “FilterData”
  args1(1).Value = aFilterData()
 
  dispatcher.executeDispatch(document, “.uno:ExportDirectToPDF”, “”, 0, args1())
End Sub

And report

Error general de Entrada Salida

Hi Arindam,

No sr, I want to create a PDF file with a contents range cells of sheet, but only create file empty, this macro must be running in windows machines.

Thanks

You want to create a PDF with 0 bytes using macro?

Need a little help

I use this macro in Win10 but not write into file only create it with 0 bytes

Thanks,

First of all, the macro is very helpful, thanks!

Two quick questions

1) what is the propose of

path =”file:///home/arindam/” & fileName
Open path For Append As #1
Close #1

I can run the macro without the above statements

2) can we export the sheet content and append it to a PDF file (not overwrite it)
As I need a macro to export a sheet to a PDF, updated the sheet content and then export the updated sheet again to the same PDF as page 2.

Thanks.

Jacky

The pdf would be generated with exactly what size of columns/rows you have in Calc. If you want to change the column width you can use below code. Place it somewhere before the pdf generation.

Sub col_chg()
oDoc = ThisComponent
oSheet = ThisComponent.getCurrentController.getActiveSheet
oColumn = oSheet.getColumns.getByIndex( 1 ) ‘ col B
oColumn.Width = 2.5 * 2540
End Sub

Thanks much for this macro. Very helpful.

Now is there a way to set the margins for the PDF and also the cell width for each column I am printing.

I am printing 5 columns and I would like it take up all of the page at .5″ margins. I have specific sizes I have calculated for my coumns by placing them in a Writer doc by DDE so i know exactly how I want it to look.

I guess the other option is to just place it in a Writer doc and accordingly align margins as I am doing now.

Please let me know if you get a chance.

Thank you again.

This was very helpful.

Mono

Great!

Never Mind, I found the error.

oObj2.IsLandscape = True
oObj2.Width = 29700
oObj2.Height = 21000

Try all of these to see if it works.
a) Make sure you have write permission to the folder where you are creating the file. The easiest way to do is to go to the path via explorer and create an empty text file and save.

b) Change below two lines in code where the path URI is present for the file as below. “test” is the sample folder name I have used.

path =”c:test” & fileName

args1(0).Value = “file:///c:/test/” & fileName

Try and let me know.

Thank you for your answer, but program says: “Fault input/output”.

This macro is specifically designed for LibreOffice Calc spreadsheet.

I guess you are running LibreOffice under Windows. So try using the basic path system as below and see if it works:

path =”c:anyfolder” & fileName