Objekt senden

Computer: Software & Programmierung Microsoft Access
1

Hallo Leute,
Ich möchte auf klicken einer Schaltfläche eine Seite eines Berichtes versenden.

Ich hab dazu (übrigens auch aus diesem Forum) ein Makro in meine Datenbank eingefügt.

Dieses Makro1 funktioniert einwandfrei. Allerdings versendet es den gesammten Bericht.(Alle Datensätze auf die der Bericht basiert)

Ich möchte aber, dass nur eine bestimmte Seite versendet wird.

Analog zum Aufruf einer Berichtsvorschau:

Private Sub Berichtsvorschau_Click()
On Error GoTo Err_Berichtsvorschau_Click

Dim stDocName As String
Dim stLinkCriteria As String
stLinkCriteria = „Prozess = '“ & Me!Prozess & „’“
stDocName = „Prozessbeurteilung IKS“

DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria

Exit_Berichtsvorschau_Click:
Exit Sub

Err_Berichtsvorschau_Click:
MsgBox Err.Description

End Sub

Kann ich dem Makro also noch ein Kriterium mitgeben, oder muss ich dazu im Makro selbst dem Ojektnamen ein Kriterium mitgeben ?

Beim Makroaufruf über:

stDocName = „Makro1“
DoCmd.RunMacro stDocName

ist lediglich die wiederholungsanzahl eingebbar (Hab ich aus der Hilfe gelesen…)

Gruß Christian

2

Hallo,

Willst Du nun nur eine Seite eines Berichte-Datensatzes oder nur einen Datensatz, der durchaus mehrere Seiten haben kann, ausdrucken?

Wenn lediglich die Berichtsvorschau "direkt gedruckt werden soll, so geht einfach so („preView“ weglassen, bzw. „acNormal“ verwenden)

Private Sub BerichtDrucken\_Click()
On Error GoTo Err\_Berichtsvorschau\_Click


Dim stDocName As String
Dim stLinkCriteria As String
stLinkCriteria = "Prozess = '" & Me!Prozess & "'"
stDocName = "Prozessbeurteilung IKS"

DoCmd.OpenReport stDocName, **acNormal** , , stLinkCriteria

Exit\_Berichtsvorschau\_Click:
Exit Sub

Err\_Berichtsvorschau\_Click:
MsgBox Err.Description

End Sub

Und: Vergiss Makros (in Access)

asd

3

Hallo,

Hallo zurück,
danke. dass Du Dir Gedanken gemacht hast.

Es ist tatsächlich nur eine Seite des Berichtes die als Anhang an die Mail übermittelt werden soll.

Und: Vergiss Makros (in Access)

aber wie soll ich das denn in vba machen ?
Es funktioniernt so gut und einfach im Makro…

Außerdem kann ich dann entprechend Kopien und Betreff mit verändern und versenden…

Gruß Christian

4

Hallo,

Hallo zurück,
danke. dass Du Dir Gedanken gemacht hast.

Es ist tatsächlich nur eine Seite des Berichtes die als Anhang
an die Mail übermittelt werden soll.

Und: Vergiss Makros (in Access)

aber wie soll ich das denn in vba machen ?

einfach so:

Private Sub btnDruckenSeite_Click()
DoCmd.OpenReport „rptDeinBericht“, acViewPreview

DoCmd.PrintOut acPages, 2, 2 'wenn nur die 2. Seite des Berichtes gedruckt werden soll.

DoCmd.Close acReport, „rptDeinBericht“
End Sub

Gruß
DF6GL

Es funktioniernt so gut und einfach im Makro…

naja, warum fragst Du denn dann, wenn es gut funktioniert??

Außerdem kann ich dann entprechend Kopien und Betreff mit
verändern und versenden…

Gruß Christian

5

…hab ich hinbekommen !

vielen Dank an Euch alle !

Christian