selem
objectin ne oldugunu reportlıstenerın ve reportengini bir az anlamışım ve benım ilk iki birleştirme raporum .prg böyle
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.