Office: (Office 2000) Berichte mit Microsoft print to pdf ausgeben

elmar · 10. November 2019

Kenne ich sehr gut, da das Unternehmen, welches ich mit einer Datenbank (ACCESS als Frontend / Backend = SQL-Server von MS) betreue, seit Jahrzehnten die Tobit-Software in Benutzung hat.
Der Systemadmin dieses Unternehmens hat mir geraten, sich direkt bei Tobit bzw. DAVID zu erkundigen, wie (und ob das überhaupt) am besten umzusetzen ist.
Bisher hatte ich Angebote und Auftragsbestätigungen für Kunden aus der Datenbank heraus an den Adobe-Drucker gesendet und sofort mit Adobe geöffnet.
Mit der in Adobe vorhandenen Möglichkeit, die PDF-Datei als Mailanhang zu versenden, öffnete sich DAVID, der Anhang war schon dran und der Mitarbeiter musste nur noch den Mailempfänger auswählen.
Nicht alle Arbeitsplätze hatten eine Lizenz für die Adobe-Software, mit Einführung von W10 haben wir es beim Ablegen der PDF-Datei in einem vom Mitarbeiter festgelegtem Ordner belassen.
Aus Kostengründen wurde auf eine Versorgung aller Arbeitsplätze mit der Adobelizenz verzichtet.
Der Mitarbeiter öffnet danach DAVID, wählt den Mailempfänger aus und hängt die PDF-Datei selbst an. Falls Du über DAVID/Tobit eine bessere, direkte Lösung bekommst wäre es nett, mich zu informieren. (z.B. über eine PN)

peter55 · 10. November 2019

¡hola!

selbstverständlich versenden wir unsere Berichte bislang mit David. Das ist kein Problem. Das aber zu automatisieren und die Berichte direkt mit Mailadresse, Subject und Body auszugeben, ist extrem kryptisch. Daran sind wir selbst mit Unterstützung von Tobit gescheitert. Habe mal ne Mail rausbekommen, aber nicht alltagstauglich.

Deshalb habe ich mich mal wieder daran gesetzt und zum wiederholten male versucht eine andere Lösung zu finden. Alle Jahre wieder quasi. Ist ja bald Weihnachten.

peter55 · 10. November 2019

¡hola! Elmar,

wir können ja mal kontakten. Dann kann ich Dir beschreiben, wie wir es seid Jahren machen. Läuft schon recht gut, aber eben nicht automatisch.

knobbi38 · 10. November 2019

Hallo Peter,

das eigentliche Problem sehe ich in der automatischen Erstellung der PDF-Angänge mit Windows 10 Bordmitteln. Ein Lösung ohne Drittanbieter für ACC2000 ist mir bis jetzt noch nicht bekannt.

Das automatisieren von DAVID per SimpleMail, FileScan Service oder API sollte eigentlich möglich sein und die "Komplexität" könnte in einer entsprechenden Klasse versteckt werden.
Siehe https://club.tobit.com/login/forum/T...1.aspx#bm26374
Das erzeugen einer solchen Steuerdatei sollte kein Problem darstellen.

Man könnte aber auch die Anwendung aktualisieren, damit sie unter einer neueren Access Runtime-Version laufen könnte. Dann wäre zumindest das Problem mit der PDF-Erzeugung deutlich einfacher und der Mail-Versand könnte möglicherweise schon mit Hilfe von SendObject umsetzbar sein.
Mal abgesehen davon, daß es für ACC2000 schon lange keine Sicherheitsupdates mehr gibt.

Ulrich

peter55 · 10. November 2019

Guten Morgen Ulrich,

Du hast sicher recht, aber im Moment haben wir noch ein paar "Baustellen" in unserer ACC2000 Anwendung. Währenddessen würde ich ungern auch noch die Umstellung auf eine aktuellere Version angehen.

Das Erstellen des PDF Dokuments mit Microsoft Print To PDF klappt eigentlich normal gut. Die Übergabe der Caption des Berichts als Dateiname für das erstellte PDF Dokument klappt (noch) nicht. Einfach mal weiter testen und überlegen.

Euch allen erst einmal herzlichen Dank und einen guten Start in die Woche.

sonic8 · 7. Januar 2021

von peter55

Das Erstellen des PDF Dokuments mit Microsoft Print To PDF klappt eigentlich normal gut. Die Übergabe der Caption des Berichts als Dateiname für das erstellte PDF Dokument klappt (noch) nicht. Einfach mal weiter testen und überlegen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die ReportToPDF-Lösung von Stephen Lebans ist dir bekannt?

elmar · 7. Januar 2021

von peter55

Das Erstellen des PDF Dokuments mit Microsoft Print To PDF klappt eigentlich normal gut. Die Übergabe der Caption des Berichts als Dateiname für das erstellte PDF Dokument klappt (noch) nicht.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hier ein Code-Ausschnitt:
Code:

DoCmd.OpenReport sPRINTER_NAME, acViewDesign, , , acHidden

DoCmd.OpenReport sPRINTER_NAME, acViewDesign, , "Angebot_NR = " & ANG_NR, acHidden

Reports(sPRINTER_NAME).Caption = str_Filename

str_Filter = "Angebot_NR = " & ANG_NR & ""

Reports(sPRINTER_NAME).Filter = str_Filter

'Ablageordner für PDF-Angebotsdatei auslesen

Reports(sPRINTER_NAME)!BILD_SIGNUM.Picture = str_Signum_Pfad

DoCmd.Close acReport, sPRINTER_NAME, acSaveYes

Dim str_Pfad_File_Name As String 'kompletter Pfad, Name der Datei und(!) Dateiendung!!!

