estoy haceindo un softwarecito en vb 2008 express

aclaracion: estoy haciendo varios software's en distintas versiones de vb y con distintas bases de datos para que no confundan las consultas... he hecho varias estos dias...

sigo...

necesito emitir reportes obvio...

puedo exportar a excel, seria lo mas facil, pero siempre es necesario un reporte "llegar e imprimir"...

que reporteador puedo usar que sea GRATIS!

me peino con crystal, pero para este software en especifico no dispongo de licencia...

alguna recomendacion???

__________________

motociclistas.cl

mmm yo lo habia imprimido manualmente al objeto printer mas q nada algo muy basico q mostraba el resumen de una compra para un amigo q vendia hard, a lo mejor si te animas podrias hacer algo parecido, eso si es mas dificil, pero hasta tiene vista previa y todo ademas por supuesto de tener mucho mas control sobre lo q se imprime y lo q no.

__________________

INTELIGENCIA EJEMPLAR:
En Galicia solo hay dos personas que se dedican a la mudanza, Manolo y su hermano. Un dia iba Manolo con un armario muy grande sobre los hombros, y uno del pueblo le dice:
-Oye Manolo, ¿no te ayuda tu hermano?
-Sí, mi hermano está dentro, ¡sujetando las perchas!

no cache...

tienes por ahi un codigo de ejemplo con lo que señalas???

gracias por la respuesta

__________________

motociclistas.cl

