PDFCreator en modo "silencioso"

[Xevi]

Estoy tratando de hacer andar PDFCreator en modo que no sea visible e imposible de interactuar. Recuerdo que antes en versiones hasta la 0.9.9 se podia mediante un script, parametrizar TODO, nombre documento, carpeta destino y que no se mostrara la ventana de PDFCreator.

Ahora soy incapaz de ponerlo a andar de esta forma.

He mirado por el foro, pero los mensajes hacen mención a versiones de PDFCreator muy antiguas, y con todo y con eso, miro de utilizarlo via ActiveX, pero no me encuentra el ActiveX,

TRY
oPC := CreateObject( "PDFCreator.clsPDFCreator" )//"Pdfcreator.Application" )
CATCH
MsgStop("No Pdf Creator.", "No se puede seguir")
END

y eso que tengo la impresora bien instalada y funcionando...

Alguna ayudita???

Gracias.

[cnavarro]

Intenta asi

Code: Select all  Expand view

? oPC := CreateObject( "PDFCreator.PDFCreatorObj" )
 

[Xevi]

Cristóbal.

Así és!!!

No me da error y me encuentra el ActiveX.
Pero...

Code: Select all  Expand view

TRY
oPDF := CreateObject( "PDFCreator.PDFCreatorObj" )
CATCH
MsgStop("No Pdf Creator.", "No se puede seguir")
END
XBrowse( oPDF )
 

Me muestra 3 datos...
cClassname | PDFCreator.PDFCreatorObj
hObj | 0xA5FACC
oLevalue | <protected>

No obtengo ningún dato que necesitaria para poder "ocultar" la aplicación, o la ruta destino, o el nombre fichero...

No se.

Gracias por tu tiempo.

[cnavarro]

Usa el ejemplo de samples olebrow.prg y busca ese activeX, pulsa doble click a ver qué te sale

[Xevi]

Dos Objetos PDFCreator

PDFCreator.PDFCreatorObj...

STDCALL dispatch PROPERTYGET PTR GetPDFCreatorPrinters()
STDCALL dispatch PROPERTYGET VARIANT_BOOL IsInstanceRunning()
STDCALL dispatch FUNC void PrintFile( [in] BSTR )
STDCALL dispatch FUNC void AddFileToQueue( [in] BSTR )
STDCALL dispatch FUNC void PrintFileSwitchingPrinters( [in] BSTR, [in] VARIANT_BOOL )



PDFCreator.JobQueue...

STDCALL dispatch FUNC void Initialize()
STDCALL dispatch FUNC VARIANT_BOOL WaitForJob( [in] int )
STDCALL dispatch FUNC VARIANT_BOOL WaitForJobs( [in] int, [in] int )
STDCALL dispatch PROPERTYGET int Count()
STDCALL dispatch PROPERTYGET PTR NextJob()
STDCALL dispatch FUNC PTR GetJobByIndex( [in] int )
STDCALL dispatch FUNC void MergeJobs( [in] PTR, [in] PTR )
STDCALL dispatch FUNC void MergeAllJobs()
STDCALL dispatch FUNC void Clear()
STDCALL dispatch FUNC void DeleteJob( [in] int )
STDCALL dispatch FUNC void ReleaseCom()


Y un tercer Objeto...
PDFCreator.Shell
Que me muestra el mensaje "Can't create the object"

[Xevi]

Lo único que he podido hacer rular...

Code: Select all  Expand view

TRY
oPDF := CreateObject( "PDFCreator.PDFCreatorObj" )
CATCH
MsgStop("No Pdf Creator.", "No se puede seguir")
END
xbrowse( oPDF:IsInstanceRunning() )
 

Saber si está o no "corriendo" la aplicación PDFCreator !!!

Nada más.

[cnavarro]

Si esos son los métodos que te muestra, es lo que ofrecen ahora en su activex. Poco más se puede hacer utilizando el activex