Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - elmaro

#111
Buen dia. Nuevamente con una duda importante.
Me gustaria saber como hago para imprimir un DataGridView desde VB.Net

Encontre una clase en la web pero para imprimir un DataGrid pero no me sirve.

Si alguien sabe como, se lo agradeceria

Saludos.
#112
Es sencillo.
Pegale una mirada a esto y luego te fijas, si ves que no sale nada, avisa ;)

http://www.oracle.com/technology/pub/articles/cook_dotnet.html
#114
Cita de: JOEL1a2z en 13 Febrero 2008, 22:26 PM
Necesito saber si alguien sabe de Certificados para firmar desarrollos en .net y java

Busca en el foro.

http://foro.elhacker.net/index.php/topic,188237.0.html
#115
Es sencillo. Eso te lo muestra un Label, un TextBox o que?

Sea lo que sea, lo que tienes que hacer es darle formato utilizando mascaras como en excel asi:

.ToString("0000")

Y listo.

Espero te sirva, un saludo.
#116
Ok MANULOMM.
Yo voy a seguir buscando y si encuentro algo lo posteo.

Gracias como siempre por tus contestaciones.
#117
Aca les dejo un codigo para exportar un DataGridView a Excel.
Crea un archivo .csv y luego lo abre con Excel, evitando la dependencia de alguna version en particular. El codigo es sencillo

Se debe agregar:
Imports System.IO

Function Exportar()
        Dim strStreamW As Stream
        Dim strStreamWriter As StreamWriter
        Dim Filas = frm_principal.Grid.Rows.Count
        Dim Columnas = frm_principal.Grid.Columns.Count
        Dim Archivo As String = Application.StartupPath & "\Centros.csv"
        Dim Linea
        Dim f, c

        File.Delete(Archivo)
        strStreamW = File.OpenWrite(Archivo)

        strStreamWriter = New StreamWriter(strStreamW, System.Text.Encoding.UTF8)

        'CABECERA
        For c = 0 To Columnas - 1
            Linea = Linea & frm_principal.Grid.Columns(c).Name & ";"
        Next

        Linea = Mid(Linea, 1, Linea.ToString.Length - 1)
        strStreamWriter.WriteLine(Linea)
        Linea = Nothing

        'FILAS
        For f = 0 To Filas - 1
            For c = 0 To Columnas - 1
                Linea = Linea & frm_principal.Grid.Item(c, f).Value & ";"
                'MsgBox(Grid.Item(c, f).Value)
            Next
            Linea = Mid(Linea, 1, Linea.ToString.Length - 1)
            strStreamWriter.WriteLine(Linea)
            Linea = Nothing
        Next
        strStreamWriter.Close()

        Try
            Process.Start(Archivo) 'Ejecuta el archivo creado
        Catch Ex As Exception
            MsgBox(Ex.Message, MsgBoxStyle.Critical, Ex.Source)
        End Try

    End Function



En un boton:
Call Exportar()


Espero les sirva.

#118
Buenos dias, nuevamente con mis dudas sobre las grillas :P
Me gustaria saber como se puede hacer para combinar celdas en un DataGridView de la forma en que se hace en Excel por ejemplo.

Si alguien sabe, bienvenido sea.

Muchas gracias
#119
Para pintar la fila entera:

        Dim i
        Dim Columna = DataGridView1.Columns.Count

        For i = 0 To Columna - 1
            DataGridView1.Item(i, 1).Style.BackColor = Color.Aqua 'Se pinta la fila 1
        Next



Espero que a alguien le sirva.
Saludos nuevamente
#120
Si, exacto. Algo similar a esa imagen. Pero ya tome la decicion de usar el grid y escribi bastante codigo :P jeje

Ahora te comento... yo comente que estaba usando el control FlexCell para .NET y era una version demo... asi que ahora empieza a decirme que lo compre y a mi cliente no le puedo dar eso (no voy a pagar 113 euros) , entonces decidi usar el DataGridView

Tuve qaue actualizar gran parte del codigo en tiempo record. Ahora tengo complicaciones con el tema de los colores en filas distintas.

......

Bueno... paso como media hora desde que empeze a escribir el mensaje, y encontre la solucion mas sencilla

DataGridView1.Item(ColumnIndex, RowIndex).Style.BackColor = Color
DataGridView1.Item(ColumnIndex, RowIndex).Style.ForeColor = Color



Un saludo, gracias por todo.
En breve posteo para fintar toda la fila con un bucle for