title image


Smiley manchmal frage ich mich...
ob die gute access hilfe gar nicht mehr genutzt wird´:



Das folgende Beispiel zeigt, wie die Ausrichtung eines Berichtes geändert werden kann. In diesem Beispiel wird die Ausrichtung von Hochformat in Querformat oder von Querformat in Hochformat geändert (je nach momentaner Ausrichtung des Berichtes).





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

' Den Bericht in der Entwurfsansicht öffnen.

DoCmd.OpenReport strName, acDesign

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



ist ein tipp von microsoft... ;)

Aphorismus der Woche:
Es kommt nicht darauf an, mit dem Kopf durch die Wand zu rennen, sondern mit den Augen die Tür zu finden.
Werner von Siemens (1816 - 1892)


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: