[ SLOJ.1973 @ 22.01.2012. 12:08 ] @
| Ako ikome bude zatrebalo(meni nedavno jeste)-forma za podešavanje margina.Najpre pokrenete upit "MSysObjects Query",koji pravi tabelu nazvanu sistemska,sa imenima svih izveštaja u bazi,a zatim možete da ukucavate margine ili u inchima ili u mm.Jednom podešen izveštaj,stalno će se štampati tako,dok god ne pozovete ponovo isdtu formu i ne promenite margine.Znam da isto to se postiže naredbom iz access-ovog toolbara Page Setup,ali ovde možete bez predhodnog otvaranja da podesite sve izveštaje samo jednom i to je to.Kod sam preuzeo sa interneta,malo ga preradio i eto-možda će nekom poslužiti.Možemo i da ga doradimo za orijentaciju papira,broj kopija itd.Ako budem imao vremena da ga odradim-šaljem.Pozdrav. |
[ SLOJ.1973 @ 24.01.2012. 19:05 ] @
Da li neko zna zbog čega dugme pregled na ovoj formi ne radi ,kada se baza prebaci u mde oblik?Da li je to zato što funkcija u stvari podešava izveštaj ,kao da je u design view-u,a to je nemogućekod baza u mde obliku ili je nešto treće.Dobijam poruku:

[ SLOJ.1973 @ 26.01.2012. 11:53 ] @
Niko nema resenje?
[ Getsbi @ 26.01.2012. 12:29 ] @
Citat: SLOJ.1973: Da li neko zna zbog čega dugme pregled na ovoj formi ne radi ,kada se baza prebaci u mde oblik?Da li je to zato što funkcija u stvari podešava izveštaj ,kao da je u design view-u,a to je nemogućekod baza u mde obliku ili je nešto treće.Dobijam poruku:
Mislim da si dao rešenje u svom odgovoru. Bar sam ja tako protumačio to što piše u poruci Access-a.
[ izonic @ 26.01.2012. 13:14 ] @
Otvaras izvjestaj u dizajn modu.
Public Sub SetMargins(ByVal strName As String, l, d, g, dl As Double)
Dim PrtMipString As str_PRTMIP
Dim PM As type_PRTMIP
Dim rpt As Report
Const TWIPS As Long = 1440
' Open the report.
DoCmd.OpenReport strName, acDesign
[ SLOJ.1973 @ 26.01.2012. 13:38 ] @
Za Getsbi-ja:Zbog čega onda radi Page Setup iz Accessovog toolbara na MDE bazi?
Za Izonic-a:neće i kada stavim acViewPreview,acNormal...
Znači ništa od podešavanja na mde bazi.
[ Getsbi @ 26.01.2012. 14:45 ] @
Nemam pravi odgovor. Samo neke sumnje. Fajl je rađen u originalu Access-u 2000, koji je ubedljivo imao najviše bugova. Bar su moja iskustva takva. Kad se izkonvertuje u 2003, verovatno da ostane neki prljavi kod. Nije mi pomoglo ni prethodni Compact and Repair. A pravo da ti kažem nisam do sad imao prilike da baratam sa .mde koji nešto podešava. Inače Page Setup jeste dostupan ali ne daje efekte.
[ SLOJ.1973 @ 26.01.2012. 17:02 ] @
Getsbi,ako smem da kažem-nisi u pravu za Page Setup.Evo probaj ovu mde bazu.Videćeš da se margine pomeraju.
[ Getsbi @ 26.01.2012. 17:34 ] @
Možeš da kažeš naravno. 
Međutim kod mene i ovom drugom, koji si ti napravio, mogu da popunim margine u Page Setup-u, ali dobijam istu poruku koju si pominjao na poruci iznad.
Možda se javi neko kome to polazi za rukom.
[ SLOJ.1973 @ 26.01.2012. 17:43 ] @
Pa zbog toga mi je malo nelogično,da page setup radi,a onaj kod neće.Evo slikano pre i posle podešavanja.

[ Getsbi @ 26.01.2012. 18:05 ] @
Da. Nad prethodno otvorenim izveštajem Page Setup radi i kod mene.
Pokušaj da varijable koje si definisao kao privatne, definišeš kao javne. Ima nekih indicija da bi to moglo da reši problem.
[ SLOJ.1973 @ 26.01.2012. 21:11 ] @
Probano-neće.
[ izonic @ 26.01.2012. 21:23 ] @
Jedino ti mogu poslati moj mde koji radi kako treba kada sam ovo popravio.
DoCmd.OpenReport strName, acViewPreview
Mozda si zaboravio ponovo napraviti mde poslije poptravke.
[ SLOJ.1973 @ 26.01.2012. 23:15 ] @
Pošalji Izonic.Nisam zaboravio.
[ izonic @ 26.01.2012. 23:38 ] @
evo mde
[ SLOJ.1973 @ 27.01.2012. 00:04 ] @
Na žalost,klik dugmeta radi,ali se ne dešava ništa sa marginama.Pošalji i mdb tvoj,pa da ponovo probam da ga prebacim u mde.
[ Getsbi @ 27.01.2012. 06:53 ] @
Pošto si iskopirao tuđi VBA kod, moraćeš malo da ga proveriš. Svuda u modulima treba u vrhu da stoji:
Option Compare Database
Option Explicit
Tek kad snimiš novo stanje i prođeš Compare Databse, možeš biti siguran da si ispravno nazvao sve varijable i da neku nisi zaboravio. Meni javlja greške prilikom pokretanja pomenute opcije.
[ Trtko @ 27.01.2012. 08:44 ] @
*.mde je "izvrsna" verzija i NEDOZVOLJAVA ispravak formi , listi itd
Probaj ući s SHIFT om u *.mde i vidjet ces da ti sam access ne dozvoljava uci u dizajn forme ili reporta
zato ti i javlja onu gresku, znaci neide acdesign , ali ide acpreview , pa da se vise ne mucis oko toga !!
[ Trtko @ 27.01.2012. 09:31 ] @
No da nije tako sve crno , evo i mog rijesenja.
Jedino sto se u svaki reportt na on open mora staviti par linija koda ( pogledaj u reportima)
a i radi kad se i kompajlira tj. prevede u *.mde
Pozdrav
[ izonic @ 27.01.2012. 15:49 ] @
Evo moj primjer.
Mada je najbolje napraviti na meni baru i skocnom meniju.
[ SLOJ.1973 @ 27.01.2012. 19:03 ] @
Izonic-to je to majstore.Bravo.Znači ipak mde dozvoljava podesavanja,makar samo margina,ako ničeg drugog.
[ izonic @ 27.01.2012. 20:05 ] @
Neznam na sto mislis drugo.
Mozes podesiti sve sem dizajnirati pa to zapisati ali uvijek mozes napraviti klasu necega na kraju pa mijenjati.
Copyright (C) 2001-2025 by www.elitesecurity.org. All rights reserved.
|