Formular drucken

Question

hallo,

ich habe ein HF mit einem Textfeld. Nach aktualisieren wird das Unterformular gefiltert. Soweit so gut. Jetzt sollte das Ufo mit dem angezeigten Datensatz gedruckt werden, es werden aber immer alle Datensätze gedruckt, obwohl der Filter 1 von 1 DS anzeigt.
Access 2007
Code:
On Error GoTo Err_Befehl48_Click

Dim stDocName As String
Dim MyForm As Form

stDocName = "Unterform" --> hier habe ich auch Forms!Hf!Ufo probiert


Set MyForm = Screen.ActiveForm

DoCmd.SelectObject acForm, stDocName, True
DoCmd.PrintOut acSelection --> hab ich auch ohne acselection probiert
DoCmd.SelectObject acForm, MyForm.Name, False

Exit_Befehl48_Click:
Exit Sub

Err_Befehl48_Click:
MsgBox Err.Description
Resume Exit_Befehl48_Click

leider konnte ich nichts entsprechendes finden.
Schon mal Dank im Voraus

Answer 1

www.donkarl.com FAQ 5.9 Nur aktuellen Datensatz drucken

Gruß Marie

Answer 2

Hi,
Danke für die Antwort
den "Umweg" über einen Berich wollte ich nicht machen.
Die Tabelle zur DB liegt auf einem Sharepoint und für den Bericht braucht Access dann noch einmal ganauso lange, wie den Datensatz im Formular anzuzeigen.
Vielleicht ist es ja mit einem Windowsbefehl lösbar...so wie etwas "aktives Fenster drucken". leider kenne ich mich da gar nicht aus.
Gruß

Answer 3

Probier mal so, hab ich gefunden, aber nicht ausprobiert.

Private Sub PRINT_Click()
On Error GoTo Err_PRINT_Click

Dim MyForm As Form
Dim record_num As Long

stDocName = "YOUR_FORM_NAME"
Set MyForm = Screen.ActiveForm
DoCmd.SelectObject acForm, stDocName, True
record_num = MyForm.CurrentRecord
DoCmd.PrintOut acPages, record_num, record_num


Exit_PRINT_Click:
Exit Sub

Err_PRINT_Click:
MsgBox Err.Description
Resume Exit_PRINT_Click

End Sub

Answer 4

Gelöst!

Genial, danke Marie!!