Problem sa marginama u ACCESSuCao
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
Re: Problem sa marginama u ACCESSu
Re: Problem sa marginama u ACCESSu
