Vb.net 使用PrintDocument打印组合框的所有项目
我试图打印程序中组合框的所有内容,编号为 组合框1内容: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
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
您发布的代码似乎与您的问题无关。您试图打印的编号版本是什么?