Office: (Office 2013) Bericht Formatierung dauert sehr lang

reeky · 7. Mai 2016

Hallo zusammen,

ich habe mir einen Bericht gebastelt. Leider dauert dieser sehr lange im Aufbau. Dies möchte ich noch optimieren. Hier einige Eckdaten:

Der Bericht soll über ein separates Druckformular mehrmals, jedoch mit unterschiedlicher Formatierung (umgesetzt über VBA) gedruckt werden.

Der VBA-Code des Druckbuttons sieht wie folgt aus:
Code:

Private Sub butDrucken_Click()

Dim iSeitenAbwaerts As Integer
Dim iSeitenSeitwaerts As Integer
Dim iLosgroesseJeSeite As Integer
Dim iAnzahlSpalten As Integer
Dim d As Double
Dim i As Integer

iLosgroesseJeSeite = 40
iTeileJeSeite = Me.Losgröße
iStartTeileNr = 0
iStartSeitenNr = 0

' ###############################
' TODO:
' Sicherheitsabfrage Losgröße > 0
' ###############################

' speichern des Datensatzes
Me.Refresh

' Seitenzahl abwärts ermitteln (abhängig von Anzahl der Prüfmerkmale)
DoCmd.OpenReport "rptPrfPlan", acViewPreview, , , acWindowNormal, Me.idPrfPlan
iSeitenAbwaerts = Reports!rptPrfPlan!fldSeiten

' Seiten seitwärts ermitteln
d = Me.Losgröße / iLosgroesseJeSeite
iSeitenSeitwaerts = d
If (d - Fix(d)) > 0 Or d = 0 Then iSeitenSeitwaerts = Fix(d) + 1

' gesamtseitenzahl ermitteln
iGesamtSeiten = iSeitenAbwaerts * iSeitenSeitwaerts

' bericht hier schließen, da oben nicht korrekt geschlossen wird
DoCmd.Close acReport, "rptPrfPlan", acSaveNo

DoCmd.OpenReport "rptPrfPlan", acViewPreview, , , acWindowNormal, Me.idPrfPlan

' Diese schleife soll den bericht mehrmals mit
' unterschiedlichen Formatierungen öffnen (ist noch nicht fertig)
'Do
If (iTeileJeSeite - iLosgroesseJeSeite) = 0

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

SQL-Datenquelle des Berichts:
Code:

SELECT tblPrfPlanMerkmal.*, Nz(DFirst("[Abkürzung]","qryPrfPlan_MN","idPrfPlanMerkmal=" & [idPrfPlanMerkmal]),"") AS PM_0, Nz(DFirst("[tblPrfPlanPM]![idPrfPlanPM]","qryPrfPlan_MN","idPrfPlanMerkmal=" & [idPrfPlanMerkmal]),"") AS PM_1, IIf([PM_1]"",Nz(DFirst("[Abkürzung]","qryPrfPlan_MN","[tblPrfPlanPM]![idPrfPlanPM]>" & [PM_1] & " AND idPrfPlanMerkmal=" & [idPrfPlanMerkmal]),""),"") AS PM_2, IIf([PM_1]"",Nz(DFirst("[tblPrfPlanPM]![idPrfPlanPM]","qryPrfPlan_MN","[tblPrfPlanPM]![idPrfPlanPM]>" & [PM_1] & " AND idPrfPlanMerkmal=" & [idPrfPlanMerkmal]),""),"") AS PM_3, IIf([PM_3]"",Nz(DFirst("[Abkürzung]","qryPrfPlan_MN","[tblPrfPlanPM]![idPrfPlanPM]>" & [PM_3] & " AND idPrfPlanMerkmal=" & [idPrfPlanMerkmal]),""),"") AS PM_4, IIf([PM_0]"",[PM_0],"") & IIf([PM_2]"",", " & [PM_2],"") & IIf([PM_4]"",", " & [PM_4],"") AS PM
FROM tblPrfPlanMerkmal;
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Im Bericht selbst wird dann noch im Fußbereich eine Zeile generiert. Der VBA-Code dazu sieht so aus:
Code:

Private Sub Report_Load()

Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim sPM As String

' In Fusszeile Abkürzungen von PM aktualisieren
Set db = Application.CurrentDb
Set rst = db.OpenRecordset("SELECT tblPrfPlanPM.Bezeichnung, tblPrfPlanPM.Abkürzung FROM tblPrfPlanPM ORDER BY tblPrfPlanPM.Abkürzung")

rst.MoveFirst
Do Until rst.EOF
sPM = sPM & rst!Abkürzung & "=" & rst!Bezeichnung & " "
rst.MoveNext
Loop
rst.Close
db.Close
Set rst = Nothing
Set db = Nothing

Me.txtPM.Caption = sPM
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Anbei befinden sich noch Screenshots, wie der Bericht im Entwurfsmodus und Druckzustand aussieht.
Ein Ansatz von mir, wäre evtl. ähnlich wie bei Formularen mit me.paint = false alles an Rendering auszuschalten und zum Schluss wieder einschalten, wenn alles fertig ist.
Könntet ihr mir bitte ein paar Ansätze zum Optimieren nennen?

:)

markusxy · 9. Mai 2016

du teilst aber nicht mit, was konkret wie lange dauert.
LGM

reeky · 16. Mai 2016

Hallo Markus,

lange dauert der Aufbau des Druckformulars, sozusagen die preview-Ansicht.
Er zeigt in der Access-Statusleiste die ganze Zeit an, dass der Bericht formatiert wird.

markusxy · 16. Mai 2016

Die Datenquelle für den Bericht könnte ein größeres Problem sein.
Du hast da ja jede Menge Domänen Funktionen drin.
Ich würd die alle durch Sql ersetzen.
Wenn dann im Bereicht noch nach den Ergebnissen dieser Domänen Funktionen sortiert, gruppiert oder gefiltert wird, dann gute Nacht.

LG Markus

Office: (Office 2013) Bericht Formatierung dauert sehr lang

Bericht Formatierung dauert sehr lang

Bericht Formatierung dauert sehr lang

Bericht Formatierung dauert sehr lang

Bericht Formatierung dauert sehr lang - Similar Threads - Bericht Formatierung dauert

Bericht per VBA formatieren

Im Bericht nach Gruppen sortieren

betimmten Montag als Datum in Bericht anzeigen

Textfelder in Bericht automatisch verlängern

Access Textfeld in Bericht mit Formatierung

Video: Verwenden der bedingten Formatierung in Berichten

Fragen zur Formatierung eines Berichts