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
Hallo Peter,
Öffne den Bericht mit einem Filter
DoCmd.OpenReport _
ReportName:="DeinEtikett", _
WhereCondition:= "DatensatzIDimBericht = " & Me.DatensatzIDimFormular
gruss ekkehard
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
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