Centar za edukaciju-BiH

Predmet:pomijeranje controla na reportu

---

imam reportu u mde formatu koji se štampa na gotovom obrascu (odštampan u štampariji)
ponekad imam potrebu da korisnik sam pomijera polje jer se nekad ne podudaraju polja
na gotovom obrascu i mojem

da li neko ima ideju kako bi se mogle pomijerati kontrole na reportu

ili možda da se pravi kao neki template koji bi se snimio pa da se poziva kao izvještaj

pozdrav

Predmet:Re: pomijeranje controla na reportu

---

Ja sam nešto slično radio tako da sam skenirao gotov obrazac i taj jpg fail uvezao u Prewiev Reporta.
Prema toj slici podesio sam sva polja na potrebne pozicije, a samu sliku postavo na Visible = No tako da se ona kod štampanja ne vidi.

---

Predmet:Re: pomijeranje controla na reportu

---

Izvodivo je to.
Prvo sto moras imati dvije tabele.
Jendna za popis izvjestaja a druga bi sadrzavala kontrole koje se ppomijeraju na izvjestajima i naravno povezane sa ide izvjestaja.
Naime kada podigns izvjestaj na preview nemogu se kontrole pomijerati (bar ja neznam da mogu).
Ukoliko ces praviti mde onda nemozes niti dizajnirati izvjestaj
Ostaje ti samo da pri podizanju ucitas left i top svake kontrole.
Eto left i top bi drzao zapisano u tablici.
Sad bi mogao napraviti i simulirajucu formu odnosno formu i na njoj polozaje kontrola te tastere za pomijeranje e kada se to sve nastima da se iz forme zapise u u tabelu iz koje izvjetaj cita polozaj kada se podize.
Ima tu dosta posla a sada nemam vremena napraviti primjer.

---

Predmet:Re: pomijeranje controla na reportu

---

nije problem kada ja štimam ali recimo kada hoće korisnik sam da naštima

e tu nastaje problem

ovo što zxz predlaže mislim da bi bilo dobro

probaću nešto da napravim

pozdrav

Predmet:Re: pomijeranje controla na reportu

---

Pa ako hoče da podesi gornje i desne margine, znači da podesi, napravi se jedna tabela sa poljima,
dokument , gornja, ljeva .
U polju dokument se upiše naziv Reporta, a u polja ljeva , desna, koliko da milimetara pomakne ispis.
Napravis i formu u kojoj može korisnik mijenjati parametre ispisa. Postavim je poslije.

A na samom reportu na ON_Open postaviš ovako.

Private Sub Report_Open(Cancel As Integer)
gornjam = DLookup("gornja", "tblmargine", "dokument='PUTNI NALOG'")
lijevam = DLookup("lijeva", "tblmargine", "dokument='PUTNI NALOG'")

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

End Sub

Pozdrav