Visual Basic - Imprimir datos de un datagrid

Life is soft - evento anual de software empresarial
 
Vista:
Imágen de perfil de Andres
Val: 68
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Imprimir datos de un datagrid

Publicado por Andres (42 intervenciones) el 24/07/2018 05:23:34
Hola, ando buscando como imprimir datos de un datagrid. Sucede que tengo un datagrid con datos y quiero imprimir esos datos. desde ya muchas gracias.
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
Imágen de perfil de Andres Leonardo
Val: 4.028
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Imprimir datos de un datagrid

Publicado por Andres Leonardo (1666 intervenciones) el 24/07/2018 18:06:25
pero que necesitas imprimir el data grid como tal

seria importante indicar que tienes en el dbgrid y como lo quires imrpimir

saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres
Val: 68
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Imprimir datos de un datagrid

Publicado por Andres (42 intervenciones) el 24/07/2018 22:37:51
Hola, tengo un datagrid con tres columnas en la cual muestra datos que se extrean de un buscador (osea que cuando en el buscador pongo el nombre de una persona en el datagrid se muestran los datos) y quisiera imprimir esos datos en forma de tabla (estilo factura). Te dejo adjunto una imagen de lo que quiero imprimir. Desde ya muchas gracias.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 4.028
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Imprimir datos de un datagrid

Publicado por Andres Leonardo (1666 intervenciones) el 25/07/2018 00:15:55
Pues lo que te recomiendo es utilizar un Reporteador en visual basic existen el data report

te adjunto un ejemplo que tengo

Agrega un data report en la fitgura 4 se ve como se hace
enla figura 3 esta el diseño de como debe ser
la figura 1 te muestra mas o menos tu pantalla donde se da imprimir
y la 2 te da el resultado

**El codigo para llamar el data report esta adjunto espero te ayude, cualquier duda me avisas con gusto te ayudo

Con este


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Private Sub cmdcon_Click()
    Dim MITEXTO, clte, cia As String
 
 
    sql = "Select nomclt, dirclt, telclt, nomcia, dircia, telcia, logocia, "
    sql = sql & "Identificacion, Itemprof, Cantprof, Preprof, Fecprof, Fe2prof, Garprof, Tenprof, Fpaprof, Ivaprof, Desprof, "
    sql = sql & "cantprof * preprof as SubTotal, Subtotal * ivaprof/100 as iva, Subtotal * desprof/100 as descu, Subtotal + Iva - Descu as TOTAL "
    sql = sql & "from tcia as a, tclt as b, tprof as c " 'aumentar los otros
    sql = sql & " where a.idcia = c.idcia and b.idclt = c.idclt and Idprof = " & Num
    'MsgBox SQL
    Rs.Open sql, conexion
 
 
'SACO LA CANTIDAD EN LETRAS
MITEXTO = LetrDOLARES(Rs(21)) ' cantidad en letras con funcion
    '***saco las id de la cia y del clte
    ssql = "select idcia, idclt from tprof where idprof = " & Num
    Rstj.Open ssql, conexion
    cia = Rstj(0)
    clte = Rstj(1)
 If chklogo.Value = 1 Then
 
'linea para colocar el texto en el data
drptIndl.Sections("Seccion1").Controls.Item("etqcl").Caption = MITEXTO
drptIndl.Sections("Seccion1").Controls.Item("etqclte").Caption = clte
drptIndl.Sections("Seccion1").Controls.Item("etqcia").Caption = cia
drptIndl.Sections("Seccion1").Controls.Item("etqidprof").Caption = Num
Set drptIndl.Sections("Seccion1").Controls.Item("logo1").Picture = LoadPicture("C:\Ag2\vbleo\FLPOS\Img\AGLOGO.jpg") 'LoadPicture(Rs(6))
Set drptIndl.DataSource = Rs
drptIndl.Show
Else
'linea para colocar el texto en el data
drptInd.Sections("Seccion1").Controls.Item("etqcl").Caption = MITEXTO
drptInd.Sections("Seccion1").Controls.Item("etqclte").Caption = clte
drptInd.Sections("Seccion1").Controls.Item("etqcia").Caption = cia
drptInd.Sections("Seccion1").Controls.Item("etqidprof").Caption = Num
'***************************************
'*Ojo esto se lo quito a solicitud de la empresa.
'Set drptInd.Sections("Seccion1").Controls.Item("logo1").Picture = LoadPicture(Rs(6))
'****************************************
Set drptInd.DataSource = Rs



1
2
3
4
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Imprimir datos de un datagrid

Publicado por ignacio lezaun ramos (4 intervenciones) el 26/07/2018 14:36:11
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar