Hej!

Undrar om det finns något sätt att via vb sätta marginalerna i en mde databas. Som
det är nu måste man sätta dessa varje gång manuellt.

Har för mig att dessa endas sparas i designläge. Eftersom du inte kan påverka dem i designläge i en MDE fil så tror jag inte det går. Du kan kanske spara dem i en tabell och ladda värdena manuellt med kod nära man öppnar raporten och spara när man stänger.

De flesta design-ärenden är låsta och inte möjliga att ändra när du väl skapat en mde-fil. Du borde ha kvar originalfilen, en mdb fil och där i göra ändringar du vill för att sedan skapa en med-fil igen.

Har kvar filen men det är en del olika användare som har olika utskriftinställningar.
Man kanske ändra via kod när man öppnar rapporten????

JAg försökte mig på ett försök:
<code>
Option Compare Database
Option Explicit

Private Type str_PRTMIP
strRGB As String * 28
End Type

Private Type type_PRTMIP
xLeftMargin As Long
yTopMargin As Long
xRightMargin As Long
yBottomMargin As Long
fDataOnly As Long
xWidth As Long
yHeight As Long
fDefaultSize As Long
cxColumns As Long
yColumnSpacing As Long
xRowSpacing As Long
rItemLayout As Long
fFastPrint As Long
fDatasheet As Long
End Type

Private Sub Report_Close()
Dim PrtMipString As str_PRTMIP
Dim PM As type_PRTMIP
Dim db As DAO.Database
Dim rs As DAO.Recordset


PrtMipString.strRGB = Me.PrtMip
LSet PM = PrtMipString

Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM ReportMargins WHERE " & BuildCriteria("ReportName", dbText, Me.Name), dbOpenDynaset)
If rs.EOF Then
rs.AddNew
rs("ReportName") = Me.Name
Else
rs.Edit
End If

rs("LeftMargin") = PM.xLeftMargin
rs("TopMargin") = PM.yTopMargin
rs("RightMargin") = PM.xRightMargin
rs("BottomMargin") = PM.yBottomMargin

rs.Update

rs.Close
End Sub

Private Sub Report_Open(Cancel As Integer)
Dim PrtMipString As str_PRTMIP
Dim PM As type_PRTMIP
Dim db As DAO.Database
Dim rs As DAO.Recordset


PrtMipString.strRGB = Me.PrtMip
LSet PM = PrtMipString

Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM ReportMargins WHERE " & BuildCriteria("ReportName", dbText, Me.Name), dbOpenSnapshot)
If Not rs.EOF Then
PM.xLeftMargin = rs("LeftMargin")
PM.yTopMargin = rs("TopMargin")
PM.xRightMargin = rs("RightMargin")
PM.yBottomMargin = rs("BottomMargin")
End If
rs.Close

LSet PrtMipString = PM
Me.PrtMip = PrtMipString.strRGB
End Sub
</code>
Men tyvär kan man bara uppdatera Me.PrtMip i designläge.

Verkar som mina användare får fixa detta själva. Men tackar för intresset.