1 Konuyu açan melany Son düzenleyen, melany (03.03.2010 00:03:11)

  • melany
  • Üye
  • Offline
  • Kayıt Tarihi: 27.02.2010
  • İleti: 2

Konu: peşpeşe rapor nasıl olur yardım?

15 sene evvel foxpro2.6 for dos ile bir .prg yazdım 8 tane report varımdı .lq300 yazıcıya farklı boyutta   ve farklı sayıda report gönderirdim. peşpeşe bazen 100 bazen 120 bazen 200 satır olurdu._padvanc=linefeed ve store prow() ile hangi satır da olduğumu  bulup 33 kesme yerine eject yapıp iş bitmiş olurdu ..prgimi çök iyi vfp9 ile yazdım ama iş yazıcıya gelince her report bir sayfada ve sayfa sonu beyaz olur .aman.diye  hepsini bir  reportta grub grub topladım şimdi peşpeşe olur ama her sayfa sonu 4 satır boş  kalır ve benim reportum peşpeşe özelliğini elden verir yardım edersiniz memnun kalırım .kagıdım rol dur ve 33 satır ıle kesilebilir

2 Cevaplayan soykanozcelik

  • soykanozcelik
  • soykanozcelik
  • Uzman Üye
  • Offline
  • Yer: Tekirdağ
  • Kayıt Tarihi: 25.08.2006
  • İleti: 1,513

Re: peşpeşe rapor nasıl olur yardım?

Melany,
prg ni VFP9 ile yazmis olsanda fp 2.6 dan kalan aliskankliklarinla yazmissin anladigim kadari ile...yani say,get ler ile ...

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

Visual Fox Pro
local lnPrintCount

lnPrintCount = 5

for i=1 to lnPrintCount

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

endfor
https://www.twitter.com/soykanozcelik https://www.t.me/soykanozcelik https://soykanozcelik.wordpress.com

soykanozcelik's Website

3 Cevaplayan melany Son düzenleyen, melany (03.03.2010 08:11:40)

  • melany
  • Üye
  • Offline
  • Kayıt Tarihi: 27.02.2010
  • İleti: 2

Re: peşpeşe rapor nasıl olur yardım?

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.