Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1880to1884
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

PDF aus Bereich erzeugen und versenden

PDF aus Bereich erzeugen und versenden
20.04.2022 19:39:54
Michael
Guten Abend Zusammen
Ich habe das folgende Makro hinterlegt, welches mir ein PDF erzeugt und auch das Outlook öffnet, jedoch werden immer 2 Seiten erzeugt anstelle nur einer:

Sub RANGE_als_PDF_Datei_per_Outlook_versenden()
'Querformat einstellen
Sheets("UeberzeitSaldoWE").PageSetup.Orientation = 2 'Querformat
'Format automatisch anpassen
Sheets("UeberzeitSaldoWE").PageSetup.Zoom = False
Sheets("UeberzeitSaldoWE").PageSetup.FitToPagesWide = 1
Sheets("UeberzeitSaldoWE").PageSetup.FitToPagesTall = 1
ActiveWorkbook.Sheets("UeberzeitSaldoWE").Range("A1:I3,A7:I7").ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & " " & ActiveSheet.Name & " " & ActiveSheet.Range("A7"), _
Quality:=xlQualityStandard, _
IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
AWS = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & " " & ActiveSheet.Name & " " & ActiveSheet.Range("A7") & ".pdf"
InitializeOutlook = True
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = "test@test.ch"
.Subject = "Überstunden Auswertung"
.Attachments.Add AWS
.HTMLBody = "Das ist ein Test." & vbCrLf & "Bitte ignorieren."
.Display
End With
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub
Ausserdem sollte der Dateiname A7 und MM.YYYY heissen, was auch nicht funktioniert hat.
Ich danke im voraus für Tipps und Tricks

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: PDF aus Bereich erzeugen und versenden
20.04.2022 22:21:40
onur
Zwei Bereiche ergibt zwei Seiten.
Kopiere doch diese Bereiche auf eine neue Seite untereinander, dann kannst du diese Seite drucken.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige