• Martes 14 de Mayo de 2024, 04:13
« anterior próximo »
Páginas: [1]

Autor Tema:  Imprimir En Vb.net  (Leído 4698 veces)

patoal

  • Nuevo Miembro
  • *
  • Mensajes: 22
    • Ver Perfil
Imprimir En Vb.net
« en: Jueves 2 de Marzo de 2006, 01:39 »
0
Gente alguien podria explicar como imprimir en vb.net

con las opciones de modificar hola, color o negro, seleccionar impresora y todas esas cosas ..

yo tengo tengo un codigo para imprimir que funciona pero el usuario no puede conficurar las opciones de imprecion , estan establecidas por el programador

aca va el codigo   :smartass:  imprime por defecto en azul porq es el unico color q me queda en la impresora  :P   para cambiarlo busquen Brushes.Blue, _  y pongan por ejemplo Brushes.Black, _  o  Brushes.Red, _ o lo que quieran jeje

para probar agregar un label ( label1) textbox  ( texbox1)   y un boton (button)

Código: Text
  1.  
  2.  
  3. ' agregar esta ref ..   System.Drawing
  4.  
  5.  
  6. Imports System.Drawing.Printing
  7.  
  8.  
  9.     Dim ContenidoDelTexto As PrintPageEventArgs
  10.     Dim WithEvents Reporte As New PrintDocument()
  11.  
  12.  
  13.  
  14.     Private Sub Button_Click(ByVal sender As System.Object, ByVal _
  15.     e As System.EventArgs) Handles Button.Click
  16.         Dim printdialog As New PrintDialog()
  17.         Dim printsettings As New PrinterSettings()
  18.         printdialog.ShowDialog()
  19.  
  20.  
  21.  
  22.  
  23.         Reporte.Print()
  24.  
  25.     End Sub
  26.  
  27.  
  28.  
  29.  
  30.     Private Sub Reporte_PrintPage(ByVal sender As System.Object, ByVal _
  31.     e As System.Drawing.Printing.PrintPageEventArgs) Handles _
  32.     Reporte.PrintPage
  33.  
  34.  
  35.  
  36.  
  37.         ContenidoDelTexto = e
  38.  
  39.        
  40.  
  41.         ContenidoDelTexto.Graphics.DrawString(Label1.Text & vbCrLf & TextBox1.Text, _
  42.         New Font("Arial", 12), _
  43.         Brushes.Blue, _
  44.         ContenidoDelTexto.MarginBounds.Left, ContenidoDelTexto.MarginBounds.Top)
  45.  
  46.      
  47.        
  48.         ContenidoDelTexto.HasMorePages = False
  49.  
  50.        
  51.  
  52.     End Sub
  53.  
  54.  
  55.  
  56.     Dim impresora As New PrintDialog()
  57.  
  58.     Sub Configurar()
  59.         impresora.Document = Reporte
  60.         impresora.ShowDialog()
  61.         Reporte.PrinterSettings = impresora.PrinterSettings
  62.     End Sub
  63.    
  64.  
  65.  
  66.  

junahu

  • Miembro activo
  • **
  • Mensajes: 97
    • Ver Perfil
Re: Imprimir En Vb.net
« Respuesta #1 en: Sábado 4 de Marzo de 2006, 02:37 »
0
Yo utilizo Crystal Report, pero te escribo algunos controles que creo que te ayuden:
Control PrintPreviewDialog: control que permite ver el resultado que se va a enviar a la impresora, antes de dar la orden.
  me.PrintPreviewDialog1.Document=Me.PrintDocument1
  me.PrintPreviewDialog1.Show

Control PrintPreviewControl: control parecido al anterior.
  me.PrintPrevciewControl1.Document=Me.PrintDocument1

Control PageSetupDialog: A través de este control, se puede modificar los márgenes de impresión.
  me.PageSetupDialog1.ShowDialog
 :whistling:

thebigmen27

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Re: Imprimir En Vb.net
« Respuesta #2 en: Viernes 24 de Marzo de 2006, 16:33 »
0
Mira yo estoy trabajando con Cristal y C# y tengo el problema de tratar de imprimir el reporte, de manera local me funciona pero cuando quiero mandar a la impresora de red me da un error de solicitud cancelada por el usuario...
te ha pasado esto :kicking:
Páginas: [1]
« anterior próximo »