在Excel VBA中，如果需要查询Excel当前打印机名称以方便用户的操作，可通过VBA查询Excel当前打印机名称。Excel2003可通过VBA宏查询Excel当前打印机名称。
查询Excel当前打印机名称的方法：
首先按“Alt+F11”组合键，Excel2003打开代码编辑器，单击“插入”菜单-“模块”，双击插入的模块，在右侧的代码窗口中输入：
Sub Excel_Partner()
MsgBox "Excel当前打印机名称为：" & Application.ActivePrinter
End Sub
按F5运行键运行程序，返回当前系统下Excel当前打印机名称。