Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Pomoc Access

[es] :: Access :: Pomoc Access

[ Pregleda: 3937 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Å tampanje RSS

Omerkljuc
Omer Huzejrovic
BiH

Član broj: 10841
Poruke: 2
195.222.35.*



Profil

icon Pomoc Access30.05.2003. u 17:47 - pre 214 meseci
Odnedavno sam poceo da se bakcem sa Access-om. I ide mi jako dobro za pocetak. Napravio sam nekoliko malih aplikacija, malo upita, carobnjaka i malo VBA coda. Sve fercera odlicno osim reporta, i to onih reporta koji moraju biti jako precizno definisani. Navodim primjer virmana gdje velicina papira (custom) mora biti precizno definisana. U Page setup-u sve parametre podesim kako treba, medjutim nakon nekog vremena desava mi se da sam Access to pobrka.

Kako bih ovaj problem sa ispisom rjesio?
Mozda VBA cod ili nesto drugo.

Molim Vas pomozite.

Hvala
 
Odgovor na temu

Bambocha
Novi Sad

Član broj: 10908
Poruke: 37
195.252.100.*



Profil

icon Re: Pomoc Access01.06.2003. u 14:08 - pre 214 meseci
Treba uraditi sledeće:

Nesporazum nastaje zbog toga sto stampac ima svoje parametre koji se ne pokapaju sa parametrima koji posotoje u access programu.
Savet je sledeci:
1. Idi u Word program i maksimalno smanji veličinu margina tako da ti računar izbaci grešku o marginama
2. Pritisni fix
3. Podaci koje ti izbaci računar su ti podaci o margini koji treba da ubaciš u Page setup accessa.




Sve je u nasim rukama i sve zavisi od nas samih !
 
Odgovor na temu

Omerkljuc
Omer Huzejrovic
BiH

Član broj: 10841
Poruke: 2
195.222.35.*



Profil

icon Re: Pomoc Access02.06.2003. u 22:34 - pre 214 meseci
Predrag hvala na pomoći. Ovo će mi vjerovatno koristiti u daljnjem radu, ali sada mi trenutno ne može pomoći jer sam ja vać podesio margine i format papira u access-u, te bi mi sada trebalo jako puno vremena da ponovo podesim sve.

Interesuje me da li se može pozivati kod koji bi pri otvaranju reporta ili kod printanja uzimao parametre margina i veličinu papira.

U svakom slučaju hvala na pomoći!
 
Odgovor na temu

Daks
Tu Tamo

Član broj: 2310
Poruke: 88
195.222.35.*



Profil

icon Re: Pomoc Access11.06.2003. u 18:45 - pre 214 meseci
Mislim da je ovo odgovor!

Pored toga što margine u Access izveštajima (Reports) možete podesiti u vreme dizajniranja, margine se mogu podesiti i u vreme izvršavanja Access aplikacija, i to putem programskog VBA koda. Sve što je potrebno da biste ugradili ovu opciju unutar vaših Access projekata jeste da sledeći programski kod smestite (prekopirate) u opšti (General) programski modul i pozovete datu funkciju u istom momentu kada pozivate i metod DoCmd.OpenReport. Funkcija će raditi u Access-u od verzije 95 pa naviše. Čak i u Access-u 2002 (XP) možete programskim kodom pristupiti podešavanjima margina preko atributa PrtMip, pa je tako ovaj programski kod kompatibilan i sa ovom verzijom.

Type str_PRTMIP
RGB As String * 28
End Type

Type type_PRTMIP
' Varijable definisane kao Long tip zbog konverzije
xLeftMargin As Long
yTopMargin As Long
xRightMargin As Long
yBottomMargin As Long
fDataOnly As Long
xItemSizeWidth As Long
yItemSizeHeight As Long
fDefaultSize As Long
xItemsAcross As Long
yColumnSpacing As Long
xRowSpacing As Long
rItemLayout As Long
rFastPrinting As Long
rDataSheetHeadings As Long
End Type
'------------------------Funkcija-----------------------------
Public Function SetReportMarginDefault(strReportName As String, left!, top!, right!, bottom!)
Dim PrtMipString As str_PRTMIP
Dim PM As type_PRTMIP
Dim objRpt As Report
Dim tempPrtMip As String

DoCmd.Echo False
DoCmd.OpenReport strReportName, acDesign
Reports(strReportName).Painting = False
Set objRpt = Reports(strReportName)

PrtMipString.RGB = objRpt.prtmip

LSet PM = PrtMipString
'Koristite 1440 za SAD (ince),a 567 za centimetre
PM.xLeftMargin = left * 1440
PM.yTopMargin = top * 1440
PM.xRightMargin = right * 1440
PM.yBottomMargin = bottom * 1440

LSet PrtMipString = PM

objRpt.prtmip = PrtMipString.RGB

' Fokusiranje na report
DoCmd.SelectObject acReport, strReportName
'Snimanje izvestaja
DoCmd.DoMenuItem 7, acFile, 4, , acMenuVer70

CloseRpt:
DoCmd.Close acReport, strReportName
DoCmd.Echo True

End Function

 
Odgovor na temu

brko

Član broj: 11404
Poruke: 32
*.adsl.net.hinet.hr



Profil

icon Re: Pomoc Access18.06.2003. u 13:53 - pre 214 meseci
To je bug iz Ms Accessa 2000. Ispravljeno je sa Accessom 2002.
Pozdrav
 
Odgovor na temu

[es] :: Access :: Pomoc Access

[ Pregleda: 3937 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.