Thanks. Above line help me lot to solve my problem.

To change printer in crystal report

Dim CrystalReport1 as CRAXDDRT.Report

CrystalReport1.PrinterSetup Me.hWnd