主题：Excel打印如何指定打印机？

创建窗体,在窗体上创建下拉窗口,在窗体的AfterLoad的事件中写入下面代码,就能列出本地打印机列表

Dim LocalPrinters As String="|"

For Each LocalPrinter As String In InstalledPrinters
    LocalPrinters=LocalPrinters+"|"+LocalPrinter
Next

Dim cmb As WinForm.ComboBox
cmb = Forms("窗口1").Controls("ComboBox1")
cmb.ComboList =  LocalPrinters