我试了一下,没问题阿。
Dim pkInstalledPrinters As String
        For Each pkInstalledPrinters In System.Drawing.Printing.PrinterSettings.InstalledPrinters
            comboInstalledPrinters.Items.Add(pkInstalledPrinters)
        Next是不是你忘了引用命名空间