Printing RTFbox

[Cakkie]

Anyone knows of a good routine to print the content of an richtextbox? The problem I'm encountring is handling different font sizes.
Any examples/suggestions welcome.

[russgreen]

I cannot answer your question but I am also trying to do this. Did you find out the solution?

Russ

[Iouri]

Originally posted by Cakkie
Anyone knows of a good routine to print the content of an richtextbox? The problem I'm encountring is handling different font sizes.
Any examples/suggestions welcome.

Hi Tom.
Here is the code how open file to RTB and then print it

'Open file to RTB and print RTB

'To print multiple pages we have to create virtual page of text called PrintPage and then add text to it
'until page is full
'Controls: OpenFileDialog1, PrintDocument1, PrintDialog1

------------------------------------------------------------------------------------------------------
Imports System.IO  'for FileStream class
Imports System.Drawing.Printing

Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "
#End Region

    Private PrintPageSettings As New PageSettings()
    Private StringToPrint As String
    Private PrintFont As New Font("Arial", 10)

    Private Sub btnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpen.Click
        Dim FilePath As String
        'Display Open dialog box and select text file
        OpenFileDialog1.Filter = "Text files (*.txt)|*.txt"
        OpenFileDialog1.ShowDialog()
        'If Cancel button not selected, load FilePath variable
        If OpenFileDialog1.FileName <> "" Then
            FilePath = OpenFileDialog1.FileName
            Try
                'Read text file and load into RichTextBox1
                Dim MyFileStream As New FileStream(FilePath, FileMode.Open)
                RichTextBox1.LoadFile(MyFileStream, _
                  RichTextBoxStreamType.PlainText)
                MyFileStream.Close()
                'Initialize string to print
                StringToPrint = RichTextBox1.Text
                'Enable Print button
                btnPrint.Enabled = True
            Catch ex As Exception
                'display error messages if they appear
                MessageBox.Show(ex.Message)
            End Try
        End If
    End Sub

    Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click
        Try
            'Specify current page settings
            PrintDocument1.DefaultPageSettings = PrintPageSettings
            'Specify document for print dialog box and show
            StringToPrint = RichTextBox1.Text
            PrintDialog1.Document = PrintDocument1
            Dim result As DialogResult = PrintDialog1.ShowDialog()
            'If click OK, print document to printer
            If result = DialogResult.OK Then
                PrintDocument1.Print()
            End If
        Catch ex As Exception
            'Display error message
            MessageBox.Show(ex.Message)
        End Try
    End Sub

    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim numChars As Integer
        Dim numLines As Integer
        Dim stringForPage As String
        Dim strFormat As New StringFormat()
        'Based on page setup, define drawable rectangle on page
        Dim rectDraw As New RectangleF(e.MarginBounds.Left, e.MarginBounds.Top, _
          e.MarginBounds.Width, e.MarginBounds.Height)
        'Define area to determine how much text can fit on a page
        'Make height one line shorter to ensure text doesn't clip
        Dim sizeMeasure As New SizeF(e.MarginBounds.Width, _
          e.MarginBounds.Height - PrintFont.GetHeight(e.Graphics))

        'When drawing long strings, break between words
        strFormat.Trimming = StringTrimming.Word
        'Compute how many chars and lines can fit based on sizeMeasure
        e.Graphics.MeasureString(StringToPrint, PrintFont, sizeMeasure, strFormat, numChars, numLines)
        'Compute string that will fit on a page
        stringForPage = StringToPrint.Substring(0, numChars)
        'Print string on current page
        e.Graphics.DrawString(stringForPage, PrintFont, Brushes.Black, rectDraw, strFormat)
        'If there is more text, indicate there are more pages
        If numChars < StringToPrint.Length Then
            'Subtract text from string that has been printed
            StringToPrint = StringToPrint.Substring(numChars)
            e.HasMorePages = True
        Else
            e.HasMorePages = False
            'All text has been printed, so restore string
            StringToPrint = RichTextBox1.Text
        End If
    End Sub
End Class

[russgreen]

Iouri

Thats just prints everything in 10pt Ariel. It doesn't handle the rich text correctly. As you know, the richtextbox can have text in multiple fonts and multiple sizes. This printing funtion just overrides all that formatting and makes in all the same. OK if you printing from a multiline textbox but not what you want from a richtextbox. The code below is what I'm currently using but it kind of makes using a rtb pointless.

Russ

    Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click
        PrintDocument()
    End Sub
    Private Sub btnPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPreview.Click
        prnPreview.Document = prnDoc
        prnPreview.ShowDialog()
    End Sub
    Private Sub prnDoc_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles prnDoc.PrintPage
        e.Graphics.DrawString(rtbReport.Text, rtbReport.Font, Brushes.Black, e.MarginBounds.Left, e.MarginBounds.Top)
    End Sub 'prnDoc_PrintPage
    Private Sub PrintDocument()
        prnDoc.DocumentName = "data report"
        prnDialog.Document = prnDoc

        If prnDialog.ShowDialog = DialogResult.OK Then
            prnDoc.Print()
        End If
    End Sub   ' PrintDocument

[Mendel]

I used this in VB6, don't know to what extend it works or needs modifications to work in .Net (does SelPrint still exist?)...

       
    CommonDialog1.Flags = cdlPDReturnDC + cdlPDNoPageNums
    If RichTextBox1.SelLength = 0 Then
       CommonDialog1.Flags = CommonDialog1.Flags + cdlPDAllPages
    Else
       CommonDialog1.Flags = CommonDialog1.Flags + cdlPDSelection
    End If
    CommonDialog1.ShowPrinter
    Printer.Print ""
    RichTextBox1.SelPrint CommonDialog1.hDC

De groeten