Close report nach Ausdruck in pdf : falsche Syntax ?

03/04/2009 - 23:59 von Reinhard Papp | Report spam
Hallo wieder einmal !
Ihc drucke eine Bericht über eine Befehlsschaltflàche in pdf aus. Das geht
ohne Probleme mit dem code aus Donkarl 5.1

Dim stDocName As String
stDocName = "eta_REC01"

DoCmd.OpenReport stDocName, acViewPreview, , , acHidden
Reports!eta_REC01.Printer = Application.Printers("Adobe PDF")
DoCmd.PrintOut

Das pdf wird gedruckt, am Ende bleibt der Bericht offen (es ist eine Seite
mit 20 Datensàtzen) und ich möchte ihn automatisch schliessen, also füge ich
an obigen statements
DoCmd.Close
an, worauf 544 Seiten auf dem Standarddrucker ausgegeben werden und kein pdf
mehr.

Was mache ich da falsch ?
Reinhard
 

Lesen sie die antworten

#1 Karl Donaubauer
04/04/2009 - 00:35 | Warnen spam
Reinhard Papp wrote:
Ihc drucke eine Bericht über eine Befehlsschaltflàche in pdf aus. Das geht
ohne Probleme mit dem code aus Donkarl 5.1

Dim stDocName As String
stDocName = "eta_REC01"

DoCmd.OpenReport stDocName, acViewPreview, , , acHidden
Reports!eta_REC01.Printer = Application.Printers("Adobe PDF")
DoCmd.PrintOut

Das pdf wird gedruckt, am Ende bleibt der Bericht offen (es ist eine Seite
mit 20 Datensàtzen) und ich möchte ihn automatisch schliessen, also füge
ich an obigen statements
DoCmd.Close
an, worauf 544 Seiten auf dem Standarddrucker ausgegeben werden und kein
pdf mehr.

Was mache ich da falsch ?



Das PrintOut hast du aber nicht aus FAQ 5.1.
Da du den Bericht unsichtbar öffnest und sich PrintOut immer auf
das aktuelle Objekt am Bildschirm bezieht, druckst du wahrscheinlich
das Formular oder was auch immer gerade aktuell ist.

Ersetze PrintOut durch OpenReport, wie in der FAQ gezeigt bzw.
verlinkt.

Zusàtzlich solltest du auch das Close nicht blind (=ebenfalls das
gerade aktuelle Objekt) schließen lassen sondern Parameter angeben.

Falls der Code im zu schließenden Bericht steht:
DoCmd.Close acReport, Me.Name

Andernfalls:
DoCmd.Close acReport, "Berichtsname"

HTH
Karl
********* Ich beantworte keine Access-Fragen per Email. *********
Access-FAQ: http://www.donkarl.com
3. SQL Server-Entwickler-Konferenz - Nürnberg im Mai

Ähnliche fragen