Power Builder - Exportar cabecera de DW a WORD

   
Vista:

Exportar cabecera de DW a WORD

Publicado por José (12 intervenciones) el 25/05/2011 19:23:31
Hola a todos, necesito una ayuda...

Tengo un DW que estoy exportandolo a Word, lo hace bien, pero lo que no me exporta son los encabezados, ¿Como podría pasar los encabezados de las columnas.
estoy usando el siguiente código:

OLEObject word
integer li_connect
String ls_cadena
Long ll_fila, ll_columna, ll_num_filas, ll_num_columnas

word = CREATE OleObject

li_connect = word.ConnectToNewObject("word.application")
if li_connect <> 0 then
MessageBox("Error de Conexión", "No se puedo realizar la conexión con Word." )
destroy word
return
end if

//Una vez realizada la connexión abrimos el documento
word.documents.open("C:\plantilla_word1.doc")
word.Visible=false // para no ver el documento

// Definir el número de filas y columnas
ll_num_filas = dw_crdndor.RowCount()
ll_num_columnas = 2

If ll_num_filas > 0 Then
// Crear la tabla
word.ActiveDocument.Tables.Add (word.Selection.Range,ll_num_filas,ll_num_columnas)

For ll_fila = 1 To ll_num_filas
For ll_columna = 1 to ll_num_columnas
Choose Case ll_columna
Case 1
ls_cadena = dw_crdndor.GetItemString(ll_fila,"campo_1")
Case 2
ls_cadena = dw_crdndor.GetItemString(ll_fila,"campo_2")
End Choose
word.Selection.typetext(ls_cadena)

If ll_columna <= ll_num_columnas Then
If ll_fila <= ll_num_filas then
If ll_columna = ll_num_columnas and ll_fila = ll_num_filas then
else
word.Selection.MoveRight(12)
end if
end if
End If
End For
End For
End If

//Guardamos el documento con otro nombre
word.ActiveDocument.SaveAs("plantilla_word2.doc")

//Abrimos el documento
word.documents.open("C:\plantilla_word2.doc")
word.Visible=true

//Luego imprimimos el documento y cerramos Word
word.Application.printout(0)
word.quit(0)
word.DisconnectObject()
DESTROY word
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder