Problem sa marginama u ACCESSu

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

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.

Potpis

All beer is good. Some beer is better.

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

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.

:-)

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

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)