关于水晶报表的问题，答对立刻结贴

请问各位，我在vb中用了水晶报表控件，我想用程序来控制报表的输出打印机，我用了msdn中的例子For Each prtX In Printers
                    If prtX.DeviceName = strPrintName Then
                        Set Printer = prtX
                       Exit For
                    End If
                Next
好像没什么作用啊，哪为大虾帮帮忙啊，急用埃~~