[es] - Crystal Report

Krsta
Krstic Dejan
Licna firma za izradu i projektovanje inf. sistema, r..
Krusevac

Član broj: 2461
Poruke: 301
*.ptt.yu

Sajt: www.illusion.co.yu

Profil

Crystal Report

^{22.02.2002. u 01:26}

Koristim crystal report 6.0 za stampanje tekstva iz Visual Basica,
osnovne stvari sam provalio, ali nikako ne mogu da iz VB-a zadam path slike
i ta slika da se u CR odstampa.
Pravim neki program koji bi korisnik u samom programu izabrao sliku i gde je
potrebno da se ta slika kasnije odstampa sa dodatnim tekstom.
Voleo bi da i neko odgovori na pitanje ili da mi preporuci neki drugi nacin
za stampu, tj. Active X ili neki dodatak za VB.

Ako neznas kuda ides, sigurno ces tamo da stignes !!!

"Digital ILLUSION" - Krusevac
www.illusion.co.yu

^{22.02.2002. u 01:26}

jc denton

Član broj: 2358
Poruke: 1705
*.ptt.yu

Profil

Re: Crystal Report

^{22.02.2002. u 07:43}

Koliko ja znam, Crystal Report je preteca danasnjem Data Report-u. Koju ver . VB-a koristis?
Da bi koristio data report u VB6, moras da imas konekciju na data source (baza).

Ako ne planiras da se bakces sa bazama onda Printer objekt zavrsava sve bez problema (mada snjim moze da se odradi dosta ozbiljnih stvari).

Malo sam ovo zaboravio, ali trebalo bi da bude ovako :

dim slika as picture - slika koju stampas
set slika = loadpicture("putanja do slike") - inicijalizacija obj. slika
printer.paintpicture slika, 0, 0

pogledaj detaljno paintpicture metodu, moze da vrsi stretch slike kako hoces i ostale korisne stvari

bitno je i da se postavi .scalemode za Printer, recimo :

printer.scalemode = vbcentimeters - znaci da ce sve velicine koje koristis biti u cm,
recimo :
printer.paintpicture slika, 1, 1,1,1
odstmapace sliku ciji je gornji levi ugao odaljen od margina po 1 cm, sirine i visine 1cm

za tekst :
printer.currentx - koordinate za stampanje teksta
printer.currenty
printer.print "tekst" - obrati paznju na ovo, zato sto print metoda ne stoji u listi

printer.enddoc - start stampe

ovo je najprostije, a ako hoces malo slozenije pogledaj property-je i metode za Printer Object.

Pozdrav, zemljak !!!

...za sada samo citam.

^{22.02.2002. u 07:43}

Krsta
Krstic Dejan
Licna firma za izradu i projektovanje inf. sistema, r..
Krusevac

Član broj: 2461
Poruke: 301
*.ptt.yu

Sajt: www.illusion.co.yu

Profil

Re: Crystal Report

^{26.02.2002. u 22:49}

Od skoro koristim VB6, tako da DataReport nisam koristio, mada
CrystalReports (ne onaj standardni iz VB-a) je odlican za srednje
slozenije stvari.
Sa obicnim print objectom ne mogu lepo da formatiram stampu, bar
do sada nisam uspeo.
Na primer ako hocu da stampam neki tekst u vise kolona tako da tekst u jednom redu ima isto rastojanje, npr:
xxxxxx xxxxxxxx xxxxx
xxxxxx xxxxxxxx xxxxx
xxxxxx xxxxxxxx xxxxx a u nastavku da bude slika.

Ako imas neko resenje za ovaj problem voleo bih ili da postujes
kod ovde ili posalji na Mail.

Ako neznas kuda ides, sigurno ces tamo da stignes !!!

"Digital ILLUSION" - Krusevac
www.illusion.co.yu

^{26.02.2002. u 22:49}

TJMoFo
Igor Mikovic
Herceg Novi

Član broj: 2512
Poruke: 2
195.66.166.*

Profil

Re: Crystal Report

^{27.02.2002. u 06:50}

Citat:

Krsta:
Koristim crystal report 6.0 za stampanje tekstva iz Visual Basica,
osnovne stvari sam provalio, ali nikako ne mogu da iz VB-a zadam path slike
i ta slika da se u CR odstampa...

