Private Sub SeiteEinrichtenToolStripMenuItem_Click(ByVal sender As _
  System.Object, ByVal e As System.EventArgs) Handles _
  SeiteEinrichtenToolStripMenuItem.Click
        setdlg.ShowDialog()
    End Sub
 
    Private Sub DruckvorschauToolStripMenuItem_Click(ByVal sender As _
      System.Object, ByVal e As System.EventArgs) Handles _
      DruckvorschauToolStripMenuItem.Click
        prndoc.DocumentName = Text
        strPrintText = TextBox1.Text
        iStartPage = 1
        iNumPages = prndlg.PrinterSettings.MaximumPage
        iPageNumber = 1
        predlg.ShowDialog()
    End Sub
 
    Private Sub DruckenToolStripMenuItem_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles DruckenToolStripMenuItem.Click
        prndlg.AllowSelection = TextBox1.SelectionLength > 0
        If prndlg.ShowDialog() = Windows.Forms.DialogResult.OK Then
            prndoc.DocumentName = Text
 
            'Einige wichtige Felder initialisieren.
            Select Case prndlg.PrinterSettings.PrintRange
                Case PrintRange.AllPages
                    strPrintText = TextBox1.Text
                    iStartPage = 1
                    iNumPages = prndlg.PrinterSettings.MaximumPage
                Case PrintRange.Selection
                    strPrintText = TextBox1.SelectedText
                    iStartPage = 1
                    iNumPages = prndlg.PrinterSettings.MaximumPage
                Case PrintRange.SomePages
                    strPrintText = TextBox1.Text
                    iStartPage = prndlg.PrinterSettings.FromPage
                    iNumPages = prndlg.PrinterSettings.ToPage - iStartPage + 1
            End Select
        End If
    End Sub
 
Private Function CharsInLines(ByVal strPrintText As String, ByVal iNumLines As _
  Integer) As Integer
        Dim index As Integer = 0
        Dim i As Integer
        For i = 0 To iNumLines - 1
            index = 1 + strPrintText.IndexOf(vbLf, index)
            If index = 0 Then
                Return strPrintText.Length
            End If
        Next i
        Return index
    End Function