• Als Spam markieren
• Beitrag melden

• 
  Diese Gruppe Alles

• Archiv
• RSS-Feeds

• Kontakt
• Hilfe
• Impressum
• Datenschutz

Unterformular drucken

Hallo zusammen,

in meiner DB habe ich ein ungebundenes Frm, dass ein gebundenes Ufo
enthält.
Dieses Ufo kann der User filtern.
Nun soll er aber auch das gefilterte Ergebnis drucken können.
Wenn ich mit dem Assi eine Schaltfäche erstellen lass kommt folgender
Code:

Dim stDocName As String
Dim MyForm As Form

stDocName = "F100_If_020_Ufo"
Set MyForm = Screen.ActiveForm
DoCmd.SelectObject acForm, stDocName, True
DoCmd.PrintOut
DoCmd.SelectObject acForm, MyForm.Name, False

Gedruck wird aber leider das Ufo und das Hauptformular.
Gibts eine Methode, dass nur das gefilterte Ufo gedruckt wird.

Gruss
Uwe

Antworten