Kontakt
DSVGO
Historie | |
28.04.2001 | Voraussetzungen genannt; Kapselung in komfortabler Prozedur; Beispiel hinzugefügt |
30.04.2000 | Erste Version: Grundlegenes Vorgehen |
Mit der unten gezeigten Routine AccessReport können Access-Berichte entweder sofort ausgedruckt (acViewNormal, Voreinstellung) oder auch in der Vorschau angezeigt (acViewPreview) werden. Erreicht wird dies durch die sogenannte ActiveX-Automation. Voraussetzung dafür ist allerdings, dass Microsoft Access ordnungsgemäß auf dem Rechner installiert wurde.
Die folgende Zeile startet Access mit der angegebenen Datenbank, und zeigt den Bericht "Umsatz2000" als Vorschau an:
AccessReport "D:\Test\Handel.mdb", "Umsatz2000", acViewPreview
Binden Sie die "Microsoft Access Object Library" via Projekt/Verweise (Project/References) in Ihr Projekt ein. Fügen Sie folgenden Code hinzu:
Sub AccessReport( _ ByRef Path As String, _ ByRef Report As String, _ Optional ByVal View As AcView = acViewNormal) Dim App As Access.Application Set App = New Access.Application With App .OpenCurrentDatabase Path .DoCmd.OpenReport Report, View If View = acViewNormal Then 'Access nach Druck beenden: .Quit acQuitSaveNone Else 'Vorschau im Vollbild anzeigen: .Visible = True .DoCmd.Maximize SendKeys "%{ }x" End If End With Set App = Nothing End Sub
© Jost Schwider, 30.04.2000-28.04.2001 - http://vb-tec.de/accrep.htm