Aktuelles Formular drucken

[Beck, Alwin]

Hallo,
wenn ich eine Befehlsschaltfläche anlege mit "Aktuelles Formular drucken",
werden mir immer alle Datensätze ausgedruckt, ich möchte jedoch, dass
nur der aktuelle Datensatz gem. Anzeige gedruck wird.
Hier der Code :

Private Sub BS_AktuellesFormulardrucken_Click()
On Error GoTo Err_BS_AktuellesFormulardrucken_Click
DoCmd.PrintOut
Exit_BS_AktuellesFormulardrucken_Click:
Exit Sub
Err_BS_AktuellesFormulardrucken_Click:
MsgBox Err.Description
Resume Exit_BS_AktuellesFormulardrucken_Click

[Gunter Avenius]

Hallo Alwin,

Post by Beck, Alwin
wenn ich eine Befehlsschaltfläche anlege mit "Aktuelles Formular
drucken", werden mir immer alle Datensätze ausgedruckt, ich möchte
jedoch, dass nur der aktuelle Datensatz gem. Anzeige gedruck wird.
Private Sub BS_AktuellesFormulardrucken_Click()
On Error GoTo Err_BS_AktuellesFormulardrucken_Click
DoCmd.PrintOut
Exit Sub
MsgBox Err.Description
Resume Exit_BS_AktuellesFormulardrucken_Click

Lese Access-FAQ Punkt 5.9

[Beck, Alwin]

habe ich gelesen, jedoch bezieht sich dieses auf einen Bericht nicht auf ein Formular.

Post by Gunter Avenius
Hallo Alwin,

Post by Beck, Alwin
wenn ich eine Befehlsschaltfläche anlege mit "Aktuelles Formular
drucken", werden mir immer alle Datensätze ausgedruckt, ich möchte
jedoch, dass nur der aktuelle Datensatz gem. Anzeige gedruck wird.
Private Sub BS_AktuellesFormulardrucken_Click()
On Error GoTo Err_BS_AktuellesFormulardrucken_Click
DoCmd.PrintOut
Exit Sub
MsgBox Err.Description
Resume Exit_BS_AktuellesFormulardrucken_Click

Lese Access-FAQ Punkt 5.9
--
Gruß
Gunter
_________________________________________________
Access - FAQ: http://www.donkarl.com
home: http://www.avenius.com

[Jens Schilling]

Hallo, Alwin

Post by Beck, Alwin
habe ich gelesen, jedoch bezieht sich dieses auf einen Bericht nicht auf ein Formular.

Dann lass' Dir doch empfehlen, die Objekte von Access so zu nutzen, wie sie
gedacht sind. Formulare zur Dateneingabe etc. und Berichte zum drucken. Du
kannst Dein Formular ja einfach als Bericht speichern --> rechter
Mausklick --> Speichern unter --> als Bericht....

[Henry Habermacher [MVP Access]]

Hallo Alwin

Post by Beck, Alwin
wenn ich eine Befehlsschaltfläche anlege mit "Aktuelles Formular
drucken", werden mir immer alle Datensätze ausgedruckt, ich möchte
jedoch, dass nur der aktuelle Datensatz gem. Anzeige gedruck wird.
Private Sub BS_AktuellesFormulardrucken_Click()
On Error GoTo Err_BS_AktuellesFormulardrucken_Click
DoCmd.PrintOut
Exit Sub
MsgBox Err.Description
Resume Exit_BS_AktuellesFormulardrucken_Click

Dazu musst Du zuerst den Filter des aktuellen Formulares auf den aktuellen
Datensatz setzen. Etwa so:

Dim strFilterOld as String
Dim blnFilterOnOld as Boolean
Dim varBookmark as Variant

'alte Werte sichern
strFilterOld = Me.Filter
blnFilterOnOld = Me.FilterOn
varBookmark = me.Bookmark

'Neuer Filter Setzen
Me.Filter = "DeineID=" & Me!DeineID
Me.FilterOn = True

'nun drucken
DoCmd.PrintOut
DoEvents

'und nun alles wieder rückgängig machen
Me.Filter = strFilterOld
Me.FilterOn = blnFilterOnOld
Me.Bookmark = varBookmark



HTH
Henry