Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Datenbanken
Datenbanken
Fragevon babypet vom 26.04.2022, 13:38 Options
Formular drucken
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
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
Antwort 1 von Marie vom 28.04.2022, 03:00 Options
www.donkarl.com FAQ 5.9 Nur aktuellen Datensatz drucken
Gruß Marie
Gruß Marie
Antwort 2 von babypet vom 28.04.2022, 07:06 Options
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ß
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ß
Antwort 3 von Marie vom 05.05.2022, 21:41 OptionsLösung
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 Antwort 4 von babypet vom 06.05.2022, 09:18 Options
Gelöst!
Genial, danke Marie!!
Genial, danke Marie!!
Ähnliche Themen
pdf dokument in access formular
magdalena 27.10.2008 - 48 Hits - 3 Antworten
Formular automatisch aktualisieren?
Hans_83 13.07.2009 - 337 Hits - 5 Antworten
ampel in formular einbauen
tina79 09.07.2009 - 268 Hits - 7 Antworten
Access: Formular in ein bestehendes Formular einbinden
ArthurAccess 30.09.2009 - 514 Hits - 2 Antworten
Access Formular
karin_a 16.10.2009 - 276 Hits - 1 Antwort
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
