Como imprimo un datagrid!

Tengo este problema hace bastante tiempo y no como resolverlo espero que me puedan ayudar, solo necesito imprimir datos de un data grid.

1 respuesta

Respuesta
1
No se como estés cargando el grid, pero yo tenia ese problema, necesitaba sacar los datos de un grid para acomodarlos a placer y todo sin pasar por el data report.
Descgraciadamente esto implica un poco de código,
Lo primero que hice fue hacer una rutina para que me cargara el drig y llevaba un contador de cual era el numro de row. Que lleva
Ya que definía eso, use el objeto printer
Y hacia un bucle para mandar los datos que quería a la impres, regularmetne un for,
for i = q to contador
y dentro pongo lo que dese que se imprima con el objeto printer
Datagrid1.Row = i
datagir1.col = 1
Printer. Print datagrid1.text
Adonde me va a imprimir el contenido de la ubicación de l celda de la linea1, columna 1, y así sucesivamente recorría las columnas
datagrid1.col = 2
printer. Print datagrid1.text
hasta que se completaba el ciclo y recorría todas la lineas(rows)
Y para el objeto printer solo una reconecdacion
Así cambias el font
Printer.font = "Arial"
Asi negritas
printer.fontbold = true
tamaño
Printer.Fontsize = 21
Y así sucesivamnte eso del objeto printer lo encuentras en el msdn para que sepas todas las propiedades
y al final y fuera del next
printer. Enddoc
Y si quieres imprimir columnas lo tienes que hacer en base al numero de tabulación en la impresora
Printer. Print, tab(1), nombre
Printer. Print, tab(10), Apellido
Etc.
Espero te sea de ayuda esto, de todos modos para comentarios, dudas o reclamaciones no dudes en decírmelas
No me podes mandar el código de como imprimiste el datagrid
Gracias.
Dim acarreador(1 To 10) As String
Printer.FontName = "arial"
Printer.FontSize = 8
Printer.Print , Tab(2); "CLAVE"; Tab(13); " DESCRIPCION"; Tab(55); "PREC/PZ"; Tab(65); "DESC 1"; Tab(75); "DESC 2"; Tab(85); "DESC 3"; Tab(95); "DEPTO"; Tab(105); "PZ/CAJA";
For i = 1 To Contador'de linea
With MSFlexGrid1
.Row = i
.Col = 0
acarreador(1) = .Text
.Col = 1
acarreador(2) = .Text
.Col = 2
acarreador(3) = .Text
.Col = 3
acarreador(4) = .Text
.Col = 4
acarreador(5) = .Text
Printer.Print
.Col = 5
acarreador(6) = .Text
.Col = 6
acarreador(7) = .Text
.Col = 7
acarreador(8) = .Text
End With
Printer.Print , Tab(2); acarreador(1); Tab(13); acarreador(2); Tab(55); acarreador(3); Tab(65); acarreador(4); Tab(75); acarreador(5); Tab(85); acarreador(6); Tab(95); acarreador(7); Tab(105); acarreador(8);
Printer.Line (1, Printer.CurrentY)-(10000, Printer.CurrentY)
Next
Printer. EndDoc
Todo el código de aariva solo márcalo, cópialo y pégalo para que veas las lineas como devén de ir y lo puedas analizar, todo va en referencia a lo que te escrvi anteriormente
Espero te sea de ayuda esto, de todos modos para comentarios, dudas o reclamaciones no dudes en decírmelas

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Espacio entre columnas

MRTOOL ya encontré una forma de imprimir un formulario con el datagrid, pero al imprimir el datagrid me imprime solo 4 columnas de 6 que tengo, te dejo el siguiente código para que por favor me ayudes, es urgente: Public Function imprimir(ByVal...
1 respuesta

¿Es posible añadir datos por filas y columnas en el dbgrid sin estar fijos a una base de datos?

Tengo un nuevo problemilla. Quiero hacer mi listado (de libros por ejemplo) dinámicamente. Había pensado en que se crearan label automáticamente, y poner un vbscroll, pero no se como enlazarlo para que me las muestre todas. Entonces pensé en usar un...
1 respuesta

Imprimir en formato pre-impreso

Quisiera generar un reporte en un formato pre-impreso. Considero que es más recomendable hacerlo con el Objeto Printer pero no sé como usarlo.
1 respuesta

Error 482, error de impresora. Vb6

Deje esta pregunta en un foro pero no me contestaron, a ver si tu pudieras ayudarme, he instalado el spk6 de vb6 y ni así funciona. Te describo el problema. Mil gracias por adelantado Tengo el siguiente problema. Imprimiendo unos campos de una base...
1 respuesta

Impresión

Me gustaría que me dijeras como imprimir textbox que contienen cantidades pero ordenadas de derecha a izquierda porque lo quiero para una factura Utilizo el printer. Currentx y y para indicar las coordenadas pero cuando imprime me hace esto: 2.34...
4 respuestas

Edición e impresión de texto

Te rogaría que me ayudses con lo siguiente. Necesito imprimir en una impresora usb tipo tickets un texto tipo memo (como por ejemplo una receta) que se me ajuste al tamaño del papel (unos 7 u 8 cm), por lo que salvo que exista alguna forma de mandar...
2 respuestas

¿Imprimir después de commondialog?

Tengo un botón que me imprime el texto de unos textbox, pero al momento de presionarlo me imprime automáticamente a la impresora predeterminada. [size= 11.8056px]Lo que yo quiero es que me de a seleccionar la impresora.[/size] Intente con un...
1 respuesta

LEOSOFT, imprimir Gird1...

Private Sub imprimir_Click() Dim klk As Integer For klk = 0 To list1.ListCount - 1 Printer.Print resultado Next klk Printer.EndDoc ' esto te envia a la impresora End Sub Hola Leo, nuevamente yo! Si te acuerdas antes teníamos un List donde...
1 respuesta

Mandar a Imprimir al Puerto COM1

Espero que estés bien. Quiero imprimir al puerto COM1 pero a la primera si enciendo la impresora y doy clic en el botón, ¿Solo imprime borroso y si le vuelvo a dar clic al botón ya no funciona que es lo que pasa o tienes alguna sugerencia para esto?...
1 respuesta

Problemas al sumar columna de DataGrid en VB6

Tengo problemas con la suma de una columna de un DataGrid. El código realiza bien la operación con las celdas visibles de la columna de DG, cuando hay filas no visibles aparece error 6148 - Número de fila incorrecto. El código que tengo para sumar la...
1 respuesta