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
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.
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)
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.