[ chuPavi @ 23.08.2007. 07:07 ] @
| 1. Koji je najlaksi nacin da izgled reporta bude nalik excel tabeli. Cesto mi se desava da dobijam gotove excel tabele prema kojima moram da napravim report. Do sada sam to resavao sa Insert/Object/CreateFromFile i onda zalepim taj .xls fajl kao pozadinu i preko njega montiram polja. Ovaj proces mi je cesto pravio probleme ...
2. Kako da promenim orjentaciju texta u textbox-u da se prikazuje vertikalno ali tako da se text ispisuje odozdo na gore.
3. Dal postoji opcija da se menja velicina fonta tako da prikazani text uvek popunjava velicinu textbox-a. Recimo da je to suprotno od opcija "Can Grow" i "Can Shrink". |
[ Getsbi @ 24.08.2007. 20:55 ] @
2. Uspeo sam odozgo na dole i to sledećim fontovima Ariel Baltic, Ariel Greek, Curier New Baltic. Verovatno da mogu još neki fontovi.
[ chuPavi @ 27.08.2007. 10:28 ] @
Citat:
vertikalno ali tako da se text ispisuje odozdo na gore.
Citat:
Uspeo sam odozgo na dole
Jel pricamo o istim stvarima ?
[ Getsbi @ 27.08.2007. 10:42 ] @
Ma jasno mi je da ti nisam pomogao. Kod mene nije htelo ni odozgo na dole.
http://www.elitesecurity.org/t...cal-property-na-label-kontroli
To je samo bio neuspeo pokušaj da odgovorim bar na jedno tvoje pitanje.
[ chuPavi @ 29.08.2007. 15:38 ] @
Nema odgovora ali zato ima novih pitanja :)
1. Dal je moguce namestiti velicinu reporta na velicinu A4 stranice ? Uglavnom imam problema sa promenom stampaca jer se report, u nekim slucajevima, pogresno "prelama" po stranicama . Ovo mi se cak desava kada pokusam da napravim pdf od reporta ( Print/AdobePDF)
2. Kako da referiram na linkovanu excelovu tabelu tako da ne moram da je drzim na svakom racunaru na istom mestu ? Trenutno bazu i excel tabelu ne razdvajam jednu od drugog i stalno snimam na root diska.
Ako su pitanja previse neznalacka, vunasta, nemam problema ako dobijem odgovor tipa : " Procitaj, tu i tu, knjigu, prvo, pa se onda javi" :)
[ Getsbi @ 31.08.2007. 16:13 ] @
Pitanja nisu uopšte neznalačka ali jesu specifična.
1. Predpostavljam da si report u design modu pomoću Rulera postavio na 210x297 ili za koji mm manje, u Page Setup Size na kartici Page postavio na A4, a na štampaču izabrao opciju za A4 štampu. Možda je moguće u SetUp-u štampača izvršiti podešavanje. Pošto imam neka iskustva sa štampačima ( prelazio sam sa In Ject na Laserske i obratno) znam da nije kod svih moguće podesiti da isti izveštaj štampa kako treba. Ponekad sam morao da vršim korekcije na samom izveštaju. Ručno podešavanje jednog izveštaja i dva ili više štampača oduzima malo vremena da bi se dobio zadovoljavajući rezultat. Skoro sam čuo od kolege da trenutno piše proceduru kojom iz koda reguliše izbor (vrstu i tip) štampača. U tom slučaju je moguće napraviti više varijanti izveštaja i iz pokretačke forme odabrati ciljni uređaj za izlaz što automatski pokreće i odgovaraluću varijantu izveštaja. Ukoliko neko ima gotov takav „kod“ bilo bi lepo da ga okači ovde , a mi ćemo ga uvrstiti u jednu od Top tema.
[ Trtko @ 03.09.2007. 07:35 ] @
Setiranje margina , stranica vrišim iz samog koda.
Za sve liste upišem u tabelu podatke o marginama ( moglo bi i staviti i odabir velicine papira)
Korisnik si sam moze podešavati margine, ako se promjene stampaci . itd
npr
lista, gornjamargina, donjamargina, lijevamargina, desnamargina
njega_u_kuci , 20,20,20,20
i onda
na on open reporta
gornjam = DLookup("gornja", "tblmargine", "dokument='njega_u_kuci")
lijevam = DLookup("lijeva", "tblmargine", "dokument='njega_u_kuci'")
donjam = DLookup("donja", "tblmargine", "dokument='njega_u_kuci'")
desnam = DLookup("desna", "tblmargine", "dokument='njega_u_kuci'")
If IsNull(gornjam) Or gornjam = "" Then
Else
Printer.TopMargin = 56.7 * gornjam
End If
If IsNull(lijevam) Or lijevam = "" Then
Else
Printer.LeftMargin = 56.7 * lijevam
End If
If IsNull(donjam) Or donja = "" Then
Else
Printer.BottomMargin = 56.7 * donjam
End If
If IsNull(desnam) Or desnam = "" Then
Else
Printer.RightMargin = 56.7 * desnam
End If
tako možeš sve setirati., broj kopija , itd...
Nadam se da sam pomogao
[ Mina7 @ 07.04.2011. 11:11 ] @
Da ne otvaram novu temu, ponavljem pitanje sa početka teme:
3. Dal postoji opcija da se menja velicina fonta tako da prikazani text uvek popunjava velicinu textbox-a. Recimo da je to suprotno od opcija "Can Grow" i "Can Shrink".
Hvala
[ SLOJ.1973 @ 07.04.2011. 17:53 ] @
Nešto sam pokušavao pa sam došao do sledećeg rešenja (nije nešto,ali završava posao).Naime textualno polje sam prilikom kreiranja izveštaja formatirao ovako- textwidh=2.4CM i fontsize 8,font name arial.E sad sa ovakvim setovanjem u ovom text polju stane 10 stringova (znakova,kakogod).I sada prilikom otvaranja izveštaja proveravam da li je dužina stringa veća od 10 i ako jeste onda postavljam da veličina fonta je u stvari 100/brojem stringova i to mu je to.Trebalo bi možda malo isprobavati pa doći do konkretnijeg rešenja,ali eto na brzinu.Pozdrav.Evo koda:
Code:
Private Sub Report_Open(Cancel As Integer)
Dim broj As Long
Dim strtext As String
strtext = DLookup("textpolje", "Table1")
broj = Len(strtext)
MsgBox "je " & broj
If broj > 10 Then
Me.text1.FontSize = 100 / broj
Else
End If
End Sub
gde je textpolje polje u tabeli1 koje je record source za text1 polje.Nadam se da sam bio jasan.
Copyright (C) 2001-2025 by www.elitesecurity.org. All rights reserved.