RE:imprimir los datos desde una grilla
yo lo hago asi, leo cada fila de la grilla y la voy imprimiendo
For fila = 1 To GrillaTarj.Rows - 1
conteo = conteo + 1
GrillaTarj.Row = fila
GrillaTarj.Col = 0
If conteo > 50 Then
Printer.NewPage
ImprimirEncabezado
End If
'contenido de la grilla
Printer.FontBold = False
GrillaTarj.Col = 0
Printer.Print Tab(0); Trim(GrillaTarj.Text);
GrillaTarj.Col = 1
diferencia = 10 - Len(Trim(GrillaTarj.Text))
paso = String(diferencia, " ") & Trim(GrillaTarj.Text)
Printer.Print Tab(8); paso;
GrillaTarj.Col = 2
If Trim(Mid$(GrillaTarj.Text, 1, 5)) = "Total" Or Trim(Mid$(GrillaTarj.Text, 1, 5)) = "RESUMEN" Then
Printer.Print Tab(8); GrillaTarj.Text;
Else
Printer.Print Tab(21); Trim(Mid$(GrillaTarj.Text, 1, 26));
End If
GrillaTarj.Col = 3
diferencia = 10 - Len(Trim(GrillaTarj.Text))
paso = String(diferencia, " ") & Trim(GrillaTarj.Text)
Printer.Print Tab(58); paso;
GrillaTarj.Col = 4
Printer.Print Tab(71); GrillaTarj.Text
Next
Printer.EndDoc
espero te sirva , si hay dudas me envias un correo
Guillermo