Código de Visual Basic.NET - Imprimir contenido de un Datagrid

Imprimir contenido de un Datagridgráfica de visualizaciones


Visual Basic.NET

estrellaestrellaestrellaestrellaestrella(10)
Publicado el 21 de Enero del 2010 por Red
34.320 visualizaciones desde el 21 de Enero del 2010. Una media de 98 por semana
Este es un ejemplo de como Imprimir el contenido de un DataGridView en VB.NET 2008.
Framework 3.5

Versión 1
estrellaestrellaestrellaestrellaestrella(10)

Publicado el 21 de Enero del 2010gráfica de visualizaciones de la versión: Versión 1
34.321 visualizaciones desde el 21 de Enero del 2010. Una media de 98 por semana
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

Si alguno de los archivos de descarga no funciona, comentanos aquí el error.




Comentarios sobre la versión: Versión 1 (10)

marcelo
25 de Marzo del 2010
estrellaestrellaestrellaestrellaestrella
muy bueno tu aporte se agradece
Responder
alanpalma
12 de Mayo del 2010
estrellaestrellaestrellaestrellaestrella
'definimos comando sql a ejecutar
Dim sql As String = "select [idcontacto]" & _
",[Nombre]" & _
",[Apellido]" & _
",[Calle]" & _
"FROM contacto"
'definimos variable conexion
Dim Conn As New OleDbConnection(" Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:contactos.mdb")
'definimos objeto command
Dim command As New OleDbCommand(sql, Conn)
'abrimos la conexion
Conn.Open()
'definimos dataadapter
Dim da As New OleDbDataAdapter(command)

'definimos objetos dataser como contenedor de datos
Dim dscontactos As New DataSet

Dim i As Integer
i = 0
'llena dataset
da.Fill(dscontactos, "contacto")
'limpiamos control de texto
Me.TextBox1.Text = ""

'recorremos el dataser mientras se pueda leer u lo desplegamos en textbox
With dscontactos.Tables("contacto")
While i <= .Rows.Count - 1
Me.TextBox1.Text = Me.TextBox1.Text + _
.Rows(i).Item("nombre") + " " + _
.Rows(i).Item("apellido") + Chr(13) + Chr(10)

i = i + 1
End While
End With
Responder
alanpalma
12 de Mayo del 2010
estrellaestrellaestrellaestrellaestrella
Dim conex As New OleDbConnection
conex.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:LENIN2009.mdb"
conex.Open()
If conex.State = ConnectionState.Open Then
MsgBox(" la conexion esta abierta", MsgBoxStyle.MsgBoxHelp)
End If
conex.Close()
If conex.State = ConnectionState.Closed Then
MsgBox(" la conexion esta cerrada", MsgBoxStyle.MsgBoxHelp)
End If
Responder
alanpalma
12 de Mayo del 2010
estrellaestrellaestrellaestrellaestrella
'definimos comando sql a ejecutar
Dim sql As String = "select login, password FROM usuarios"
'definimos variable conexion
Dim Conn As New OleDbConnection(" Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:seguridad.mdb")
'definimos objeto command
Dim command As New OleDbCommand(sql, Conn)
'abrimos la conexion
Conn.Open()
'definimos dataadapter
Dim da As New OleDbDataAdapter(command)

'definimos objetos dataset como contenedor de datos
Dim dscontactos As New DataSet

Dim i As Integer
i = 0
'llena dataset
da.Fill(dscontactos, "logear")
'limpiamos control de texto


'recorremos el dataser mientras se pueda leer u lo desplegamos en textbox
With dscontactos.Tables("logear")
While i <= .Rows.Count - 1
' Me.TextBox1.Text = Me.TextBox1.Text + _
' .Rows(i).Item("login") + " " + _
'.Rows(i).Item("password") + Chr(13) + Chr(10)
If .Rows(i).Item("login") = TextBox1.Text And .Rows(i).Item("password") = TextBox2.Text Then
MsgBox("BIENVENIDO A CRECIC", MsgBoxStyle.Information)
Response.Redirect("confirma.aspx")
'Else
' MsgBox("USUARIO O PASSWORD ERRONEO", MsgBoxStyle.Critical)
' Response.Redirect("login.aspx")
End If
i = i + 1

End While

End With
Responder
Ale
21 de Octubre del 2010
estrellaestrellaestrellaestrellaestrella
La verdad muy útil el código, gracias por los aportes que se hacen en la web
Responder
denis
16 de Junio del 2011
estrellaestrellaestrellaestrellaestrella
excelente tu clase imprime muy bien el datagrid, una consulta, como puedo hacer para imprimir cajas de texto entre el datagrid y el titulo en tu programa, Se puede definir el tamaño de hoja por defecto??? gracias de antemano.
Responder
denis
15 de Julio del 2011
estrellaestrellaestrellaestrellaestrella
otra vez comentando, te cuento que logre imprimir las cajas de texto y definir el tamaño del papel, pero quisiera saber como hago para que me imprima el datagrid tal como esta y que no me calcule el ancho de las celdas por defecto.? gracias
Responder
FCC
26 de Abril del 2012
estrellaestrellaestrellaestrellaestrella
Es lo que andaba buscando como imprimir contenido de un datagrid, saludos a toda la comunidad tmbien
Responder
MARI
22 de Julio del 2015
estrellaestrellaestrellaestrellaestrella
Muy buena esta utilidad. Gracias
Responder
MARI
22 de Julio del 2015
estrellaestrellaestrellaestrellaestrella
Una observación ¿Porque me altera el orden de las columnas cuando hace la vista previa?
Responder

Comentar la versión: Versión 1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios

http://lwp-l.com/s1921