str_Pfad_File_Name = str_Ablage_PDF & str_Filename & ".pdf"

DoCmd.OutputTo acOutputReport, sPRINTER_NAME, acFormatPDF, str_Pfad_File_Name, -1, "Angebot_NR = " & ANG_NR
'###################################################### |
'Verwenden Sie False (0), wenn Sie die PDF-Anwendung nicht(!!) starten möchten. |
'######################################################
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Damit klappt das sehr gut, beim generieren des Dateinamens muss man nur darauf achten, die für Dateinamen unzulässigen Sonderzeichen zu unterbinden.
Code:

Function Clean_Sonderzeichen(ByVal strWert As String) As String

'** Dimensionierung der Variablen

Dim i As Integer

Const strSonderzeichen As String = "-.,:;#+-ß'*?=)(/&%$§!~}][{"

'** Durchlaufen des übergebenen Strings

For i = 1 To Len(strSonderzeichen)

strWert = Replace(strWert, Mid(strSonderzeichen, i, 1), "")

Next i

'** Bereinigter String der Funktion zurückgeben

Clean_Sonderzeichen = strWert

End Function
'
'In der Variable strSonderzeichen werden die Sonderzeichen definiert, welche aus dem String entfernt werden sollen. Diese Liste ist beliebig erweiterbar. So könnten auch Zahlen oder Buchstaben hinzugefügt werden, welche entsprechend bereinigt werden sollen.
'Mit Hilfe der For-Next-Schleife wird der übergebene String durchlaufen und durch die Funktion Replace werden alle Sonderzeichen entfernt. Sollen die Sonderzeichen beispielsweise nicht entfernt, sondern durch ein "x" ersetzt werden, so ist der Befehl wie folgt zu ändern:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

knobbi38 · 10. November 2019

Hallo Peter,

was mit noch eingefallen ist, man kann für den "Microsoft Print To PDF" einen festen Dateinamen vorgeben, dann wird nicht mehr nach einem Dateinanem gefragt. Ob das aber für andere Anwendugen dann noch praktikabel ist, kann ich nicht beurteilen.

Eine andere Lösung wäre:
Code:

SendKeys "X:\test.pdf{enter}"
DoCmd.OpenReport "reportname", acViewPreview, , , acHidden
DoCmd.PrintOut
DoCmd.Close acReport, "reportname"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nicht schön, aber funktioniert.

Gruß Ulrich

Kyron9000 · 11. November 2019

Hallo,

ich habe mir mal diesen Code zusammengestellt, hat bei mir funktioniert.
Wir arbeiten aber mit Outlook, deshalb wird er nicht Gebrauch.
Ich habe ihn jetzt etwas abgeändert, bei mir war der Code in einem Formular (like Outlook *Smilie ),
habe die Variablen nicht gebraucht.
Vielleicht kannst damit etwas anfangen, ist mM nicht schwer nachzuvollziehen.
Code:

Option Compare Database
Option Explicit

Public Function MailCDO(sTo As String, sCC As String, sBCC As String, _
sSubject As String, sFrom As String, sReplyTo As String, _
sMailBody As String, sAttachment As String, _
bImportance As Boolean, bPriority As Boolean, _
Optional sLesebestaetigung As String = False) As Boolean

On Error GoTo ErrHandler
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
Dim Flds As Variant
Dim sKWord As String

sKWord = "Kennwort"
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields

With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = sFrom
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = sKWord
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Update
End With

With iMsg
Set .Configuration = iConf
.To = Nz(sTo, "")
.CC = Nz(sCC, "")
.BCC = Nz(sBCC, "")
.ReplyTo = sReplyTo ' Für die Antwort
.FROM = sFrom
.Subject = sSubject
'Nur Text
'.TextBody = "Hier steht der Text deiner Email"
' HTML Text
.HTMLBody = sMailBody
'Lokale HTML-Seite
'.CreateMHTMLBody "file://C:OrdnerHtmlMailBody.html"
' Add Attachment
.AddAttachment sAttachment

'Dringlichkeit (zeigt Outlook nur unter Eigenschaften an)
.Fields("urn:schemas:httpmail:importance") = Nz(bImportance, 1) ' 0=low, 1=normal, 2=high
.Fields.Update

'Priorität (zeigt Outlook deutlich an)
.Fields("urn:schemas:mailheader:X-Priority") = Nz(bPriority, 3) ' 1=hoch 3 = normal, 5 = niedrig
.Fields.Update

'Lesebestätigung anfordern mit Antwortadresse
If sLesebestaetigung = True Then
.Fields("urn:schemas:mailheader:return-receipt-to") = sReplyTo
'.Fields("urn:schemas:mailheader:disposition-notification-to") = sReplyTo
.Fields.Update
End If
.Send
End With

MailCDO = True ' Mail gesendet

ErrHandlerExit:
Exit Function
ErrHandler:
MsgBox Err.Description
Resume ErrHandlerExit
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: (Office 2000) Berichte mit Microsoft print to pdf ausgeben

Berichte mit Microsoft print to pdf ausgeben

Berichte mit Microsoft print to pdf ausgeben

Berichte mit Microsoft print to pdf ausgeben

Berichte mit Microsoft print to pdf ausgeben

Berichte mit Microsoft print to pdf ausgeben - Similar Threads - Berichte Microsoft print

2 Berichte in eine Excel-Datei exportieren

Access Berichte

Bericht Seiten (PDF) formatieren

Bericht mit optionalen Feldern

DOMAnzahl in einem Bericht

Bericht Steuerelementinhalt Kreuztabelle

Bericht formatieren