Supportnet / Forum / Datenbanken
Unterformular wird nciht gedruckt
Frage
Ich habe ein Formular erstellt inden in der Mitte des Bildschirms ein Unterformular ist. dieses wird angezeit und funktioniert wie erwartet. Beim durcken (Button wurde über die Toolbox erstellt (Duck des Detailbereiches)
..
Private Sub Profile_Daten_drucken_Click()
On Error GoTo Err_Profile_Daten_drucken_Click
Dim stDocName As String
Dim MyForm As Form
stDocName = "Profiledaten"
Set MyForm = Screen.ActiveForm
DoCmd.SelectObject acForm, stDocName, True
DoCmd.PrintOut
DoCmd.SelectObject acForm, MyForm.Name, False
Exit_Profile_Daten_drucken_Click:
Exit Sub
Err_Profile_Daten_drucken_Click:
MsgBox Err.Description
Resume Exit_Profile_Daten_drucken_Click
End Sub
...
Beim klicken wird der Detailbereich exclusive des Unterformulars gedruckt (Status Sichbar : ja Abeigen: immer)
lediglich der Titel wird gedruckt.
Wie kann das Unterformular mit gedruckt werden?
D
Antwort 1 von Stragami
Nachtrag:
Das Unterformular wird nur gedruckt sofern dort Einträge sind.
Sind für diesen Datensatz im Unterfomular keine Einträge dann wird das Unterformular beim Drucken unterdrückt.
Das sieht jedoch ein wenig blöd aus so ein freier Raum, wäre schön wenn das Formular, auch wenns leer ist, gerduckt werden könnte.
Das Unterformular wird nur gedruckt sofern dort Einträge sind.
Sind für diesen Datensatz im Unterfomular keine Einträge dann wird das Unterformular beim Drucken unterdrückt.
Das sieht jedoch ein wenig blöd aus so ein freier Raum, wäre schön wenn das Formular, auch wenns leer ist, gerduckt werden könnte.