Office: (Office 2010) Bericht dynamisch sortieren und drucken per VBA

Hallo zusammen,

ich habe eine Access 2010 Datenbank in der ich einen Bericht über einen Button, via VBA sortieren und drucken möchte.
Im Bericht selbst habe ich keine Sortierung festgelegt, dies mache ich über den VBA - Code:

Code:

Beim Anzeigen des Berichts werden die Sortierungen korrekt dargestellt.
Aber wie gebe ich den Druckbefehl mit?

Docmd.PrintOut funktioniert nicht, da er die Sortierung nicht im Bericht speichert - was er ja auch nicht soll. Da ich 5 Button habe, mit denen ich eine Sortierung des einen Berichtes mitgeben möchte.

Bitte um Hilfe.
Vielen Dank

:)

 

Hi,

du könntest den Bericht unsichtbar im Entwurf öffnen und dort die Eigenschaften einstellen. Danach dann Docmd.OpenReport mit Preview. Da der Bericht bereits offen ist (mit Sortiereinstellungen), wird der dann nicht erneut geöffnet, sondern einfach gezeigt.

 

Hallo,

der Bericht kann leider nicht in der Entwurfsansicht geöffnet werden, da die Datenbank von mehreren Benutzern verwendet wird und die Eigenschaft "Entwurfsansicht" deaktiviert ist.

Aber ich habe das ganze auch schon probiert als ich Exklusiv drin war - da hat es auch nicht funktioniert.
Mit diesem Code:

Code:

So speichert er sogar die Eigenschaft in der Sortierung, macht es aber manchmal trotzdem nicht.
Der Code ist mir zu unsicher für eine Anwendung mit mehreren Benutzern.

Gibt es vielleicht eine andere Lösung?

 

Wenn die Vorschau schon aktiv ist, ist es zu spät. Die Sortierung kannst du nur im Entwurfsmodus beeinflussen.

Die ganz große Lösung wäre die komplett per VBA gesteuerte Erzeugung von Reports, wie sie meine Demo "Reportgenerator" im Codearchiv zeigt.

 

Hallo bwkannbw,

ich hatte eben noch versucht, die Sortierung per OpenArgs an den Bericht zu übergeben und dort im Report_Open() zu setzen; leider auch erfolglos.

Wenn dein Bericht keine Sortierung enthält, könntest du testen, ob die Sortierung der Datenquelle übernommen wird? Also z.B. eine Abfrage als Datenquelle verwenden und dort ein Order By einfügen. Die Abfrage könntest du dann vor dem Öffnen des Berichts neu schreiben.

Wäre zumindest einen Test wert.

Grüße aus Bremen,
Stefan

 

Hallo Stefan,

leider werden die Sortierungen, meiner Meinung nach, nicht aus den Datenquellen übernommen, sonderm müssen in den Berichten selbst definiert werden.

Hatte es mal getestet und in der Abfrage selbst eine Sortierung hinterlegt, diese wird aber nicht vom Bericht übernommen.

Ich könnte es mir natürlich einfach machen und 30 Berichte erstellen aber diese Lösung wäre sehr schlecht, da verliert man zu schnell den Überblick.

Trotzdem vielen Dank!

Gruß
Nico

 

Hi,

wie erwähnt, gibt es die Möglichkeit, den Bericht per VBA im Entwurf designen zu lassen, dort die Sortierung einzustellen und ihn dann anzuzeigen.

 

Hallo!

Sie wird nicht übernommen, wenn du im Bericht selbst eine Sortierung eingestellt hast. Ein Bericht ohne Sortierung und ohne Gruppierung sollte die Datensätze in der Reihenfolge der Datenquelle anzeigen.

Ich mache gerne folgendes:
In der Abfrage definiere ich Felder, nach denen im Bericht sortiert wird.
Diese Felder bekommen Alias wie Gruppe1 oder Sortierung1 usw.
Im Bericht nutze ich diese Felder um Gruppierung bzw. Sortierung einzustellen.
Wenn ich dann in der Abfrage andere Felder mit diesem Alias belege, wird nach diesen Feldern gruppiert/sortiert und ich muss im Berichts nichts ändern.

mfg
Josef

 

Hallo Josef,

vielen Dank.
Dann probiere ich es mal aus.
Müsste ja dann über VBA der Abfrage einen OrderBy-Befehl mitgeben, diese kann ich ja in der Entwurfsansicht immer ändern.

@ Atrus: Danke Dir! Allerdings bezweifel ich, dass ich mir mit meinen VBA Kentnissen, deinen Code - für meine Zwecke - zusammenpuzzeln kann.
Habe nämlich eine Datenbank mit 7 Berichten, die alle verschieden aufgebaut sind und alle nach anderen Faktoren sortiert werden sollen.

Gruß
nico

 

hallo leute *Smilie
ich belebe dieses thema mal wieder !!

ich habe ein sehr ähnliches problem: öffne einen bericht über ein formular. dort soll man den filter und die sortierung angeben können. das filtern funktioniert bereits einwandfrei. Nur mit dem Sortieren habe ich meine liebe not! habe auch schon ausprobiert ob ich die sortierung wie eine sql im filter schreiben kann aber das ging auch nicht :/

hier mal mein code:

strfilter ist mein filter .. der wird bereits oben definiert
und OrderBy1 ist ein string
die erste if ist um auf- oder absteigend zu sortieren

If Me.opt_SortierenRichtung = 1 Then
OrderBy1 = "'" & cstrField & "'"
Else
OrderBy1 = "'" & cstrField & "' DESC"
End If

DoCmd.OpenReport "rpt_Kontaktliste", acViewPreview, strFilter
Reports!rpt_Kontaktliste.OrderBy = OrderBy1
Reports!rpt_Kontaktliste.OrderByOn = True

danke für eure rückmeldungen *Smilie
mfg

 

Nimm die Sortierung mal im Open-Event des Berichts vor.

 

Hallo
ich habe eine Muster MDB
hoffe diese kann etwas Helfen
Resultat s. Bild

 

ok gut das ist mir jetzt klar .. könnt ihr mir auch weiterhelfen, wenn ich den bericht jetzt doch auch noch dynamisch gruppieren möchte?
lg