使用制表符格式打印 WinForms 文本框

Question

我一直在研究一些打印列出联系信息的文本框的代码。当我尝试打印它时，它不会打印出我用来格式化文本的选项卡。这是我的代码：

Private Sub PrintPage(ByVal sender As Object, ByVal ev As PrintPageEventArgs) _
Handles prndoc.PrintPage

    Dim fnt As Font = resultTextBox.Font
    ev.Graphics.TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAlias

    Dim area As SizeF = New SizeF(ev.MarginBounds.Width, ev.MarginBounds.Height)
    Dim lines, chars As Integer
    ev.Graphics.MeasureString(resultTextBox.Text.Substring(mStringPos), fnt, _
                              area, StringFormat.GenericTypographic, chars, _
                              lines)

    Dim rc As New RectangleF(ev.MarginBounds.Left, ev.MarginBounds.Top, _ 
                             ev.MarginBounds.Width, ev.MarginBounds.Height)
    ev.Graphics.DrawString(resultTextBox.Text.Substring(mStringPos, chars), _
                           fnt, Brushes.Black, rc, _
                           StringFormat.GenericTypographic)

    mStringPos += chars

    ev.HasMorePages = mStringPos < resultTextBox.Text.Length
End Sub

有人可以告诉我我做错了什么吗？

Answer 1

如果你这样做会发生什么？

Dim fmt as StringFormat
fmt = StringFormat.GenericTypographic
fmt.SetTabStops( -- put something here --  )
ev.Graphics.DrawString(resultTextBox.Text.Substring(mStringPos, chars), _
                           fnt, Brushes.Black, rc, _
                           fmt)

这会改变事情吗？ （检查我的语法 - 我通常不使用 VB。）