Moin,
ich habe einen Bericht (Access 2010 auf Win 7), der ist vom Design in Hochformat.
In Abhängigkeit vom Umfang der Daten wird beim Ausdruck auf quer umgestellt. Das klappt auch über
'Reports(Bericht).Printer.Orientation = acPRORPortrait
Reports(Bericht).Printer.Orientation = acPRORLandscape
Allerdings wollen die Anwender gern in der Vorschau, sprich Seitenansicht, die richtige Orientierung sehen bzw. auch selbst gern noch mal testweise umschalten können.
Ich habe jetzt nach einem Makro- oder VBA-Befehl gesucht, mitttels dem man die manuelle Einstellung im Entwurfsmodus - Seite einrichten - Format nachbilden kann.
Habe nur das gefunden
DoCmd.OpenReport "Bericht", acViewDesign, , , acHidden
Dim rpt As Report
Set rpt = Reports(Bericht)
rpt.PrtDevMode = 2 'Quer
DoCmd.Close acReport, Bericht, acSaveYes
DoCmd.OpenReport Bericht, acViewPreview, , , acWindowNormal
was aber nicht zum gewünschten Ergebnis führt, in der Preview-Ansicht wird weiter die ehemals eingestellte Orientierung verwendet. (denn die PrtDevMode-Eigenschaft ist wohl letztendlich nichts anderes als Printer.Orientation, denke ich)
Hat jemand eine Idee?
Gruß