Hallo zusammen,
Wie Ihr anhand meiner folgenden Frage leicht erkennen werdet, bin ich absoluter noob im Zusammenhang mit CR..
Also:
Ich habe in Access 2k ein Formular (Auswahl Daten). Nach der Auswahl kann der Benutzer mit einem button den Druck des CR-Berichts veranlassen.
Mein Problem ist nun, dass ich aber den Viewer starten möchte..
Folgender Code wurde bisher eingesetzt:
Private Sub Befehl2_Click()
On Error GoTo Err_Befehl2_Click
Dim dbs As Database
Dim qdf As QueryDef
'Variable für Crystal Report Anwendung
Dim CRXApplication As Object
'Variable für Rapport-Objekt
Dim CRXReport As Object
'Verbindung zu aktueller Datenbank herstellen
Set dbs = CurrentDb
'Ausgewählte Batchnr in Tabelle schreiben
dbs.Execute "UPDATE [dbo_T_Batch_Nr_Rapport] " _
& "SET [Batch_Nr_Rapport] = " & [Batchnr]
dbs.Close
'Objekt von Crystal Report erstellen
Set CRXApplication = CreateObject("CrystalRuntime.Application")
'Objekt von Batchrapport erstellen
Set CRXReport = CRXApplication.OpenReport("C:\CIMPLICITY\HMI\Projects\SaCU\Batchrapport\BatchRapport.rpt")
'Befehl Rapport drucken
CRXReport.PrintOut True
Exit Sub
Err_Befehl2_Click:
MsgBox "Batchrapport kann nicht gedruckt werden!"
End Sub
Kann mir jemand sagen, wie und wo ich den Code ändern muss
Ich danke euch für eure Hilfe!
aWAKEning