B4J Question .XLS? and .DOC? print to .PDF, Microsoft OLE

[peacemaker]

Hi, All

Is it possible now from B4J Java based app to use Microsoft Office automation ?
I need to automate the printing files to .PDF, now FreeOffice software helps to save any file to .PDF, but all is manually, with pre-formatting to A4 paper format.
Long-long ago i used MS VisualBasic 5.0 for a console app (with command line) that used:

Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation

to open a file in Excel or Word and send to a printer.

Now the task is wider - select A4-paper, margins, choose a printer (PDF-printer) or export to PDF - when Adobe software is installed - such OLE integraton to MS Office is OK.
Any suggestion ?

 

[Erel]

You can read and write office documents with jPOI, however it is not based on Office automation. It directly reads or writes the files.

Printing to PDF is very simple if there is a PDF printer installed. You don't need Office for this.

 

[peacemaker]

Printing to PDF is very simple if there is a PDF printer installed

Any links, Erel ?
Seems, jPOI does not help to print at all ?

 

[Erel]

B4j Print JavaFX8 + 17

Here is a B4j library written in B4j to access the full Printer modules provided with JavaFX8. Full source code is available. At it's simplest, you can print a node using: Dim P As Printer = Printer_Static.GetDefaultPrinter Dim PJ As PrinterJob = PrinterJob_Static.CreatePrinterJob2(P)...

www.b4x.com

Seems, jPOI does not help to print at all ?

No. It has nothing to do with printing.

 

[peacemaker]

But how to send to printer .XLS sheet, or file ?

 

[peacemaker]

Actually, SOLVED, and without app, just by VBscrpt:

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.DisplayAlerts = False
inputFile = WScript.Arguments(0)
objExcel.Workbooks.Open inputFile

objExcel.ActiveSheet.PageSetup.PaperSize = 9    'A4
objExcel.ActiveSheet.PageSetup.Orientation = 1    'portrait
objExcel.ActiveSheet.PageSetup.Zoom = False
objExcel.ActiveSheet.PageSetup.FitToPagesWide = 1
objExcel.ActiveSheet.PageSetup.FitToPagesTall = 10
objExcel.ActiveSheet.PageSetup.LeftMargin = objExcel.CentimetersToPoints(2)
objExcel.ActiveSheet.PageSetup.RightMargin = objExcel.CentimetersToPoints(1)
objExcel.ActiveSheet.PageSetup.TopMargin = objExcel.CentimetersToPoints(1)
objExcel.ActiveSheet.PageSetup.BottomMargin = objExcel.CentimetersToPoints(1)
objExcel.ActiveSheet.PageSetup.CenterHorizontally = True

objExcel.ActiveSheet.PrintOut 1, 1000, 1, false, "Adobe PDF", false, false, , true

objExcel.Quit

Drag & drop .XLS file to this script helps to save .PDF file.