已经实现了打印，但是打印控制不够，都没下边界和右边界：
Public Sub PrintText(ByVal sender As Object, ByVal ev As Printing.PrintPageEventArgs)
ev.Graphics.DrawString(_rtx.Text, _rtx.Font, Brushes.Black, 96, 96)
'ev.HasMorePages = False
End Sub
Dim dlg As New Windows.Forms.PrintDialog
dlg.AllowSomePages = True
dlg.AllowCurrentPage = True
dlg.AllowSelection = True
dlg.ShowHelp = True
If dlg.ShowDialog = DialogResult.Ok Then
Dim PrintDoc As New Printing.PrintDocument
AddHandler PrintDoc.PrintPage, AddressOf PrintText
PrintDoc.Print()
End If
加好友 
发短信
Post By：2016/3/6 15:49:00 [只看该作者]
