Hi All,
i am printing invoices from form and executes codes from method like below , at preview there is no problem but when i printed hardcopy to the printer after the preview screen+print vfp lost the data why i coldnt the reason.

TIA

* print invoices method codes
Set Safety Off

Select params.paramid,params.paramadi From 	Addbs(m.gcdata)+'params' ;
	WHERE paramid='FAT' Into Cursor CrsFatName

lcReportName=Alltrim(CrsFatName.paramadi)

Select (Thisform.dosya1)
m.lcmyguid=stokhb.myguid
lnRec1=RECNO(thisform.dosya1)
lnRec2=RECNO(thisform.dosya2)

Select cari.ckodu,cari.cadi,cari.adres,cari.vda,cari.vno,;
	stokhb.ckodu From cari ;
	INNER Join stokhb On cari.ckodu==_Screen.ActiveForm.txtkod.Value ;
	into Cursor CrsTempCari Readwrite

Select Alltrim(CrsTempCari.cadi) As ckodad,;
	ALLTRIM(CrsTempCari.adres) As adres,;
	ALLTRIM(CrsTempCari.vda) As vda,Alltrim(CrsTempCari.vno) As vno,;
	stokhb.* From CrsTempCari,stokhb ;
	Where  ;
	stokhb.myguid=m.lcmyguid ;
	Into Cursor CrsFatBaslik Readwrite

Select Alltrim(Stok.skodu) As skodu,Alltrim(Stok.sadi) As sadi,;
	Stok.birim1 As birim,stokhd.miktar,stokhd.fiyat,iskonto,iskonto2,iskonto3,;
	stokhd.tutar ;
	From Stok ;
	INNER Join stokhd On stokhd.skodu=Stok.skodu;
	Where  ;
	stokhd.pmyguid=m.lcmyguid ;
	Into Cursor CrsFatDetay Readwrite

_Screen.Closable=.F.
=_Screen.ActiveForm.repwindow(.T.)

Repo Form (m.gcReportdir + "\" + m.lcReportName) To ;
	Prin Prom Prev Wind repwindow

=_Screen.ActiveForm.repwindow(.F.)
_Screen.Closable=.T.

If Type("_Screen.ActiveForm.ActiveControl")=="O"
	Local loActiveControl22
	m.loActiveControl22 = _Screen.ActiveForm.ActiveControl
	If m.loActiveControl22.BaseClass = "Grid"
		Go m.lnrec2 In (Thisform.dosya2)
	Else
		Go m.lnrec1 In (Thisform.dosya1)
	Endif
endif 

Use In CrsTempCari
Use In CrsFatBaslik
Use In CrsFatDetay
Use In CrsFatName

*repwindow method codes
PARAMETERS tDefine
LOCAL nWidth, nHeight
IF tDefine
   nWidth = _SCREEN.WIDTH/FONTMETRIC(6,_SCREEN.FONTNAME,_SCREEN.FONTSIZE)
   nHeight = _SCREEN.HEIGHT/FONTMETRIC(1,_SCREEN.FONTNAME,_SCREEN.FONTSIZE)-2
   DEFINE WINDOW repwindow AT 0,0 SIZE nHeight,nWidth SYSTEM ZOOM ;
      CLOSE FLOAT TITLE "Report Viewer - Rapor Önizleme" ;
      FONT _SCREEN.FONTNAME,_SCREEN.FONTSIZE NAME repwindow
ELSE
   RELEASE WINDOW repwindow
ENDIF