Drucken eines datensatzes

Computer: Software & Programmierung Microsoft Access
#1

Ich habe einen bericht erstellt, und möchte ihn ausdrucken. Dabei werdeb alle datensätze gedruckt, ich möchte aber nur einen datensatz, welcher schon ausgewählt ist drucken.

Private Sub Befehl47_Click()
On Error GoTo Err_Befehl47_Click

Dim stDocName As String

stDocName = „Info_Termin“
DoCmd.OpenReport stDocName, acNormal

Exit_Befehl47_Click:
Exit Sub

Err_Befehl47_Click:
MsgBox err.Description
Resume Exit_Befehl47_Click

End Sub

Gruss Jürgen

#2

Hallo

ich habe das folgendermassen gelöst, Damit öffnet sich ein Bericht des aktuellen Datensatztes.den du dann drucken kannst.

Private Sub Befehl201_Click()
On Error GoTo Err_Befehl201_Click

Dim stDocName As String
Dim stLinkCriteria As String

DoCmd.OpenReport „Dein Bericht“, acViewPreview, , _
"[Deine ID] = " & Me![Deine ID]

Exit_Befehl201_Click:
Exit Sub

Err_Befehl201_Click:
MsgBox Err.Description
Resume Exit_Befehl201_Click

End Sub

ow88

#3

Hallo,

DoCmd.OpenReport stDocName, acNormal, "FeldnameInBerichtdatenherkunft = ’
" & forms!formularname!FeldnameInFormular & „’“

#4

Danke,

könntest Du mir nur die zeile DoCmd …

noch ein bisschen genauer erklären, bzw. was ist
Deine ID ?

DoCmd.OpenReport „Dein Bericht“, acViewPreview, , _
"[Deine ID] = " & Me![Deine ID]

:

ow88

#5

In deiner Tabelle (Formular) von dem der Bericht erstellt wird
sollte es eine eindeutige id geben.
Dieses Feld muss dann im Bericht auch mit einbezogen werden, (kann auf nicht sichtbar gestellt werden)
auf diese id wird auch der Bericht zugreifen

hoffe es ist einigermassen verständlich

ow88

#6

da kann ich leider nicht helfen

#7

Hallo Jürgen,

sorry, mir fehlt leider die Zeit, mich deines etwas anspruchsvolleren Problems zu widmen, zumal ich auch nicht der ausgewiesene VBA-Experte bin.
Bitte um Verständnis.

Carsten.HB

#8

Ich habe einen bericht erstellt, und möchte ihn ausdrucken.
Dabei werdeb alle datensätze gedruckt, ich möchte aber nur
einen datensatz, welcher schon ausgewählt ist drucken.

Private Sub Befehl47_Click()
On Error GoTo Err_Befehl47_Click

Dim stDocName As String

stDocName = „Info_Termin“
DoCmd.OpenReport stDocName, acNormal

Exit_Befehl47_Click:
Exit Sub

Err_Befehl47_Click:
MsgBox err.Description
Resume Exit_Befehl47_Click

End Sub

Gruss Jürgen

##################################################

  1. wenn es sich um einen Bericht handelt, der auf eine Abfrage basiert, würde ich zunächst solo die Abfrage ausführen, um zu sehen, daß wirklich nur ein Satz ausgewählt wurde
  2. wenn ein Formular ausgedruckt wird, in dem nur ein Satz angezeigt wird und dieser gedruckt werden soll, muß in den Eigenschaften des Gesamt-Formulars in der Zeile Datensatzmarkierer „ja“ eingegeben werden.
    Anschließend das angezeigte Fomular am Rande anklicken (markieren) und im Druckbereich vom drucken auf markierte Datensätze klicken - ok - jetzt wird nur der dieser eine Satz gedruckt.
    Gruß Günter
#9

Hallo echojuergen,

ich kann die leider nicht weiter helfen.

Gruss
Horst Müller