Berichtaufbau dauert sehr lange

[Bjoern76]

Hallo zusammen,

ich habe seit Samstag ein Problem mit dem Aufrufen der Berichte.
(Samstag habe ich die aktuellen Updates auf unseren Servern installiert. (Printserver und SQL-Server))

Bis dahin funktionierte es ganz normal.

Das erstmalige Aufrufen nach laden der Datenbank dauert extrem lange,
wenn es wie bisher über folgenden Code geladen wird.

Code [Auswählen] Erweitern

Dim rptname As String
rptname = "rptAngebot"

Dim PrintOb As Object
Set PrintOb= Application

DoCmd.OpenReport rptname, acViewPreview, , , acHidden

Set PrintOb.Printer = Application.Printers(DLookup("[Drucker]", "tblPrinter", "Kennung = 'KFM'"))

Reports(rptname).Printer = Application.Printers(DLookup("Drucker", "tblPrinter", "Kennung = 'KFM'"))

DoCmd.OpenReport rptname, acViewPreview


Würde ich den Bericht einfach über

Code [Auswählen] Erweitern

DoCmd.OpenReport rptname, acViewPreview
aufrufen, habe ich keine Probleme.

Die Funktion soll aber so aufgebaut sein, dass ich je nach Abteilung dem Bericht einen Drucker zuteilen möchte.
Wie gesagt, bisher funktioniert der Aufruf einwandfrei und zeitnah.

Der Druckername und die in der Tabelle hinterlegten Drucker stimmen auch überein.

Das Seltsame ist, dass das Aufrufen beim zweiten Mal wieder schnell geht.

Hat jemand eine Idee?

Danke Euch.

Gruß Björn