Win11 makro im XLSTART Ordner?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
vielen Dank schonmal für die Antworten. Klar, hier kommt der Code.
Ich exportiere mir pdf kontosauszüge in excel, füge hier am Rand rechungsnummern aus einer Datenbank hinzu und drucke das Arbeitsblatt dann wieder nach bestimmten vorgaben (Seitenumbruch ect.) als pdf.

Attribute VB_Name = "Modul1"


Sub PDF2121()
Dim rngC As Range
Cells.PageBreak = xlNone
For Each rngC In Columns("A").SpecialCells(xlCellTypeConstants)
If rngC.Value = "xxxx" & Chr(10) & "xxxx" Then rngC.EntireRow(1).PageBreak = xlPageBreakManual
Next rngC
For Each rngC In Columns("A").SpecialCells(xlCellTypeConstants)
If rngC.Value = "Sehr geehrte Kundin, sehr geehrter Kunde," Then rngC.EntireRow(1).PageBreak = xlPageBreakManual
Next rngC
With ActiveSheet.PageSetup
.FitToPagesTall = False
.FitToPagesWide = 1
.Zoom = False
.LeftMargin = Application.InchesToPoints(0.196850393700787)
.RightMargin = Application.InchesToPoints(0.196850393700787)
.TopMargin = Application.InchesToPoints(0.196850393700787)
.BottomMargin = Application.InchesToPoints(0.196850393700787)
.HeaderMargin = Application.InchesToPoints(0.31496062992126)
.FooterMargin = Application.InchesToPoints(0.31496062992126)
End With
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & ThisWorkbook.Name, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=True
ActiveWorkbook.Save
End Sub


Sub PDFPAYPAL()
Dim rngC As Range
Cells.PageBreak = xlNone
For Each rngC In Columns("A").SpecialCells(xlCellTypeConstants)
If rngC.Value = "Transaktionsübersicht - EUR" Then rngC.EntireRow(1).PageBreak = xlPageBreakManual
Next rngC
With ActiveSheet.PageSetup
.FitToPagesTall = False
.FitToPagesWide = 1
.Zoom = False
.LeftMargin = Application.InchesToPoints(0.196850393700787)
.RightMargin = Application.InchesToPoints(0.196850393700787)
.TopMargin = Application.InchesToPoints(0.196850393700787)
.BottomMargin = Application.InchesToPoints(0.196850393700787)
.HeaderMargin = Application.InchesToPoints(0.31496062992126)
.FooterMargin = Application.InchesToPoints(0.31496062992126)
End With
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & ThisWorkbook.Name, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread