已经实现了打印,但是打印控制不够,都没下边界和右边界:
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