CLOSE all
Use "c:\program files\microsoft visual foxpro 9\visual foxpro projects\az.dbf"  order code1 In 1 exclu
Use "c:\program files\microsoft visual foxpro 9\visual foxpro projects\main1.dbf"  Order mcode In 3 exclu
use "c:\program files\microsoft visual foxpro 9\visual foxpro projects\main2.dbf"  Order code1 In 4 
use "c:\program files\microsoft visual foxpro 9\visual foxpro projects\flist.dbf" Order mcode In 5 exclu
USE "c:\program files\microsoft visual foxpro 9\visual foxpro projects\chapenam.dbf" Order mcode In 10 exclu
Use "c:\program files\microsoft visual foxpro 9\visual foxpro projects\cbc.dbf" Order code1 In 11 exclu
Use "c:\program files\microsoft visual foxpro 9\visual foxpro projects\ma2index.dbf" Order mcode In 12 exclu

SELECT 12
GO TOP
LOCATE FOR  342<CODE1 .AND. CODE1<378
IF FOUND()=.T.
AA="   "
BB="   "
*frx de gerekli ilk gurubun rengi*
STORE RECNO() TO REC
STORE code1 TO AA
STORE code1 TO BB
ENDIF
*frx de ikici gurubum rencı
SELECT 12
GO top
LOCATE for code1=313
IF FOUND()=.T.
AA=312
ENDIF

SET ORDER TO CODE1
close all
*envıroment olarak ma2ındex.code1 ve cbc.code1 ilişkide ve frxde sağ da cbc solde ma2ındex raport olur*

OX=CREATEOBJECT("MYPAGE")

REPORT FORM KOL.FRX  OBJECT OX

return

DEFINE CLASS MYPAGE AS ReportListener

PROCEDURE Init
PUBLIC WPAGE,HPAGE
      THIS.AddProperty("mysize", "npagen")
      THIS.ListenerType = 1

   ENDPROC

PROCEDURE GETPAGEHEIGHT()
MYSIZE=.F.
HPAGE=DODEFAULT()
*previ da safa uzanır ve istedığım olur ama yazıcıda fontlar bir safaya sıkıştırıliyor*
RETURN HPAGE*2
ENDPRO

ENDDEFINE
 

==================================
bence iki küçük frx yapsanızda peşpeşe boşluk olmadan bir sayfada veya uzantılı olarak ikinci rol sayfaya geçerse bana bir örnek  program gösterseniz ben bundan kurtulsam.

windows ortamındaki raporlari (FRX) denersen bu tip sorunlarin kalmaz , satir sutun hesaplamasi ile ugrasmazsin VFP Report Engine bu tip isleri kendisi organize ediyor...

ayrica kac copy istersen bunu da asagidaki gibi bir kodla saglayabilirsin

1

2

3

4

5

local lnPrintCount

lnPrintCount = 5

for i=1 to lnPrintCount

    report form MyReport.Frx to printer noconsole noeject nodialog && promt preview 

endfor