Ja sam koristio CR 7.0, i takođe nisam uspio da u report postavim sliku čiji bi se sadržaj mijenjao u run-timeu. Lično sam više nego ubijeđen da CR - ni verzije 6 ni 7 - (treba tražiti novije verzije!) tu mogućnost i ne podržavaju.

Ako ti je neophodno da praviš izvještaj sa slikom, iz VB-a napravi izvještaj kao HTML fajl i pokreni IExplorer sa tim fajlom, a u HTML-u upiši putanju slike, i sav ostali tekst. Malo je zamorno pisati sve te komande print, print, print, ali sam fazon radi brže nego kroz CR.

TJ MoFo

^{27.02.2002. u 06:50}

jc denton

Član broj: 2358
Poruke: 1705
*.ptt.yu

Profil

Re: Crystal Report

^{27.02.2002. u 11:54}

Citat:

Krsta:
Od skoro koristim VB6, tako da DataReport nisam koristio, mada
CrystalReports (ne onaj standardni iz VB-a) je odlican za srednje
slozenije stvari.
Sa obicnim print objectom ne mogu lepo da formatiram stampu, bar
do sada nisam uspeo.
Na primer ako hocu da stampam neki tekst u vise kolona tako da tekst u jednom redu ima isto rastojanje, npr:
xxxxxx xxxxxxxx xxxxx
xxxxxx xxxxxxxx xxxxx
xxxxxx xxxxxxxx xxxxx a u nastavku da bude slika.

Ako imas neko resenje za ovaj problem voleo bih ili da postujes
kod ovde ili posalji na Mail.

Ovaj kod bi trebalo da zavrsi posao oko stampanja tabela. Samo unesi tvoje parametre pogledaj parametre) i ostalo ce kod da uradi sam.
Ja sam ovde koristio picture box, ali ovo mozes da primenis i na printer i na form objekt. (pomocu picture boxa mozes da napravis i mali print preview)
Inace, verovatno si primetio da se tekst moze stampati i preko slike u transparent modu. To ti omogucava da odstampas pozadinu tabele, pa onda tekst preko nje.

Set stampac = Picture1 ' ovde stavi umesto Picture1 - Printer, a inace moze i Form
stampac.ScaleMode = vbCentimeters ' radimo u cm
' matrica za probu
Dim podaci(4, 4)
a = False
For i = 0 To 4
For j = 0 To 4
a = Not a
If a Then
podaci(i, j) = "12345.67890"
Else
podaci(i, j) = "qw"
End If
Next
Next
' parametri
brkol = 5 ' br. kolona
mleva = 1 ' razmak od leve margine
mgornja = 1 ' razmak od gornje margine
kolrazmak = 0.5 ' razmak izmedju svake kolone
redrazmak = 0.5 ' razmak izmedju redova
sirinakol = 0.5 ' sirina kolone u cm
maxy = 0 ' maskimalna y koordinata
' stampa
For i = 0 To 4
If i = 0 Then ' za prvi podatak
stampac.CurrentY = mgornja
Else
stampac.CurrentY = maxy + redrazmak 'maksimalna visina polja
End If
treny = stampac.CurrentY ' trenutna y koordinata
For j = 0 To 4
stampac.CurrentX = mleva + j * kolrazmak + j * sirinakol
If stampac.TextWidth(podaci(i, j)) > sirinakol Then
' koliko karaktera staje u jedan red polja
For k = 1 To Len(podaci(i, j))
redupolju = Left(podaci(i, j), Len(podaci(i, j)) - k)
If stampac.TextWidth(redupolju) < sirinakol Then
brredaupolju = Int(Len(podaci(i, j)) / Len(redupolju)) ' koliko redova u polju
stampac.Print redupolju ' stampamo prvi red u polju
Exit For
End If
Next
'stampa ostalih redova u polju
For k = 1 To brredaupolju
red = Mid(podaci(i, j), k * Len(redupolju) + 1, Len(redupolju))
stampac.CurrentX = mleva + j * kolrazmak + j * sirinakol
stampac.Print red
' sada racunamo visinu reda na osnovu 'najviseg' polja
If maxy < stampac.CurrentY Then maxy = stampac.CurrentY ' pamtimo max y koord
Next
Else
' ako duzina teksta u polju ne prelazi sirinu polja
stampac.Print podaci(i, j)
End If
stampac.CurrentY = treny
Next
Next

End Sub

...za sada samo citam.

^{27.02.2002. u 11:54}