Jason:
or Use Dialogs
Dim DialogPrinter As Boolean
Dim ptr_name As String
DialogPrinter = Application.Dialogs(xlDialogPrinterSetup).Show
If DialogPrinter = False Then Exit Sub
ptr_name = Application.ActivePrinter
ptr_name = Left(ptr_name, InStr(1, ptr_name, " on") - 1)
ActiveWorkbook.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
--
天行健，君*以自強不息
地勢坤，君*以厚德載物
http://www.vba.com.tw/plog/
"Jason Zischke" wrote:
Is there a way for VB Excel to list all the avalable printers on your
computer in a ComboBox.