salto de linea
Publicado por Edgar (23 intervenciones) el 17/07/2007 02:07:17
hola amigos del foro, como estan, espero q bien, tengo una duda, miren, mi script exporta los datos de un datagrid a una hoja de word, en esta hoja de word hay un titulo, luego se crea una tabla en la hoja de word con las columnas que tiene el datagrid, pero cuando dese escribir debajo de la tabla creada en el word, el mensaje me sale en la primera fila de la tabla creada, como puedo solucionar el problema, gracias de antemano, les adjunto mi programación
' variables`para abrir Word y recorrer dataset
Dim dts_dataset As New DataSet
Dim ldco_Word As Word.ApplicationClass
' declaramos variables para word
ldco_Word = New Word.ApplicationClass
ldco_Word.WindowState = Word.WdWindowState.wdWindowStateNormal
ldco_Word.Visible = True
' formato de titulo de hoja wrod
ldco_Word.Documents.Add()
ldco_Word.Selection.TypeText("TITULO")
ldco_Word.Selection.TypeParagraph()
' ARMAR TABLA
dts_dataset = sesion("fuente_de_datos")
li_row = dts_dataset.Tables(0).Rows.Count
'Agregamos la tabla dentro de Word
ldco_Word.Selection.Tables.Add(Range:=ldco_Word.Selection.Range, NumRows:=li_row + 1, NumColumns:=3)
'Recorremos el Data Grid
For li_clmn_cnt = 1 To 3
' insertamos valor
If li_clmn_cnt =1 Then
ldco_Word.Selection.Tables(1).Cell(1, li_clmn_cnt).Range.InsertAfter("TITULO TABLA 1")
ElseIf li_clmn_cnt = 2 Then
ldco_Word.Selection.Tables(1).Cell(1, li_clmn_cnt Range.InsertAfter("TITULO TABLA 2")
ElseIf li_clmn_cnt = 3 Then
ldco_Word.Selection.Tables(1).Cell(1, li_clmn_cnt ).Range.InsertAfter("TITULO TABLA 3")
End If
' recorre las filas de la columna actual
For li_count = 0 To li_row - 1
ls_vfcr_des = dts_cargo_funciones.Tables(0).Rows(li_count).Item(li_clmn_cnt).ToString
ldco_Word.Selection.Tables(1).Cell(li_count + 2, li_clmn_cnt ).Range.InsertAfter(ls_vfcr_des)
Next
Next
ldco_Word.Selection.TypeParagraph()
ldco_Word.Selection.TypeParagraph()
ldco_Word.Selection.TypeParagraph()
ldco_Word.Selection.TypeText("TITULO DOS")
como les explique la palabra TITULO DOS me sale en la primera fila de la tabla, falta algo, debO de cerrar algo para que el TITULO DOS salga debajo de la tabla creada, q debo hacer, espero puedan ayudarme, gracias de antemano
saludos desde Lima Peru
' variables`para abrir Word y recorrer dataset
Dim dts_dataset As New DataSet
Dim ldco_Word As Word.ApplicationClass
' declaramos variables para word
ldco_Word = New Word.ApplicationClass
ldco_Word.WindowState = Word.WdWindowState.wdWindowStateNormal
ldco_Word.Visible = True
' formato de titulo de hoja wrod
ldco_Word.Documents.Add()
ldco_Word.Selection.TypeText("TITULO")
ldco_Word.Selection.TypeParagraph()
' ARMAR TABLA
dts_dataset = sesion("fuente_de_datos")
li_row = dts_dataset.Tables(0).Rows.Count
'Agregamos la tabla dentro de Word
ldco_Word.Selection.Tables.Add(Range:=ldco_Word.Selection.Range, NumRows:=li_row + 1, NumColumns:=3)
'Recorremos el Data Grid
For li_clmn_cnt = 1 To 3
' insertamos valor
If li_clmn_cnt =1 Then
ldco_Word.Selection.Tables(1).Cell(1, li_clmn_cnt).Range.InsertAfter("TITULO TABLA 1")
ElseIf li_clmn_cnt = 2 Then
ldco_Word.Selection.Tables(1).Cell(1, li_clmn_cnt Range.InsertAfter("TITULO TABLA 2")
ElseIf li_clmn_cnt = 3 Then
ldco_Word.Selection.Tables(1).Cell(1, li_clmn_cnt ).Range.InsertAfter("TITULO TABLA 3")
End If
' recorre las filas de la columna actual
For li_count = 0 To li_row - 1
ls_vfcr_des = dts_cargo_funciones.Tables(0).Rows(li_count).Item(li_clmn_cnt).ToString
ldco_Word.Selection.Tables(1).Cell(li_count + 2, li_clmn_cnt ).Range.InsertAfter(ls_vfcr_des)
Next
Next
ldco_Word.Selection.TypeParagraph()
ldco_Word.Selection.TypeParagraph()
ldco_Word.Selection.TypeParagraph()
ldco_Word.Selection.TypeText("TITULO DOS")
como les explique la palabra TITULO DOS me sale en la primera fila de la tabla, falta algo, debO de cerrar algo para que el TITULO DOS salga debajo de la tabla creada, q debo hacer, espero puedan ayudarme, gracias de antemano
saludos desde Lima Peru
Valora esta pregunta


0