AW: Exportierte PDF Qualität
21.07.2023 11:18:29
Pascal Gundlach
Hallo Nepumuk,
stimmt du hast recht habe es gerade ausprobiert.
Nur muss es per Makro generiert werden und mit durch Variablen in der Tabelle definierten Dateinamen an einem definierten Speicherort abgelegt werden.
Die Nutzer sollen den Standartdrucker auch nicht ändern. Das kostet im Stress nur extra Nerven. (Produktionshalle, Wir Bediener alle nicht so PC-Talente)
Per Makro wird das Formular als PDF exportiert, gespeichert und gleich als Anhang in eine Mail mit Empfängerverteiler gehängt.
Das wollen wir uns nicht mehr nehmen lassen =) nur schöner... wie das ausgedruckte PDF könnte es sein.
hier der ganze code, den ich für das Bspl. abgeändert habe:
Sub PDF_Export()
Dim saveLocation As String
strPath = ActiveWorkbook.Path & "\"
strDateiname = "Bemerkung-" & Format(Range("A1").Value, "dd-mm-yyyy") & "-" & Range("A2") & ".pdf" ' zieht Datum und Art der Bemerkung für den Dateinamen
saveLocation = strPath & strDateiname 'Save Active Sheet(s) as PDF
Worksheets("Bspl.").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=saveLocation, Quality:=xlQualityStandard, includedocproperties:=True 'ob High,Low oder Standart habe ich keine Unterschiede feststellen können
End Sub
Sub thunderbird_mail()
Dim strEmpf As String
Dim strBetr As String
Dim strText As String
Dim strAttPfad As String
Dim strTb As String
Dim strCommand As String
Dim anhangLocation As String
Dim strPath As String
Dim strDateiname As String
strPath = ActiveWorkbook.Path & "\"
strDateiname = "Bemerkung-" & Format(Range("A1").Value, "dd-mm-yyyy") & "-" & Range("A2") & ".pdf" ' zieht Datum und Art der Bemerkung für den Dateinamen
anhangLocation = strPath & strDateiname
strEmpf = Worksheets("Bspl.").Range("E1").Value 'Mailadresse in Zelle definiert
strAn = strEmpf
strBetr = "Bemerkung-" & Format(Range("A1").Value, "dd-mm-yyyy") & "-" & Range("A2") 'Mail Betreff
strText = Worksheets("Bspl.").Range("E2").Value 'Mail Inhalt
strTb = "C:\Program Files\Mozilla Thunderbird\Thunderbird.exe"
strCommand = strCommand & " -compose " & "to=" & Chr(34) & strEmpf & Chr(34)
strCommand = strCommand & ",subject=" & Chr(34) & strBetr & Chr(34)
strCommand = strCommand & ",body=" & Chr(34) & strText & Chr(34)
strCommand = strCommand & ",attachment=" & "file:///" & anhangLocation & Replace(strFile2, "\", "/") 'Anhang/direkter Pfad muss angepasst werden/Code evtl abändern
Shell strTb & strCommand, vbNormalFocus
End Sub
Vielen Dank und schöne Grüße
Pascal