Vb.net 使用PrintDocument打印组合框的所有项目

Vb.net 使用PrintDocument打印组合框的所有项目,vb.net,winforms,visual-studio-2010,printdocument,Vb.net,Winforms,Visual Studio 2010,Printdocument,我试图打印程序中组合框的所有内容,编号为 组合框1内容: Yes No Maybe No Opinion 到目前为止,我的PrintDocument1代码: Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage Dim hor

我试图打印程序中组合框的所有内容,编号为

组合框1内容:

Yes

No

Maybe

No Opinion
到目前为止,我的PrintDocument1代码:

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
    Dim horizontalPrintPosition As Single
    Dim verticalPrintPosition As Single
    Dim PrintFont As New Font("Arial", 12)
    e.Graphics.DrawString("Info from ComboBox1 would go here", PrintFont, Brushes.Black, horizontalPrintPosition, verticalPrintPosition)
End Sub
例如,所需的输出为:

1. Yes

2. No

3. Maybe

4. No Opinion

谢谢

您需要遍历
组合框
Items集合来获取您的值,类似这样的内容

Private Sub PrintDocument1_PrintPage(sender As System.Object, e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
    Dim horizontalPrintPosition As Single
    Dim verticalPrintPosition As Single
    Dim PrintFont As New Font("Arial", 12)

    For x = 0 To ComboBox1.Items.Count - 1
        e.Graphics.DrawString((x + 1).ToString() & ". " & ComboBox1.Items(x).ToString(), PrintFont, Brushes.Black, horizontalPrintPosition, verticalPrintPosition)
        verticalPrintPosition += PrintFont.Height
    Next

End Sub

您发布的代码似乎与您的问题无关。您试图打印的编号版本是什么?