[es] - Pomoc Access

Omerkljuc
Omer Huzejrovic
BiH

Član broj: 10841
Poruke: 2
195.222.35.*

Profil

^{30.05.2003. u 17:47}

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

^{30.05.2003. u 17:47}

Bambocha
Novi Sad

Član broj: 10908
Poruke: 29
195.252.100.*

Profil

Re: Pomoc Access

^{01.06.2003. u 14:08}

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 !

^{01.06.2003. u 14:08}

Omerkljuc
Omer Huzejrovic
BiH

Član broj: 10841
Poruke: 2
195.222.35.*

Profil

Re: Pomoc Access

^{02.06.2003. u 22:34}

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!

^{02.06.2003. u 22:34}

Daks
Kljuc

Član broj: 2310
Poruke: 69
195.222.35.*

Profil

Re: Pomoc Access

^{11.06.2003. u 18:45}

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

^{11.06.2003. u 18:45}