怎么用打印机的"名称"来指定打印机打印

如何用打印机的"名称"来指定打印机打印?
怎样指定打印机的名称来打印下面查询报表?

sql   =   "select   *   from   Rec_Flow   "
rs.Open   sql,   cn,   1,   1
DataEnvironment1.rsCommand1.Open   sql

If   DataEnvironment1.rsCommand1.State   =   adStateOpen   Then
          DataEnvironment1.rsCommand1.Close
      End   If
DataReport1.Show     '调出报表打印

------解决方案--------------------
http://forums.devx.com/showthread.php?t=36822
------解决方案--------------------
http://forums.devx.com/showthread.php?t=36822