使用PrintDocument打印所有項目的組合框

Question

我想在一個程序中打印一個組合框的所有內容，編號。

ComboBox1內容：

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 

謝謝！

Answer 1

您將需要遍歷ComboBox 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