eginPrint(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintEventArgs) Handles PrintDocument1.BeginPrint
checkPrint = 0
End Sub

Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
' Print the content of the RichTextBox. Store the last character printed.
checkPrint = RichTextBoxPrintCtrl1.Print(checkPrint, RichTextBoxPrintCtrl1.TextLength, e)

' Look for more pages
If checkPrint < RichTextBoxPrintCtrl1.TextLength Then
e.HasMorePages = True
Else
e.HasMorePages = False
End If
End Sub

Private Sub btnPageSetup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPageSetup.Click.Click
PageSetupDialog1.ShowDialog()
End Sub

Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click
If PrintDialog1.ShowDialog() = DialogResult.OK Then
PrintDocument1.Print()
End If
End Sub

Private Sub btnPrintPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrintPreview.Click
PrintPreviewDialog1.ShowDialog()
End Sub

12. 要运行该应用程序，请单击“调试”菜单上的“开始”。
13. 在“RichTextBoxPrintCtrl”中键入文本。
14. 要设置页面设置，请单击“页面设置”。
15. 要预览该页，请单击“打印预览”。
16. 要打印“RichTextBoxPrintCtrl”的内容，请单击“打印”。

上一页  [1] [2] [3] 

在google里搜索更多NET中打印包含有格式的 RichTextBox 的内容

	Web www.51ec.org

上一篇信息学院： 创建ASP.NET WEB自定义控件——例程1…

下一篇信息学院： ASP.NET下的Page Controller以及Template Method…