Crystal Report如何動態指定印列印表机??(編號：3485)

我在程式中加了
Public Sub PutPrinter()
Dim x As Printer
　 For Each x In Printers
　　　Combo1.AddItem x.DeviceName
　 Next
　 Combo1.ListIndex = 0
End Sub
Private Sub Combo1_Click()
Set Printer = Printers(Combo1.ListIndex)
End Sub
當我選完combo1的印表机時,可是列印報表時還是指定原來預設的印表机.
請高手救救我.謝謝!!