Ciao... è da parecchio che cerco un modo semplice ma completo per creare dei documenti pdf a partire da una pagina html. Ho letto in giro dei vari fpdf o altre soluzioni a pagamento ma non rispondono alle mie esigenze.
Continuando la mia ricerca ho letto che è possibile creare pdf tramite openoffice partendo da un file rtf, cosa che potrei creare tramite codice asp.
Ho quindi installato OpenOffice sul mio Windows Server 2003 e configurato accessi e permessi tramite DCOMCNFG.

Vi riporto il codice che ho trovato ma che ancora non riesco ad utilizzare. Non mi da un errore specifico ma sembra che lo script vada in loop.
Qualcuno saprebbe aiutarmi o suggerirmi un'altra soluzione?

Grazie...

<%
response.buffer=false
path = Server.MapPath(".")

token = "ciao"

Function MakePropertyValue(cName, uValue)
Dim oStruct

Set oStruct = objServiceManager.Bridge_GetStruct("com.sun.star.b eans.PropertyValue")

oStruct.Name = cName
oStruct.Value = uValue
Set MakePropertyValue = oStruct
End Function

strfname= path & "\output\" & token & ".rtf"

'msgbox(StrFname)
'change the path to openoffice url format
StrFname = Replace(StrFname, ":" , "|")
StrFname = Replace(StrFname, "\" , "/")
StrFname = "file:///" & StrFname

' main
Dim objServiceManager
Dim objDesktop
Dim args(0)
Dim cURL
Dim oDoc

Set objServiceManager= CreateObject("com.sun.star.ServiceManager")
Set Stardesktop= objServiceManager.createInstance("com.sun.star.fra me.Desktop")

cURL = StrFname

'Set args(0) = MakePropertyValue("Hidden", False)
Set args(0) = MakePropertyValue("Hidden", True)
Set oDoc = StarDesktop.loadComponentFromURL( cURL, "_blank", 0, args )

'cURL = Left(StrFname, len(StrFname)-4) & ".doc"
'Set args(0) = MakePropertyValue( "FilterName", "MS Word 97" )

cURL = Left(StrFname, len(StrFname)-4) & ".pdf"
Set args(0) = MakePropertyValue( "FilterName", "writer_pdf_Export" )

call oDoc.storeToURL( cURL, args )
oDoc.close( True )

Set oDoc = nothing
Set Stardesktop = nothing
Set objServiceManager = nothing


%>