How I use the selectprinter()
I want to use the select printer because I sent to print a multiple report at the same time but some reports I want to send to diferent printer no the default printer set in crystal report.


LOCAL OCR
LOCAL ORPT
cpath=ALLTRIM(THISFORM.TExt1.Value)
select repprint
with thisform.list2
for i = 1 to .listcount
if .Selected[i]
cReport1=ALLTRIM(thisform.list2.List(i))
crpt=cpath+creport1
OCR = CREATEOBJECT("CrystalRuntime.Application")
ORPT = OCR.OPENREPORT(crpt)
IF ORPT.HASSAVEDDATA
ORPT.DISCARDSAVEDDATA()
ENDIF
ORPT.PRINTOUT()
cReport1=''
crpt=''
ENDIF
GO i
endfor
ENDWITH