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 / Anwendungen(Java,C++...)
Anwendungen(Java,C++...)
Fragevon AlexK vom 06.05.2020, 17:15 Options
Bericht in pdf ausgeben (VBA)
Hallo zusammen,
ich arbeite mit Access 2003 und habe folgenden Code geschrieben.
Function Makro11()
On Error GoTo Makro11_Err
DoCmd.OpenReport "Summary", acViewNormal, """", """", acNormal
DoCmd.SendObject acSendReport, Summary, acFormatPDF, , , , , , , "Summary.pdf"
DoCmd.PrintOut acPrintAll, , , acHigh, 1, True
DoCmd.Close acReport, "Summary"
Makro11_Exit:
Exit Function
Makro11_Err:
MsgBox Error$
Resume Makro11_Exit
End Function
Ziel ist es, einen Bericht in PDF auf der Platte abzulegen. Kann mir jemand helfen? Würde mich sehr freuen!
Alexander
ich arbeite mit Access 2003 und habe folgenden Code geschrieben.
Function Makro11()
On Error GoTo Makro11_Err
DoCmd.OpenReport "Summary", acViewNormal, """", """", acNormal
DoCmd.SendObject acSendReport, Summary, acFormatPDF, , , , , , , "Summary.pdf"
DoCmd.PrintOut acPrintAll, , , acHigh, 1, True
DoCmd.Close acReport, "Summary"
Makro11_Exit:
Exit Function
Makro11_Err:
MsgBox Error$
Resume Makro11_Exit
End Function
Ziel ist es, einen Bericht in PDF auf der Platte abzulegen. Kann mir jemand helfen? Würde mich sehr freuen!
Alexander
Ähnliche Themen
Bericht aus Recordset erstellen
Vossibaer 15.08.2007 - 97 Hits - 2 Antworten
Tabellenblätter von Excel ins pdf übernehmen
Rayma 12.02.2008 - 183 Hits - 4 Antworten
Ausgabe Bericht in Word
Mona1980 02.04.2008 - 30 Hits - 7 Antworten
Word VBA - Schliessen ohne speichern
Timon 19.04.2008 - 61 Hits -
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
