Report #

Das Report-Objekt ermöglicht das Auflisten, Filtern und Bearbeiten der im System vorhandenen Berichte. Es wird über Client.CreateObject("Reports") erzeugt.

Set reps = Client.CreateObject("Reports")

Eigenschaften #

Eigenschaft	Typ	Zugriff	Beschreibung
`Count`	Integer	nur lesen	Anzahl der Berichte (nach Anwendung der Filter)
`ReportType`	String	lesen/schreiben	Berichtstyp
`ReportSubType`	String	lesen/schreiben	Berichts-Untertyp
`ProviderName`	String	lesen/schreiben	Name des Builders, mit dem der Bericht erstellt wurde
`VendorName`	String	lesen/schreiben	Name des Berichtserstellers
`DesigneLang`	String	lesen/schreiben	Sprache, in der der Bericht verfügbar ist
`MenuCaption`	String	lesen/schreiben	Menüeintrag des Berichts
`ActionCategory`	String	lesen/schreiben	Name des Druckeintrags
`RegistryKey`	String	nur lesen	Vollständiger Registry-Schlüssel des Berichts

Filter-Methoden #

Methode	Beschreibung
`FilterIsHidden(Value)`	Filtert versteckte Berichte
`FilterIsDefault(Value)`	Standardfilter für Berichte
`FilterDOCName(Value)`	Filtert Berichte nach Dokumentname
`FilterIsCommon(Value)`	Filtert gemeinsame Berichte
`FilterIsCnSoft(Value)`	Filtert von EULANDA erstellte Berichte
`FilterReportName(Value)`	Filtert nach Berichtsname
`FilterReportTitle(Value)`	Filtert nach Berichtstitel
`ClearFilter`	Setzt alle Filter zurück

Weitere Methoden #

Methode	Rückgabe	Beschreibung
`Items(Index)`	Variant	Gibt den Bericht an Position `Index` zurück
`EditProfile(ProfileName)`	Boolean	Öffnet den Bearbeitungsdialog für Druckergruppen
`GetMappedProfile(ProfileName)`	String	Gibt das gemappte Profil zurück
`GetProfileMapping(ProfileName)`	String	Gibt das Profil-Mapping zurück
`GetProfileNames(Options)`	String	Gibt die Druckerprofile zurück, in denen Berichte verfügbar sind

Beispiel #

Alle Berichte mit ihren Registry-Pfaden auflisten:

Sub report_beispiel
  Dim s, reps, i

  Set reps = Client.CreateObject("Reports")

  For i = 0 To reps.Count - 1
    s = s & reps.Items(i).RegistryKey & vbCrLf
  Next

  MsgBox s

  ' Den fünften Bericht im Designer öffnen
  reps.Items(5).Edit

  Set reps = Nothing
End Sub

report_beispiel

Siehe auch #

Client.Print – Berichte drucken
PrintJob – Druckauftragsdaten