VB-Tec.de Visual Basic - Technik, FAQ, Tricks, Beispiele

Historie
28.04.2001	Voraussetzungen genannt; Kapselung in komfortabler Prozedur; Beispiel hinzugefügt
30.04.2000	Erste Version: Grundlegenes Vorgehen

Einleitung

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.

Beispiel

Die folgende Zeile startet Access mit der angegebenen Datenbank, und zeigt den Bericht "Umsatz2000" als Vorschau an:

AccessReport "D:\Test\Handel.mdb", "Umsatz2000", acViewPreview

Code

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