none
Imprimir formato paisagem RichTextBox - VB 2010 RRS feed

  • Pergunta

  • Senhores.

    Sou iniciante com conhecimento muito limitado tentando algo diferente para ajudar meu dia a dia de trabalho.

    Uso o VB 2010 e estou com dificuldades de imprimir um texto do RichTextBox em formato Paisagem, pois em Retrato o texto fica muito pra direita e fora da área de impressão.

    O documento imprime, apesar de ir direto pra impressora padrão. Gostaria de poder escolher a impressora, mas também não consigo. Mas este não é meu maior problema.

    Podem ajudar? Os códigos atuais são:

    Private Sub imprimir_Click(sender As System.Object, e As System.EventArgs) Handles imprimir.Click
            PrintPreviewDialog1.ShowDialog()
        End Sub

        Private Sub PrintDocument1_PrintPage_1(sender As System.Object, e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
            Dim font1 As New Font("Arial", 10, FontStyle.Regular)
            PrintDocument1.DefaultPageSettings.Landscape = True
            e.Graphics.DrawString(RichTextBox1.Text, Font, Brushes.Black, 100, 100)
        End Sub

    Desde já, agradeço.

    sexta-feira, 13 de fevereiro de 2015 04:02

Respostas