[ dimo @ 18.11.2003. 17:36 ] @
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 |