Sidebredde ved to sider

Et skud i tågen:
Flyt koden til Detaljesektionens VedUdskrivning (OnPrint).

Det dur ikke. Men jeg har fundet en løsning. Det har at gøre med Column width som er en opsætning under Page setup...
Desvære kan man ikke ændre denne OnOpen, men jeg har fundet følgende kode som kan gøre det inden rapporten åbnes, hvilket er fint nok i mit tilfælde:

Type str_PRTMIP
    RGB As String * 28
End Type

Type type_PRTMIP
    'Typed as longs due to Ansi to Unicode conversion
    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


Public Function SetReportWidthDefault(strReportName As String, widthInCm As Single)
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
'Use 1440 for US (inches), 567 (rest of the world) (centimeters)
'PM.xLeftMargin = left * 1440
'PM.yTopMargin = top * 1440
'PM.xRightMargin = right * 1440
'PM.yBottomMargin = bottom * 1440
PM.xItemSizeWidth = widthInCm * 567
LSet PrtMipString = PM

objRpt.PrtMip = PrtMipString.RGB

'Make sure report has the focus
DoCmd.SelectObject acReport, strReportName
'Save the Report
DoCmd.DoMenuItem 7, acFile, 4, , acMenuVer70
 
CloseRpt:
DoCmd.Close acReport, strReportName
DoCmd.Echo True
  'You're done.

End Function

Jeg skal måske lige bemærke at dette IKKE virker i en mde fil (hvilket er surt, men egentlig forståligt nok).