Sopstvena forma za podesavanje štampe(margina)

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.

Potpis

Jednog dana...

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:

Potpis

Jednog dana...

Niko nema resenje?

Potpis

Jednog dana...

Mislim da si dao rešenje u svom odgovoru. Bar sam ja tako protumačio to što piše u poruci Access-a.

Potpis

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

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

Potpis

zxz

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.

Potpis

Jednog dana...

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.

Potpis

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

Getsbi,ako smem da kažem-nisi u pravu za Page Setup.Evo probaj ovu mde bazu.Videćeš da se margine pomeraju.

Potpis

Jednog dana...

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.

Potpis

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

Pa zbog toga mi je malo nelogično,da page setup radi,a onaj kod neće.Evo slikano pre i posle podešavanja.

Potpis

Jednog dana...

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.

Potpis

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

Probano-neće.

Potpis

Jednog dana...

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.

Potpis

zxz

Pošalji Izonic.Nisam zaboravio.

Potpis

Jednog dana...

evo mde

Potpis

zxz

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.

Potpis

Jednog dana...

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.

Potpis

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

*.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 !!

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

Evo moj primjer.
Mada je najbolje napraviti na meni baru i skocnom meniju.

Potpis

zxz