LOCAL oCR
LOCAL oRpt

oCR = CREATEOBJECT(“CrystalRuntime.Application”)
oRpt = oCR.OpenReport(“C:\Temp\myreport1.RPT”)
IF oRpt.HasSavedData
oRpt.DiscardSavedData()
ENDIF
oRpt.PrintOut()

You can setup printer using this two options:
PrinterSetup( )
SelectPrinter( )