Aus einer Formularanzeige nur den angezeigten Datensatz drucken

[peterchen1000]

Hallo,

Kann mir vielleicht jemand helfen. Ich habe ein Formular, das mir Kunde, Ort, Anzahl Palettenlieferung usw. anzeigt. Ich möchte aus diesem Formular heraus nur den angezeigten Datensatz auf ein Etikett drucken.
Das Drucken aller Datensätze funktioniert schon. Vielen Dank

[Beaker s.a.]

Hallo Peter,
Öffne den Bericht mit einem Filter

Code [Auswählen] Erweitern

DoCmd.OpenReport _
        ReportName:="DeinEtikett", _
        WhereCondition:= "DatensatzIDimBericht = " & Me.DatensatzIDimFormular
gruss ekkehard

[peterchen1000]

Danke für die schnelle Antwort. leider funktioniert diese Variante nicht.
Ich habe für den Ausdruck aller Datensätze folgenden Code:

Private Sub Detailbereich_Print(Cancel As Integer, PrintCount As Integer)
    If Me![Etiketten] = 0 Then
        ' Wenn Wert 0 ist, dann gar nichts drucken
        Me.NextRecord = False
        Me.MoveLayout = False
        Me.PrintSection = False
        Me.ControlBox = False
        Me.BorderStyle = 0
      Else
        ' Druckvorgang für diesen Datensatz wiederholen,
        ' wenn Etiketten noch nicht erreicht ist
        If PrintCount < Me![Etiketten] Then Me.NextRecord = False
        '-->
    End If
End Sub

Vielleicht kann man diesen benutzen um auch nur einen Datensatz zu drucken.

Danke

[andyfau]

Hallo peterchen1000,

ich würde eine Abfrage mit Bezug auf die gleiche Datenquelle wie die des Formulars bauen, wo als Parameter/Kriterium das eindeutige Schlüsselfeld des Datensatz aus dem Formular genommen wird.
Auf diese Abfrage, die dann nur den einen Formulardatensatz beinhaltet, lässt du dann den Report basieren.

Dazu brauchts keine Zeile VBA Code.

Beste Grüße
Andreas