Power Builder - Imprimir desde Word

Saludos...

Conseguí este código hace un tiempo (no recuerdo exactamente donde) para imprimir documentos de word en PB (uso PB 6.5 y word 2003) y me dá este error:

Cannot convert oleobject in Any variable to integer at line 8...

El messagebox "1" me da el valor 0, por lo tanto esta creando el objeto ole y lo asocia al word pero en la línea del open dá error...

oleObject ole_1
integer sino
ole_1 = CREATE OLEObject
sino=ole_1.ConnectToNewObject("word.application")

MessageBox("1...",string(sino))
// linea del error..
sino=ole_1.documents.open("c:\profile3.doc")
//
MessageBox("2...",string(sino))

ole_1.activedocument.PrintOut(FALSE)
ole_1.activedocument.PrintOut()
ole_1.activedocument.close(0)
ole_1.quit()
ole_1.disconnectObject()
DESTROY ole_1

Si alguien sabe el porqué o tiene código diferente para imprimir desde word y funciona se lo agradezco.

L.T.

/*Aqui crea la conexion*/

OLEObject contrato
integer result, n
string version

contrato = CREATE oleObject
result = contrato.ConnectToNewObject("word.application.8")

If result <> 0 Then
DESTROY contrato
result = contrato.ConnectToNewObject("word.application")

End IF

IF result <> 0 THEN
DESTROY contrato
MessageBox("OLE Error", &
"Unable to connect to Microsoft Word. " &
+ "Code: " &
+ String(result))
SetPointer(Arrow!)
RETURN
END IF

/*Asigna el archivo de word*/
contrato.documents.open("C:\Documents and Settings\" + gv_mm_nombre_user_terminal_server + "\contrato.doc")

contrato.Visible=FALSE /*Para que se ejecute en segundo plano*/
version = contrato.Application.Version

/*En el archivo de word crear marcadores*/
contrato.Selection.GoTo(-1,0,0,"MARCADOR")
contrato.Selection.typetext(VALOR QUE SE ASIGNA AL MARCADOR)

/*Una vez asignado los valores a los marcadores se imprime el documento
y se elimina la variable OLE*/

contrato.Application.printout(0)
contrato.quit(0)
contrato.DisconnectObject()
DESTROY contrato

Espero te sirva, yo lo tengo funcionando

Saludos...

Recibo al igual que con la versión anterior que describí el mismo mensaje...

Error: Error calling external object function printout at line...