Impresion con PrintDocument

Saludos amigos, soy nuevo en este foro, tengo alguna experiencia en .NET, pero tengo un problema que me esta resultando un poco dificil resolver, ya que la informacion sobre el PrintDocument es muy escueta y solo me refiere a como puedo imprimir un archivo de texto desde una ubicacion.

Yo solo quiero cargar informacion en algunas variables privadas que son llamadas de las tablas de SQL, para luego imprimir esa informacion (sin Crystal Report), sino directamente a la impresora.

Como la funcion Printer de VB 6.0.

Mas o menos como un ticket de Supermercado, en especifico son para unas facturas pre-impresas.


De antemano muchas gracias por su ayuda.

</TR>

RE: Impresion con PrintDocument

No hay nadie que me pueda ayudar con esto ?

Saludos


D.


</TR>

RE: Impresion con PrintDocument

Como definitivamente se ve que no manejan ni papa de Visual Basic .NET, les dejo el codigo para hacer esta impresion.

Talvez a alguien le ayude, yo en lo personal ya no entro mas.

Primero declaren la variable e importen

Imports System
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Drawing
Imports System.Drawing.Printing
Imports System.IO



Private WithEvents pdoc As New PrintDocument()

Esto es antes de la Clase del Formulario

Depues crean el evento (puede ser pulsar un Boton, yo utilize este pues tenia que cargar unas variables publicas y hasta que esto no ocurriera WPactualizar era = False


Private Sub FrmFacturaXMonitor_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
If WPActualizar = True Then
WPActualizar = False
FacturasPreImpresas()
Dim Dialog As New PrintDialog()
Dialog.Document = pdoc
pdoc.Print()
End If
End Sub


Aqui ponen las coordenadas de impresion y sus respectivos valores con la conexion a la BD.


Private Sub pdoc_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles pdoc.PrintPage

Dim oSrv1 As SIFAC.Datos = New SIFAC.DatosSQLServer("DBSERVER"
Dim MyLetraNormal As New Font("Microsoft Fast Draft", 10)
Dim MyLetraChiquita As New Font("Microsoft Fast Draft", 8)
Dim MyDiasVista As Integer = 0
Dim MySerieFactura As String = MyPubSerie
Dim MyNoFactura As Integer = MyPubFactura
Dim MyFechaValida = oSrv1.TraerDataSet("Fecha_Emision_TxD".Tables(0).Rows(0).Item("Fecha_Emision"
Dim MyDiaFactura As Integer = Microsoft.VisualBasic.Left(MyFechaValida, 2)
Dim MyMesFactura = Date.Today.Month
Dim MyAñofactura As Integer = Microsoft.VisualBasic.Right(MyFechaValida, 4)
Dim MyNombres As String = TextBox4.Text
Dim MyDireccion As String = TextBox6.Text
Dim MyNit As String = TextBox11.Text
Dim MyDetalle As String = TextBox10.Text
Dim MyValorInicial = FormatCurrency(TextBox5.Text)
Dim MyDescuento = FormatCurrency(TextBox8.Text)
Dim MyGranTotal = FormatCurrency(TextBox9.Text)
Dim MyLetras = Val_let(MyGranTotal, "m", "S"
Dim MyCantidadEnLetras As String = MyLetras
Dim MyDiaPago As Date = Date.Today
Dim MyPrincipia As Date = Date.Today

e.Graphics.DrawString(MySerieFactura, MyLetraNormal, Brushes.Black, 300, 40)
e.Graphics.DrawString(MyNoFactura, MyLetraNormal, Brushes.Black, 360, 40)
e.Graphics.DrawString(MyDiasVista, MyLetraNormal, Brushes.Black, 340, 70)
e.Graphics.DrawString(MyDiaFactura, MyLetraNormal, Brushes.Black, 570, 120)
e.Graphics.DrawString(MyMesFactura, MyLetraNormal, Brushes.Black, 630, 120)
e.Graphics.DrawString(MyAñofactura, MyLetraNormal, Brushes.Black, 690, 120)
e.Graphics.DrawString(MyNombres, MyLetraNormal, Brushes.Black, 100, 185)
e.Graphics.DrawString(MyDireccion, MyLetraChiquita, Brushes.Black, 100, 220)
e.Graphics.DrawString(MyNit, MyLetraNormal, Brushes.Black, 570, 220)
e.Graphics.DrawString(MyDetalle, MyLetraNormal, Brushes.Black, 50, 300)
e.Graphics.DrawString(MyValorInicial, MyLetraNormal, Brushes.Black, 610, 300)
If MyDescuento > 0 Then
e.Graphics.DrawString(MyDescuento, MyLetraNormal, Brushes.Black, 610, 470)
End If
e.Graphics.DrawString(MyCantidadEnLetras, MyLetraChiquita, Brushes.Black, 50, 500)
e.Graphics.DrawString(MyGranTotal, MyLetraNormal, Brushes.Black, 610, 500)
e.Graphics.DrawString(MyDiaPago, MyLetraNormal, Brushes.Black, 220, 530)
e.Graphics.DrawString(MyPrincipia, MyLetraNormal, Brushes.Black, 570, 530)

Dim mydatos() As Object = {MyPubSerie, MyPubFactura}

Eso es todo, cualquier comentario o si necesitan ayuda me la puden hacer a wparedes@intelnett.com

Saludos

D.

</TR>

RE: Impresion con PrintDocument

Amigo Dracko1...

No es bueno sacar conclusiones subjetivas y extrapolarlas como si fueran verdades axiomáticas... Tu frase "Como definitivamente se ve que no manejan ni papa de Visual Basic .NET" deja traslucir un mal carácter que te denuncia o una falta de educación que denuncia a tu entorno... Y, repito, eso no es bueno, sobre todo para ti.

¿Estás seguro de que aquí nadie sabe ni papa? ¿Has pensado si no será que las personas de las que esperas ayuda se encuentran también con exceso de trabajo, que les incapacita para dedicar su tiempo a resolver problemas ajenos, que han de ser considerados como "devocionales" al lado de las obligaciones laborales de cada uno? ¿O incluso, no cabe la posibilidad de que nadie quiera ayudar, porque nadie está obligado a hacerlo?

Me parece bien que se acuda al foro con grandes dosis de esperanza, porque empíricamente éste es el foro que más rápidamente responde y menos respuestas quedan sin contestación; pero también es indispensable que se acuda con señorío, con dignidad y respeto a quienes entregan lo mejor de sus conocimientos de forma totalmente altruísta. Las malas composturas se las guarda uno para la soledad de su propio retrete.

Aparte de todo lo anterior, sé valorar el detalle de tu aportación, que te agradezco en nombre de quienes puedan aprovecharse de ella, si algo de ello es aprovechable.

__________________
José María Movilla Cuadrado
______________________

Visual Basic Videos Programacion Foro Programacion
Tutoriales Programacion Trucos Programacion Codigos Programacion

RE: Impresion con PrintDocument

Estimado J.M. Mobilla, con respecto a tu comentario, definitivamente soy culpable de mal caracter, pero se reconozco errores, desde ya les ofresco una disculpa, tanto a tu persona como a los del resto del panel, ya que la acumulacion de mi frustacion al no encontrar o mejor no entender una solucion, desgraciadamente para mi si es una devocion la programacion como otras actividades, yo soy miembro de un panel en otro tema completamente ajeno a la informatica, pero mucho mas complejo y que se necesita mucha experiencia, procuro dar soluciones rapidas y efectivas.

Lamentablemete yo creo que todos debieramos ser asi, pero no lo somos.

Respetuosamente si nos metemos a moderar algo que no podemos atender por estar demasiado tiempo en nuestro trabajo, mejor dejemosle espacio a los que si tienen tiempo, como dije anteriormente si necesitan mi ayuda tienen mi correo.

Yo si procurare responderles prontamente (aunque sea para decirles que de eso si no se ), pero no se sentiran solos.

El codigo alli esta, funciona y en lo personal, si encaso usted necesita de mi ayuda cuente conmigo, de una manera u otra le doy una solucion.

No me queda mas que despedirme definitivamente de este panel, reitero mi compromiso con los que quieran una ayuda.

"Vivamos cada día, como que fuera el ultimo de nuestra vida,
y aprendamos como que fueramos a vivir eternamente"

Saludos

D.



</TR>

RE: Impresion con PrintDocument

<BLOCKQUOTE><SPAN class=texto_mini>Escrito originalmente por Dracko1</SPAN>

__________________
Pablo Tilotta
Administrador de...
www.vb-mundo.com
Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion
Visual Basic.NET