If you face any problem running this, drop a comment using the comment box below. ' change the path below as per your needsĭispatcher.executeDispatch(document, ".uno:ExportDirectToPDF", "", 0, args1()) Run – pdf Contents Complete Macro Sub ExportRangeToPDF()ĭocument = Here is the pdf file that is created with the range of contents for this tutorial: dispatcher.executeDispatch(document, ".uno:ExportDirectToPDF", "", 0, args1()) Running the Macro If you really mean a print page, you have to define a print area. Formatos disponibles Descargue como XLSX, PDF, TXT o lea en línea desde Scribd Marcar por contenido inapropiado Descargar ahora de 26 Universidad Autonoma De Nue Facultad De Contaduria Publica Y Adm EVIDENCIA 2. Now pass this argument to the executeDispatch function as an argument. Hidden sheets are not printed nor exported to pdf. OCellRange = oSheet.getCellRangeByName("A1:I3")ĭim aFilterData(0) as new .PropertyValueĭim args1(1) as new .PropertyValueĪrgs1(0).Value = "file:///home/arindam/" & fileName ' change the path below as per your needs document = ĭispatcher = createUnoService(".DispatchHelper") The in-built Filter property FilterData to be used here. In this example, we need to pass the filename and the Range of LO Sheet, which needed to be printed only in the pdf, nothing else from the active sheet. The types are pre-defined, and when passed they will be processed as what they are supposed to do. Filters are the types and value pairs that can be put in an array and passed to executeDispatch function as an argument. Now, it’s time to put the content inside the pdf. ' change the path below as per your needs Now, create an Frame object and dispatcher object to Uno service .DispatchHelper, which would help to export the pdf via function.Ĭreate an empty file as well, in any path of your own and close the file.
To get the current active selected sheet’s name, use the below code: fileName =
One of our readers asked about how to get the Active sheet name, Or the name of the current Calc sheet selected.
"_ratie_" & ThisComponent.Sheets(0).getCellRangebyName("B5").String & _ Below is a piece of code that does this part: dim fileNameįileName = ThisComponent.Sheets(0).Name & _ This is a free app to convert Ods to Pdf format, also you can save the result to PDF, DOCX, PPTX, XLS, XLSX, XLSM, XLSB, XLT, ET, ODS, CSV, TSV, HTML, JPG. The pdf file includes the sheet name, a value from B5 cell and the date. Import .First, to prepare the pdf file name dynamically based on a specific value.
0 kommentar(er)
