打印所有的滚动文本框

Question

在VB.NET中编程，并有另一个小问题。我有一个使用StreamReader从txt文件填充的TextBox。基本上我有一个打印选项，但只能打印TextBox中显示的内容，如果在下一页需要滚动的TextBox中有更多信息，则不会打印（希望有意义！）。有没有什么办法可以解决这个问题，以便打印所有的信息？

这里是我的代码：

Imports System.Drawing.Printing 

Public Class JobList 
    Private Sub JobList_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
     Dim objReader As New System.IO.StreamReader("C:\test\JobLog.txt", True) 
     txtJL.Text = objReader.ReadToEnd 
     objReader.Close() 
    End Sub 

    Private Sub printText(ByVal sender As System.Object, ByVal ev As PrintPageEventArgs) 
     Dim font As New Font("Arial", 16, FontStyle.Regular) 
     ev.Graphics.DrawString(txtJL.Text, font, Brushes.Black, 100, 100) 
    End Sub 

    Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click 
     Dim printDoc As New PrintDocument 
     AddHandler printDoc.PrintPage, AddressOf Me.printText 
     printDoc.Print() 
    End Sub 
End Class 

Answer 1

How to print from a StreamReader on MSDN，向下滚动 - 有一个例子。从String打印时可能需要稍微修改，然后您可以将TextBox.Text传递给它。或者只是使用AS IS并从StreamReader打印 - 无论如何应该得到相同的结果。