none
Imprimir un richtextbox con el formato que tiene inicialmente RRS feed

  • Pregunta

  • Que tal, agradezco la ayuda de los usuarios por ayudarme con mis dudas, soy un "programador" basico lo que conozco lo he aprendido por practicar y practicar viendo por internet. Aqui va mi duda:

    Estoy creando un como registro de datos desde una base de datos, anteriormente me solucionaro el problema para poder subrayar los datos de un datagridview a la hora que saliera en un richtextbox por ejemplo:

     

    RichTextBox1.SelectionIndent = 113<br/>RichTextBox1.SelectionRightIndent = 113
    RichTextBox1.SelectionFont = New Font("Arial", 12, FontStyle.Bold) RichTextBox1.SelectedText = "Nombre de menor: " Dim row As DataGridViewRow = DataGridView1.CurrentRow RichTextBox1.SelectionFont = New Font("Arial", 12, FontStyle.Underline) RichTextBox1.SelectedText = String.Format("{0} {1} {2}", row.Cells(1).Value, row.Cells(2).Value, row.Cells(3).Value) & _
     vbNewLine

     

    Lo que estoy haciendo es asignar a un richtextbox el espacio entre el margen izquierdo y derecho de 2.5 cm, para que a la hora de imprimir salga bien en una hoja normal. Pero no se manejar la forma de poder imprimir tal cual salga en un richtextbox con el formato que le estoy dando.

    Segun entiendo para imprimir necesito un PrintDocument1 y PrintDialog1 pero tengo que usar la propiedad "Graphics" para poder imprimir afuerza? tengo el siguiente codigo que imprime el richtextbox:

     

    Private Sub PrintDocument1_PrintPage() Handles PrintDocument1.PrintPage
    e.Graphics.DrawString(RichTextBox1.Text, New Font("Verdana", 18, FontStyle.Bold), Brushes.Black, 10, 10)
     End Sub
    Como le hago para imprimir con el formato que declare en el primer codigo que les mostre, y que no tenga que especificar otravez en Printdocument1?? Espero puedan ayudarme.
    Gracias de antemano

     



    • Editado Kokinho3 jueves, 11 de agosto de 2011 4:37 Errores
    jueves, 11 de agosto de 2011 4:37

Respuestas

Todas las respuestas