title image


Smiley Re: Seitenformat Querformat
Aus der Online Hilfe











Sub AusrichtungWechseln(strName As String)

Const DM_HOCHFORMAT = 1

Const DM_QUERFORMAT = 2

Dim GeräteZF As str_DEVMODE

Dim DM As type_DEVMODE

Dim strGerätemodus As String

Dim rpt As Report

DoCmd.OpenReport strName, acDesign ' Den Bericht in der Entwurfsansicht öffnen.

Set rpt = Reports(strName)

If Not IsNull(rpt.PrtDevMode) Then

strGerätemodus = rpt.PrtDevMode

GeräteZF.strGZF = strGerätemodus

LSet DM = GeräteZF

DM.lngFields = DM.lngFields Or DM.intOrientation ' Das Element Fields initialisieren.



If DM.intOrientation = DM_HOCHFORMAT Then

DM.intOrientation = DM_QUERFORMAT

Else

DM.intOrientation = DM_HOCHFORMAT

End If

LSet GeräteZF = DM ' Die Eigenschaft aktualisieren.

Mid(strGerätemodus, 1, 94) = GeräteZF.strGZF

rpt.PrtDevMode = strGerätemodus

End If

End Sub





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: