Page Setups for Reports (1 Viewer)

[GeoNelix]

I'm trying to save a report with a specific page setup. The report needs to be printed landscape. I have tried opening the report in design view and setting the page setup property there. I save it and run the report and everything is fine. The problem is that when I close the db and come back in the setup settings are not saved. Why is that?

 

[bradcccs]

Access seems to have a problem saving changes to page layout if it is the only thing altered.

Try altering more than just page settings, or save the settings in preview mode (ie: Set your required page settings and then - File, Save)

I presume you are not resetting these by code on formatting / opening etc.

Brad.

 

[Rich]

Turn off the Auto Correct feature, there's a BUG IN IT

 

[Chris RR]

As Rich says, you can turn off Name Autocorrect from code. If your database will be used by other
people, that is probably what you should do.

But, when you are changing a user’s Access settings, the really polite thing to do is to save their original settings, make whatever changes you need during the course of your session, then reset their features when they exit from the database. This code will do that. First the code that you need to call when you open the database:

Sub CheckACSettings()
Const conText = 0
On Error GoTo CheckACSettingsErr
' Constant represents Text setting of Default
' Field Type option.

Dim strMsg As String

' Determine current setting
varTrackSetting = Application.GetOption(strTrackAC)

'Debug.Print varTrackSetting

' Change setting
Application.SetOption strTrackAC, False
End If
End If

Exit Sub

CheckACSettingsErr

MsgBox Err.Description

End Sub


Now, here is the code to reset the settings:

' Call this when the user exits the db
Sub RestoreACSettings()
On Error GoTo RestoreACSettingsErr
' Debug.Print varTrackSetting
Application.SetOption strTrackAC, varTrackSetting
Exit Sub

RestoreACSettingsErr:
MsgBox Err.Description

End Sub

 

[Highlife]

Create a new module and paste the following:


Option Compare Database
Option Explicit

Type str_DEVMODE
RGB As String * 94
End Type

Type str_PRTMIP
strRGB As String * 28
End Type

Type type_PRTMIP
intLeftMargin As Integer
intTopMargin As Integer
intRightMargin As Integer
intBotMargin As Integer
intDataOnly As Integer
intWidth As Integer
intHeight As Integer
intDefaultSize As Integer
intColumns As Integer
intColumnSpacing As Integer
intRowSpacing As Integer
intItemLayout As Integer
intFastPrint As Integer
intDatasheet As Integer
End Type


Type type_DEVMODE
strDeviceName As String * 16
intSpecVersion As Integer
intDriverVersion As Integer
intSize As Integer
intDriverExtra As Integer
lngFields As Long
intOrientation As Integer
intPaperSize As Integer
intPaperLength As Integer
intPaperWidth As Integer
intScale As Integer
intCopies As Integer
intDefaultSource As Integer
intPrintQuality As Integer
intColor As Integer
intDuplex As Integer
intResolution As Integer
intTTOption As Integer
intCollate As Integer
strFormName As String * 16
lngPad As Long
lngBits As Long
lngPW As Long
lngPH As Long
lngDFI As Long
lngDFr As Long
End Type

Public Function CheckCustomPage(rptName As String, nPaperSize, nOrientation)

Dim DevString As str_DEVMODE
Dim DM As type_DEVMODE
Dim strDevModeExtra As String
Dim rpt As Report
Dim PrtMipString As str_PRTMIP
Dim PM As type_PRTMIP
Dim intResponse As Integer
' Opens report in Design view.
Application.Echo False
DoCmd.OpenReport rptName, acDesign

Set rpt = Reports(rptName)
If Not IsNull(rpt.PrtDevMode) Then
strDevModeExtra = rpt.PrtDevMode ' Gets current DEVMODE structure.
DevString.RGB = strDevModeExtra
LSet DM = DevString
DM.lngFields = DM.lngFields Or DM.intPaperSize Or DM.intOrientation
DM.intPaperSize = nPaperSize ' Set custom page.
' Prompt for length and width.
If DM.intOrientation <> nOrientation Then
DM.intOrientation = nOrientation
End If
LSet DevString = DM ' Update property.
Mid(strDevModeExtra, 1, 94) = DevString.RGB
rpt.PrtDevMode = strDevModeExtra
End If
PrtMipString.strRGB = rpt.PrtMip
LSet PM = PrtMipString
PM.intLeftMargin = 0.166 ' Set margins.
PM.intTopMargin = 0.25
PM.intRightMargin = 0.166
PM.intBotMargin = 0.25
LSet PrtMipString = PM ' Update property.
rpt.PrtMip = PrtMipString.strRGB

DoCmd.Close acReport, rptName
Set rpt = Nothing
Application.Echo True
End Function

*************************************************
From the command button, Call the report thusly:
*************************************************
Dim RetVal As Variant
Dim rpt as String

Const DM_LEGAL = 5
Const DM_PORTRAIT = 1
Const DM_LANDSCAPE = 2

DoCmd.SetWarnings False
RetVal = CheckCustomPage(rpt, DM_LEGAL, DM_PORTRAIT)
DoCmd.SetWarnings True

DoCmd.OpenReport rpt, acViewPreview