Foros del web, para los que viven de bits

Hola gente

Estoy con un drama existencial, tengo que imprimir los datos de varias tablas que los saco con un query, nunca he hecho un aimpresion de un formulario y estoy complicado, no cacho na' , necesito una explicacion con manzanitas
agradeceria su urgente orientacion
sl2

Bueno depende como quieras imprimirlos, via reporte (crystal reports) o via objetos de impresion de .net
dime cual de los 2 necesitas.

saludos
peter

que seria mas sensillo para aplicar a una Factura (que tiene los datos en varias tablas relacionadas)?...
un boton de impresion ..?

pues con el reporte defines el layout de volada pero necesitas generar un datosource q contenga todos los dastos requeridos (O en un sacado diversos datasources)

con el boton de impresion solo necesitas jugar con el canvas de tu documento en como y donde deseas imprimirlo.

saludos
peter

por ejemplo si quiero hacer desde algun queri ..??
como te decia los datos del documento que quiero imprimir estan en varias tablas relacionadas.

pues puedes hacerlo en crystal pero lleva tiempo hacerlo en dialogo de impresion y documento de impresion es rapido porq tienes acceso a diseñar tu a mano.

saludos
peter

Hasta qeu al final encotre como hacer lo que queira, le puedo definir que campos o una consulta SQL
Lo qeu si ya no tengo el Link de ese post de otro foro

=)


Imports System.Drawing.Printing

Public Class Form1


Dim Contenido As PrintPageEventArgs '<< representa las propiedades de el documento a imprimir, a el asignaremos el texto a imprimir
Dim WithEvents Documento As New PrintDocument '<< será el documento a imprimir
Dim impresora As New PrintDialog ' << representa una instancia del dialogo de configuración de impresión


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' si deseas configurar la impresora antes de imprimir el resultado solo habilita la linea siguiente
'Configurar()
Documento.Print()
End Sub

Private Sub Documento_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles Documento.PrintPage
Contenido = e
' en la siguiente cadena le asignas el contenido y sus propiedades
' primero le asignamos el texto, segundo el tipo de fuente con su respectivo tamaño, el color, y por ùltimo la ubicación en la página

Contenido.Graphics.DrawString("*" & Me.TextBox1.Text & "*", New Font("3 of 9 Barcode", 14), Brushes.Black, 50, 300)

Contenido.Graphics.DrawString(Me.TextBox1.Text, New Font("Arial", 7), Brushes.Black, 90, 315)

' esta linea indica que no se imprimirán más pagias sino solo una

Contenido.HasMorePages = False
End Sub

Private Sub Configurar()
impresora.Document = Documento
impresora.ShowDialog()
Documento.PrinterSettings = impresora.PrinterSettings
End Sub

End Class