Antarez

ola buenas, mi problema es el sgte: Nesesito generar una informe para imprimirlo, resulta que me lo muestra en la vista preliminar y logro imprimirlo, pero el problema esta en que me aparece todo en una hoja y no pasa a la hoja siguiente, es decir me muetra hasta lo que alcanza en la hoja 1 y el resto no aparece, en vez de aparecer en una segunda hoja. El codigo que utilizo es el siguiente: 'Este es el boton que genera el informe a imprimir: Private Sub botonInforme_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles botonInforme.Click Dim papel As New PrintDocument AddHandler papel.PrintPage, AddressOf Imprimir Dim verPapel As New PrintPreviewDialog verPapel.Document = papel verPapel.Show() End Sub 'esta es la funcion con lo que se va a imprimir: Private Sub Imprimir(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Static pageNum As Integer Dim i As Integer = 20 Dim j As Integer = 800 Dim count As Integer = 0 Dim prFont As New Font("ARIAL", 15, GraphicsUnit.Point) Dim negrita As New Font("ARIAL", 15, FontStyle.Bold) e.Graphics.DrawString("Estado de la Faena", New Font("Arial", 24), Brushes.Black, 100, 50) e.Graphics.DrawString("Fecha: " & DateString, prFont, Brushes.Black, 100, 110) e.Graphics.DrawString("Página " & pageNum + 1, prFont, Brushes.Black, 650, 1100) e.Graphics.DrawLine(Pens.Black, 70, 160 + i, 290, 160 + i) e.Graphics.DrawString("Datos Faena", negrita, Brushes.Black, 300, 150 + i) e.Graphics.DrawLine(Pens.Black, 440, 160 + i, 740, 160 + i) e.Graphics.DrawString("Faena", prFont, Brushes.Black, 100, 180 + i) e.Graphics.DrawString(labelFaena.Text, prFont, Brushes.Black, 270, 180 + i) e.Graphics.DrawString("Fecha de Inicio", prFont, Brushes.Black, 100, 210 + i) e.Graphics.DrawString(labelfecha.Text, prFont, Brushes.Black, 270, 210 + i) e.Graphics.DrawString("Cliente", prFont, Brushes.Black, 100, 240 + i) e.Graphics.DrawString(labelCliente.Text, prFont, Brushes.Black, 270, 240 + i) e.Graphics.DrawLine(Pens.Black, 70, 290 + i, 740, 290 + i) e.Graphics.DrawLine(Pens.Black, 70, 350, 310, 350) e.Graphics.DrawString("Avance", prFont, Brushes.Black, 320, 340) e.Graphics.DrawLine(Pens.Black, 400, 350, 740, 350) e.Graphics.DrawString("Cantidad Faenada", prFont, Brushes.Black, 100, 370) e.Graphics.DrawString(labelCantidad.Text, prFont, Brushes.Black, 370, 370) e.Graphics.DrawString("Valor a cobrar por unidad", prFont, Brushes.Black, 100, 400) e.Graphics.DrawString(labelValorCobrar.Text, prFont, Brushes.Black, 370, 400) e.Graphics.DrawString("Valor total por cobrar", prFont, Brushes.Black, 100, 430) e.Graphics.DrawString(labelValorFaenado.Text, prFont, Brushes.Black, 370, 430) e.Graphics.DrawLine(Pens.Black, 70, 480, 740, 480) e.Graphics.DrawLine(Pens.Black, 70, 540 - i, 310, 540 - i) e.Graphics.DrawString("Egresos", prFont, Brushes.Black, 320, 530 - i) e.Graphics.DrawLine(Pens.Black, 410, 540 - i, 740, 540 - i) e.Graphics.DrawString("Sueldos", prFont, Brushes.Black, 100, 560 - i) e.Graphics.DrawString(labelCantidad.Text, prFont, Brushes.Black, 270, 560 - i) e.Graphics.DrawString("Arriendos", prFont, Brushes.Black, 100, 590 - i) e.Graphics.DrawString(labelValorCobrar.Text, prFont, Brushes.Black, 270, 590 - i) e.Graphics.DrawString("Otros Gastos", prFont, Brushes.Black, 100, 620 - i) e.Graphics.DrawString(labelValorFaenado.Text, prFont, Brushes.Black, 270, 620 - i) e.Graphics.DrawLine(Pens.Black, 70, 670 - i, 740, 670 - i) e.Graphics.DrawLine(Pens.Black, 70, 730 - i, 310, 730 - i) e.Graphics.DrawString("Ingresos", prFont, Brushes.Black, 320, 720 - i) e.Graphics.DrawLine(Pens.Black, 410, 730 - i, 740, 730 - i) e.Graphics.DrawString("Valor total por cobrar", prFont, Brushes.Black, 100, 750 - i) e.Graphics.DrawString(labelValorFaenado.Text, prFont, Brushes.Black, 370, 750 - i) e.Graphics.DrawString("Pagos cliente", prFont, Brushes.Black, 100, 780 - i) e.Graphics.DrawString(labelPagado.Text, prFont, Brushes.Black, 370, 780 - i) e.Graphics.DrawString("Saldo por cobrar", prFont, Brushes.Black, 100, 810 - i) e.Graphics.DrawString(labelSaldo.Text, prFont, Brushes.Black, 370, 810 - i) e.Graphics.DrawString("Otros ingresos", prFont, Brushes.Black, 100, 840 - i) e.Graphics.DrawString(labelOtrosIngresos.Text, prFont, Brushes.Black, 370, 840 - i) e.Graphics.DrawLine(Pens.Black, 70, 890 - i, 790, 890 - i) e.Graphics.DrawLine(Pens.Black, 70, 950 - i, 310, 950 - i) e.Graphics.DrawString("Resumen Actual Proyectado", prFont, Brushes.Black, 320, 940 - i) e.Graphics.DrawLine(Pens.Black, 410, 950 - i, 790, 950 - i) e.Graphics.DrawString("Total ingresos", prFont, Brushes.Black, 100, 970 - i) e.Graphics.DrawString(labelIngresos.Text, prFont, Brushes.Black, 270, 970 - i) e.Graphics.DrawString("Total egresos", prFont, Brushes.Black, 100, 1000 - i) e.Graphics.DrawString(labelEgresos.Text, prFont, Brushes.Black, 270, 1000 - i) e.Graphics.DrawString("Utilidad", prFont, Brushes.Black, 100, 1030 - i) e.Graphics.DrawString(labelGanancia.Text, prFont, Brushes.Black, 270, 1030 - i) e.Graphics.DrawLine(Pens.Black, 70, 1080 - i, 790, 1080 - i) e.Graphics.DrawLine(Pens.Black, 70, 1140 - i, 310, 1140 - i) e.Graphics.DrawString("Resumen Actual Proyectado", prFont, Brushes.Black, 320, 1130 - i) e.Graphics.DrawLine(Pens.Black, 410, 1140 - i, 790, 1140 - i) e.Graphics.DrawString("Total ingresos", prFont, Brushes.Black, 100, 1160 - i) e.Graphics.DrawString(labelIngresos.Text, prFont, Brushes.Black, 270, 1160 - i) e.Graphics.DrawString("Total egresos", prFont, Brushes.Black, 100, 1190 - i) e.Graphics.DrawString(labelEgresos.Text, prFont, Brushes.Black, 270, 1190 - i) e.Graphics.DrawString("Utilidad", prFont, Brushes.Black, 100, 1220 - i) e.Graphics.DrawString(labelGanancia.Text, prFont, Brushes.Black, 270, 1220 - i) e.Graphics.DrawLine(Pens.Black, 70, 1270 - i, 790, 1270 - i) End Sub He intentado con el HasMorePages pero parece que no va por ahi la cosa o no lo utilizo bien. Espero me puedan ayudar, desde ya gracias...

yo antes me fumaba una cajetilla de 20 diario y ahora voy en 5 diarios en promedio. hace tiempo ya que quiero dejarlo por completo pero me cuesta y eso si que uno ya sabe todos los problemas que trae: - posiblidades de cancer. - problemas pulmonares. - problemas bucales. - ademas no es ralajante como muchos piensasn si no que acelera el ritmo cardiaco. - problemas al corazon hipertencion. - un gastadero de plata. - adai ediondo. - y un muy largo etc. Mira yo creo que no es solo cuestion de fuerza de voluntad: es importante obviamente pero no es solo eso. Es ademas una cuestion de consientisarse que el cigarro es un veneno que no te aporta nada bueno, son solo ilusiones falsas, y solo produce grandes daños. yo asi he logrado disminuir bastante su consumo y un dia de estos pienso dejarlo por completo.

excelente noticia, que bueno k el apoyo k dieron todas las comunidades dio sus frutos y k bueno k por fin estos politicos ladrones y sinverguenzas escucharon la voz del pueblo. que bueno que existan comunidades que informen sobre estas cosas tan importantes como estas y que luchen por los derechos de nosotros los cibernautas, ya k sino existieran nadie se hubiese enterado (ya que en la tv o en otras paginas de noticias no informaron nada, solo informan lo que les conviene o lo manipulan), y ahi si que se hubieze promulgado la ley. Agradesco a las comunidades, a los internautas y a los diputados que acturaon de forma etica. :bravo: :bravo: :bravo: :bravo: :bravo: :bravo: :bravo: :bravo: :bravo: :bravo: :bravo: :bravo: :bravo: :bravo: :bravo:

Gattaca Es una excelente película de ciencia ficción que trata sobre un futuro donde es posible la selección genética en los recién nacidos, sin embargo todos no pueden optar a esta tecnología, estos son llamados no validos y son discriminados, este es el caso de Vincent, un joven que nace de forma natural y con diagnostico de problemas cardíacos, el hace lo hasta lo imposible para llegar a formar parte de la empresa de vuelos espaciales Gattaca. TITULO ORIGINAL: Gattaca AÑO: 1997 DURACIÓN: 106 min. PAÍS: USA DIRECTOR: Andrew Niccol GUIÓN: Andrew Niccol MÚSICA: Michael Nyman FOTOGRAFÍA; Slawomir Idziak REPARTO: Ethan Hawke, Uma Thurman, Jude Law, Loren Dean, Alan Arkin, Gore Vidal, Xander Berkeley, Elias Koteas, Ernest Borgnine, Tony Shalhoub, Blair Underwood PRODUCTORA: Jersey Films / Columbia Pictures

tienes que desarmar el notebook y sacar la pila por mas de 30 segundos luego la colocas y listo, igual que en los tarros, a menos que sea de esos que guardan la clave en un un chip aparte. bueno suerte...

vale lokillo por el juego se ve weno.

muchas gracias men, epectacular aporte, yo tengo el 2 y es weno y me dijeron que este era mejor.