miguel
15 de Noviembre del 2005

Hola a todos, hace un tiempo escrib铆 para ver si alguien me ayudaba para pasar la informaci贸n de un datagrid a word. Recib铆 respuestas y c贸digo que me permiti贸 esto, en concreto el c贸digo es:

On Error Resume Next
Dim MSWord As Word.Application
Dim Documento As Word.Document
Dim Parrafo As Table
Dim F, C As Double
Set MSWord = New Word.Application
MSWord.Visible = True

Set Documento = MSWord.Documents.Add
Set Parrafo = Documento.Tables.Add(Documento.Range(0, 0), DataGrid1.ApproxCount + 1, DataGrid1.Columns.Count)

For C = 0 To DataGrid1.Columns.Count
DataGrid1.Row = 0
Parrafo.Cell(1, C + 1).Range.InsertAfter DataGrid1.Columns(C).Caption \'agregar columnas
For F = 1 To DataGrid1.ApproxCount
Parrafo.Cell(F + 1, C + 1).Range.InsertAfter DataGrid1.Columns(C).Value
DataGrid1.Row = DataGrid1.Row + 1
Next F
Next C

Set MSWord = Nothing
Set Documento = Nothing
Set Parrafo = Nothing
End Sub

Al ejecutar el c贸digo funciona perfectamente si el n煤mero de registros no supera los que se ven en pantalla, es decir, si no aparece la barra de desplazamiento. Si hay barra de desplazamiento y para ver todos los datos hay que moverse sobre ella, falla en la instrucci贸n:

DataGrid1.Row = 0, ya que no vuelve al comienzo, sino que se posiciona en la primera posici贸n del datagrid, es decir, en la que aparece en pantalla no en la posici贸n cero.

Me gustar铆a, si es posible, que me indicarais qu茅 instrucci贸n mueve la barra desplazadora del datagrid al comienzo.

Muchas gracias.