Type str_DEVMODE
	RGB As String *  94 
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

  Sub SwitchOrient(strName As String)
	Const DM_PORTRAIT =  1 
	Const DM_LANDSCAPE =  2 
	Dim DevString As str_DEVMODE
	Dim DM As type_DEVMODE
	Dim strDevModeExtra As String
	Dim rpt As Report
	DoCmd.OpenReport strName, acDesign
			' Открывает отчет в режиме конструктора.
	Set rpt = Reports(strName)
	If Not IsNull(rpt.PrtDevMode) Then
		strDevModeExtra = rpt.PrtDevMode
		DevString.RGB = strDevModeExtra
		LSet DM = DevString
		DM.lngFields = DM.lngFields Or DM.intOrientation	' Инициализирует поля.

If DM.intOrientation = DM_PORTRAIT Then
			DM.intOrientation = DM_LANDSCAPE
		Else
			DM.intOrientation = DM_PORTRAIT
		End If
		LSet DevString = DM
						' Обновляет значение свойства.
		Mid(strDevModeExtra,  1 ,  94 ) = DevString.RGB
		rpt.PrtDevMode = strDevModeExtra
	End If
End Sub