OLEObject lole_OpenOfficeCalc, lole_desctop, lole_PropertyValue, lole_pdf
any la_openargs[]
int li_status
string	ls_ErrTitle

lole_OpenOfficeCalc = CREATE OLEObject
lole_desctop = CREATE OLEObject
lole_pdf = CREATE OLEObject

li_status = lole_OpenOfficeCalc.ConnectToNewObject("com.sun.star.ServiceManager")

if li_status<>0 then 
destroy lole_OpenOfficeCalc
	MessageBox(ls_ErrTitle, 'Connect')
return -1
end if

lole_desctop = lole_OpenOfficeCalc.CreateInstance("com.sun.star.frame.Desktop")
//lole_PropertyValue = lole_desctop.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
//lole_PropertyValue.Name = "FilterName"
//lole_PropertyValue.Value = "HTML (StarCalc)"
//la_openargs[1] = lole_PropertyValue
//
lole_desctop.LoadComponentFromURL('file:///C:/1.html', "_blank", 0, la_openargs)
// До этих пор все нормально - документ открылся. Теперь нужно сохранить его в PDF

OLEObject 	lobj_ServiceManager, lobj_Desktop, lobj_Doc, lobj_PropertyValue[]
String ls_start_url = "C:/1.html" // Start file
String ls_new_url = "C:/1.pdf" // Finish file

// Service Manager 
lobj_ServiceManager = CREATE OLEObject 
IF lobj_ServiceManager.ConnectToNewObject("com.sun.star.ServiceManager") < 0 Then 
	MessageBox("Error", "Cound not connect to OpenOffice") 
	RETURN
End IF 

// Create the Desktop 
lobj_Desktop = lobj_ServiceManager.createInstance("com.sun.star.frame.Desktop") 

// Load File
lobj_PropertyValue[1] = lobj_ServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue") 

// Hidden + Sleep
lobj_PropertyValue[1].Name = "Hidden" 
lobj_PropertyValue[1].Value = true

ls_start_url = "file:///" + ls_start_url
lobj_Doc = lobj_Desktop.loadComponentFromURL(ls_start_url, "_blank", 0, lobj_PropertyValue[]) 

Sleep(1) // Without "Sleep" will be blank page in PDF (first page will be blank)

// Save to PDF
lobj_PropertyValue[1].Name = "FilterName" 
lobj_PropertyValue[1].Value = "writer_pdf_Export" 
ls_new_url = "file:///" + ls_new_url
lobj_Doc.storeToURL(ls_new_url, lobj_PropertyValue[]) 

// Close & Destroy
lobj_Doc.dispose() 
lobj_ServiceManager.disconnectobject() 
DESTROY lobj_ServiceManager