Mensaje dentro de Foro VB.NET

De nuevos a antiguos De antiguos a nuevos Cambia de foro Principiantes General Acceso y trabajo con datos AJAX y javascript XML Familia Visual Studio Foro C# Servicios Webs Controles de usuario

---

Impresion de TextBox

#1 - 26/08/2009 23:42:21 Reporta abuso | Link Permanente RubenR Usuario no registrado Impresion de TextBox hola a todos: Estoy haciendo un proyecto de en el cual ocupo imprimir el contenido de los textbox, estoy utilizando Webdeveloper 2008 con visual basic, lo que estoy ocupando es un ejemplo de como se hace la impresion, favor de ayudarme gracias. Volver arriba

---

Respuestas

Mostrar de 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 50 75 100 en 15

#2 - 09/09/2009 16:52:23 Reporta abuso | Link Permanente RARR Usuario no registrado RE: Impresion de TextBox Imports System.Drawing.Printing Imports System.Drawing _____________________________________________________________________ Partial Class Cyber_Impresiondocumento Inherits System.Web.UI.Page ______________________________________________________________________ Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)_Handles Button1.Click Dim printDoc As New PrintDocument AddHandler printDoc.PrintPage, AddressOf print_PrintPage printDoc.Print() End Sub ________________________________________________________________________ Private Sub print_PrintPage(ByVal sender As Object, ByVal e As PrintPageEventArgs) e.Graphics.DrawString(TextBox1.Text, New Font("Arial", 10, FontStyle.Regular), Brushes.Black, 30,30) e.HasMorePages = False End Sub End Class Volver arriba

#3 - 09/09/2009 1:55:52 Reporta abuso | Link Permanente RARR Usuario no registrado RE: Impresion de TextBox Imports System.Drawing.Printing Imports System.Drawing _____________________________________________________________________ Partial Class Cyber_Impresiondocumento Inherits System.Web.UI.Page ______________________________________________________________________ Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)_Handles Button1.Click Dim printDoc As New PrintDocument AddHandler printDoc.PrintPage, AddressOf print_PrintPage printDoc.Print() End Sub ________________________________________________________________________ Private Sub print_PrintPage(ByVal sender As Object, ByVal e As PrintPageEventArgs) e.Graphics.DrawString(TextBox1.Text, New Font("Arial", 10, FontStyle.Regular), Brushes.Black, 30, 30)Class Cyber_ImpresiondocumentoSystem.Drawing.Printing  e.HasMorePages = False End Sub End Class Volver arriba

#4 - 09/09/2009 1:51:00 Reporta abuso | Link Permanente RARR Usuario no registrado RE: Impresion de TextBox Imports Imports System.Drawing _____________________________________________________________________ Partial Inherits System.Web.UI.Page ______________________________________________________________________ Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)_Handles Button1.Click Dim printDoc As New PrintDocument AddHandler printDoc.PrintPage, AddressOf print_PrintPage printDoc.Print() End Sub ________________________________________________________________________ Private Sub print_PrintPage(ByVal sender As Object, ByVal e As PrintPageEventArgs) e.Graphics.DrawString(TextBox1.Text, New Font("Arial", 10, FontStyle.Regular), Brushes.Black, 30, 30)Class Cyber_ImpresiondocumentoSystem.Drawing.Printing  e.HasMorePages = False End Sub End Class Volver arriba

#5 - 09/09/2009 0:53:47 Reporta abuso | Link Permanente RARR Usuario no registrado RE: Impresion de TextBox Aqui esta el un ejemplo Imports Imports System.Drawing _____________________________________________________________________ Partial Inherits System.Web.UI.Page ______________________________________________________________________ Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)_Handles Button1.Click Dim printDoc As New PrintDocument AddHandler printDoc.PrintPage, AddressOf print_PrintPage printDoc.Print() End Sub ________________________________________________________________________ Private Sub print_PrintPage(ByVal sender As Object, ByVal e As PrintPageEventArgs) e.Graphics.DrawString(TextBox1.Text, e.HasMorePages = False End Sub End Class New Font("Arial", 10, FontStyle.Regular), Brushes.Black, 30, 30)Class Cyber_ImpresiondocumentoSystem.Drawing.Printing Volver arriba

Mostrar de 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 50 75 100 en 15