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

Problem sa marginama u ACCESSu

[es] :: Access :: Problem sa marginama u ACCESSu

[ Pregleda: 3418 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

dimo
Aleksandar Dimitrijevic
Beograd

Član broj: 6851
Poruke: 21
*.dial.InfoSky.Net



Profil

icon Problem sa marginama u ACCESSu18.11.2003. u 17:36 - pre 247 meseci
Cao

Imam jedan problem i jedan put za njegovo resavanje, ali ne ide nikako

Margine koje postavim u REPORT-u se iz cista mira promene

Clan ove grupe po imenu DAKS je jednom prilikom ostavio resenje u obliku programa, ali ja jos uvek nisam uspeo da ga pokrenem. Moje znanje o VBA je srednje zalosno, pa sam se odlucio da pitam ako vec ne znam.

Pomenuti program sledi. Bio bih zahvalan svakome ko bi mi pomogao da resim ovo



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

Simke
Marko Simic
Sandfield Associates (Solution
Developer)
Novi Zeland

Član broj: 1158
Poruke: 751
*.dialup.xtra.co.nz

ICQ: 71578686
Sajt: www.sandfield.co.nz


Profil

icon Re: Problem sa marginama u ACCESSu19.11.2003. u 05:21 - pre 247 meseci
Kada si u design view za report, idi na file -> page setup, tu postavi margins i na kraju snimi report. Nema potrebe da postavljas velicinu marigna kroz kod.

All beer is good. Some beer is better.
 
Odgovor na temu

HonestWorkingMan
Miodrag Stefanovic
Skola racunara
Stara Pazova

Član broj: 15491
Poruke: 19
195.250.117.*

Sajt: www.rubicom.co.yu


Profil

icon Re: Problem sa marginama u ACCESSu19.11.2003. u 11:04 - pre 247 meseci
Funkciju koju imas pozivas sa npr.

Call SetReportMarginDefault("Report1", 2, 1, 1, 2)

pri cemu je "Report1" naziv report-a kojem zelis da podesis margine,
a cifre su ti margine za left!, top!, right!, bottom!

Ako nisi siguran gde treba stavis ovaj kod predlazem ti genijalno resenje:

Button->OnClick

 
Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.eqao.com



+79 Profil

icon Re: Problem sa marginama u ACCESSu19.11.2003. u 13:49 - pre 247 meseci
Covek je lepo rekao:

"Kada si u design view za report, idi na file -> page setup, tu postavi margins i na kraju SNIMI report"

Kakvo programiranje, kakvi bakraci. Page Set Up i SNIMI report i to je to.

:-)
 
Odgovor na temu

dimo
Aleksandar Dimitrijevic
Beograd

Član broj: 6851
Poruke: 21
*.dial.InfoSky.Net



Profil

icon Re: Problem sa marginama u ACCESSu21.11.2003. u 15:33 - pre 247 meseci
Hvala na pomoci.

P.S.

Snimanje ne funkcionise uvek. Kada se program prebaci na drugi kompjuter, ili se prebaci na drugi stampac, sve se resetuje default. Zato je code neophodan kako bi se margine definisale
 
Odgovor na temu

RadovanBG
Radovan Kovačević
Belgrade

Član broj: 16650
Poruke: 18
*.vdial.verat.net

Sajt: www.radax-software.com


Profil

icon Re: Problem sa marginama u ACCESSu21.11.2003. u 20:43 - pre 247 meseci
Pretpostavljam da koristiš Access 2000? ..On je umeo da resetuje margine.. Ako je tako, obavezno instaliraj Service Packove, ili pređi na Office 2003 (Office XP zaobiđi u širokom luku - bar što se Access-a tiče)
 
Odgovor na temu

Simke
Marko Simic
Sandfield Associates (Solution
Developer)
Novi Zeland

Član broj: 1158
Poruke: 751
*.dialup.xtra.co.nz

ICQ: 71578686
Sajt: www.sandfield.co.nz


Profil

icon Re: Problem sa marginama u ACCESSu21.11.2003. u 22:56 - pre 247 meseci
Proveli da li si settings stavio za default printer ili za specific printer. Ako stavis za default printer trebalo bi da bude isto na bilo kojem stampacu.
All beer is good. Some beer is better.
 
Odgovor na temu

[es] :: Access :: Problem sa marginama u ACCESSu

[ Pregleda: 3418 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

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