Imports System.Data.OleDb
Imports System.Drawing
Public Class Impresion
Dim adaptador As OleDbDataAdapter
Dim y As System.Drawing.Printing.PrintPageEventArgs
Dim Pd As New System.Drawing.Printing.PrintDocument()
Dim setdedatos As New DataSet
Dim cliente(2) As String
Dim total As Single
Dim res As DialogResult
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Reg As DataRow
Coneccion.Open()
adaptador.Fill(setdedatos, "RESVENTAS")
Coneccion.Close()
Grid1.DataSource = setdedatos.Tables(0)
AddHandler Pd.PrintPage, AddressOf Me.pd_PrintPage
For Each Reg In setdedatos.Tables(0).Rows
TextBox6.Text = TextBox6.Text & Reg.Item("Cantidad").ToString & vbCrLf
TextBox2.Text = TextBox2.Text & Reg.Item("Marcas.Descripcion").ToString & vbCrLf
TextBox4.Text = TextBox4.Text & Reg.Item("Garantia").ToString & vbCrLf
TextBox5.Text = TextBox5.Text & (Reg.Item("Precio") * Reg.Item("Cantidad")) & vbCrLf
Next
TextBox1.Text = TextBox1.Text & "CLIENTE: " & cliente(0) & vbCrLf
TextBox1.Text = TextBox1.Text & "DIRECCION: " & cliente(1) & vbCrLf
TextBox1.Text = TextBox1.Text & "LOCALIDAD: " & cliente(2) & vbCrLf
TextBox3.Text = "Total Venta $" & total
Grid1.RowHeadersVisible = False
Grid1.Columns(4).HeaderText = "Cliente"
Grid1.Columns(5).HeaderText = "Cant."
Grid1.Columns(7).HeaderText = "Precio Unitario"
Grid1.Columns(7).DefaultCellStyle.Format = "$#,##0.00;($#,##0.00);Zero"
Grid1.Columns(7).AutoSizeMode = DataGridViewAutoSizeColumnMode.ColumnHeader
Grid1.Columns(8).AutoSizeMode = DataGridViewAutoSizeColumnMode.ColumnHeader
Grid1.Columns(4).AutoSizeMode = DataGridViewAutoSizeColumnMode.DisplayedCells
Grid1.Columns(6).AutoSizeMode = DataGridViewAutoSizeColumnMode.DisplayedCells
Grid1.Columns(5).AutoSizeMode = DataGridViewAutoSizeColumnMode.ColumnHeader
Grid1.Columns(2).AutoSizeMode = DataGridViewAutoSizeColumnMode.DisplayedCells
Grid1.Columns(1).AutoSizeMode = DataGridViewAutoSizeColumnMode.DisplayedCells
Grid1.Columns.RemoveAt(3)
Grid1.Columns.RemoveAt(0)
End Sub
Public Sub indices(ByVal x As Integer, ByVal tot As Single, ByVal nom As String, ByVal dir As String, ByVal loc As String)
adaptador = New OleDbDataAdapter("SELECT * FROM RESVENTAS WHERE IDVENTA =" & x, Coneccion)
total = tot
cliente(0) = nom
cliente(1) = dir
cliente(2) = loc
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
On Error GoTo manejador
PPD1.Document = Pd
PPD1.AllowTransparency = True
PPD1.ShowDialog()
res = PPD1.DialogResult
If res = Windows.Forms.DialogResult.Yes Then Me.Close()
Exit Sub
manejador:
MsgBox(Err.Description, MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Error: " & Err.Number)
Resume
End Sub

Private Sub pd_PrintPage(ByVal sender As Object, ByVal ev As System.Drawing.Printing.PrintPageEventArgs)
Dim ejeY As Integer
Dim i As Integer
Static indice As Integer
Dim Tam As SizeF = ev.Graphics.MeasureString("CYBER BELGRANO", New Font("Arial", 20, FontStyle.Regular))
ev.Graphics.DrawString("CYBER BELGRANO", New Font("Arial", 20, FontStyle.Regular), Brushes.Aqua, (ev.PageBounds.Width - Tam.Width) / 2, ev.MarginBounds.Y)
ev.Graphics.DrawString(RichTextBox1.Text, RichTextBox1.Font, Brushes.Black, ev.MarginBounds.X, ev.MarginBounds.Top + Tam.Height)
ejeY = ev.MarginBounds.Top + 115
ev.Graphics.DrawLine(New Pen(Color.CornflowerBlue, 2), ev.MarginBounds.Left, ejeY, ev.MarginBounds.Right, ejeY)
ejeY = ejeY + 10
Tam = ev.Graphics.MeasureString(TextBox1.Text, TextBox1.Font)
ev.Graphics.DrawString(TextBox1.Text, TextBox1.Font, Brushes.Chocolate, ev.MarginBounds.Left, ejeY)
ejeY = ejeY + Tam.Height + 10
ev.Graphics.DrawLine(New Pen(Color.CornflowerBlue, 2), ev.MarginBounds.Left, ejeY, ev.MarginBounds.Right, ejeY)
ev.Graphics.DrawLine(New Pen(Color.CornflowerBlue, 2), ev.MarginBounds.Left + 90, ejeY, ev.MarginBounds.Left + 90, ev.MarginBounds.Bottom)
ev.Graphics.DrawLine(New Pen(Color.CornflowerBlue, 2), ev.MarginBounds.Left + 450, ejeY, ev.MarginBounds.Left + 450, ev.MarginBounds.Bottom)
ev.Graphics.DrawLine(New Pen(Color.CornflowerBlue, 2), ev.MarginBounds.Left + 550, ejeY, ev.MarginBounds.Left + 550, ev.MarginBounds.Bottom)
ejeY = ejeY + 40
ev.Graphics.DrawLine(New Pen(Color.CornflowerBlue, 2), ev.MarginBounds.Left, ejeY, ev.MarginBounds.Right, ejeY)
ejeY = ejeY + 10
Dim alto As Integer = TextBox2.Font.GetHeight
For i = indice To TextBox2.Lines.GetUpperBound(0)
ev.Graphics.DrawString(TextBox6.Lines(i), TextBox2.Font, Brushes.Chocolate, ev.MarginBounds.Left + 30, ejeY)
ev.Graphics.DrawString(TextBox2.Lines(i), TextBox2.Font, Brushes.Chocolate, ev.MarginBounds.Left + 90, ejeY)
ev.Graphics.DrawString(TextBox4.Lines(i), TextBox2.Font, Brushes.Chocolate, ev.MarginBounds.Left + 450, ejeY)
ev.Graphics.DrawString(TextBox5.Lines(i), TextBox2.Font, Brushes.Chocolate, ev.MarginBounds.Left + 580, ejeY)
ejeY = ejeY + alto
If ejeY > ev.MarginBounds.Bottom Then
ev.HasMorePages = True
indice = i
Exit Sub
Else
End If
Next
ev.Graphics.DrawLine(New Pen(Color.CornflowerBlue, 2), ev.MarginBounds.Left, ev.MarginBounds.Bottom - 25, ev.MarginBounds.Right, ev.MarginBounds.Bottom - 25)
ev.Graphics.DrawString(TextBox3.Text, TextBox3.Font, Brushes.Chocolate, ev.MarginBounds.Left, ev.MarginBounds.Bottom - 20)
ev.HasMorePages = False
End Sub

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
PrintDialog1.Document = Pd
PrintDialog1.ShowHelp = False
res = PrintDialog1.ShowDialog()
If res = Windows.Forms.DialogResult.OK Then
Pd.Print()
End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Pd.Print()
End Sub

End Class


ahi esta parte del codigo esa parte imprime los datos de una tabla en este caso las ventas ya como una factura para el cliente yo creo debe servir si no entendes te paso el codigo completo.

__________________

INTELIGENCIA EJEMPLAR:
En Galicia solo hay dos personas que se dedican a la mudanza, Manolo y su hermano. Un dia iba Manolo con un armario muy grande sobre los hombros, y uno del pueblo le dice:
-Oye Manolo, ¿no te ayuda tu hermano?
-Sí, mi hermano está dentro, ¡sujetando las perchas!

mmmmmmmmmmmmm

quede colgado jajajaja

podrias subir en algun lado el form completo (codigo y diseñador)???

a alguien se le ocurre alguna otra cosa???

__________________

motociclistas.cl

exportar HTMLs? e imprimes con firefox (que es super configurable para imprimir)

__________________

alguna manera sencilla de hacer eso???

y que se pueda generar un reporte???

__________________

motociclistas.cl

mmm tengo un pdf q muestra de manera mas sencilla como imprimir datos pero pesa como 100 megas, en realidad es sencillo pero bueno claro asi codigo puro no se entiende, puedo hacer lo siguiente: subir las imagenes con los formularios y el code-behind o te mando el proyecto completo por mail(tb podria poner todo en un word), no pesa casi nada igual no se ustedes diganme.... la verdad es q para temas de impresion seria bueno q manejaran este tema, no siempre pueden depender de los reporteadores y siempre tendran mejor control si lo hacen ustedes mismos animense!!!!.
Imprimir con Visual Basic .NET
hechale un ojo a eso: muchachos no hay nada q sea muy sencillo de hacer cuando se trata de .net no se echen nunca para atras yo tampoco no entiendo nada a lo primero pero no pueden buscar todo el tiempo las soluciones faciles, se que cuesta ponerse a leer pero es la unica forma de tener una comprension completa de todo, muchas veces no van a tener quien les de una mano y ahi hay q amañarse, no queda otra .

__________________

INTELIGENCIA EJEMPLAR:
En Galicia solo hay dos personas que se dedican a la mudanza, Manolo y su hermano. Un dia iba Manolo con un armario muy grande sobre los hombros, y uno del pueblo le dice:
-Oye Manolo, ¿no te ayuda tu hermano?
-Sí, mi hermano está dentro, ¡sujetando las perchas!

estuve mirando en esa pagina y justo justo ese articulo que lo explicaba con lujo de detalles no lo habia visto xD

gracias, le voy a pegar una leida

sl2

__________________

motociclistas.cl

subelo a megaupload... 100 megas suben en 10 minutos, demás que es util para otra persona..

__________________

ok man ahora veo si lo puedo subir asi saludos.

__________________

INTELIGENCIA EJEMPLAR:
En Galicia solo hay dos personas que se dedican a la mudanza, Manolo y su hermano. Un dia iba Manolo con un armario muy grande sobre los hombros, y uno del pueblo le dice:
-Oye Manolo, ¿no te ayuda tu hermano?
-Sí, mi hermano está dentro, ¡sujetando las perchas!

Si usas SQL Server, puedes uar Reporting Services (viene gratis)

Spool

Yo te puedo pasar una clase de exportar a Excel, pero también puedes usar Crystal Reports, esos te dejan llegar e imprimir

Solo con el profesional y el enterprice kreo q vieje o es el ssis , pero por otro lado prueba con este
The fyiReporting RDL Project is a powerful report and charting system based on
Report Definition Language (RDL). Tabular, free form, matrix, charts are fully
supported. Report output may be displayed as HTML, PDF, Excel, RTF, XML, .Net
Control, Web Archive, and to a printe.
y es gratis

fyiReporting Software - Open Source .Net Reporting

baje el fyiReporting...

se ve interesante...

pero no existe un puto manual de uso... como la callampa el soporte jajajjajja

alguien sabe donde puedo obtener info de como aprovechar mejor ese reporteador???

__________________

motociclistas.cl

Página oficial de Report Manager

Es reporteador que use con Delphi 2007 con buenos resultados, en su página dice que puede ser utilizado con .Net,