Beste forum, ik gebruik de onderstaande vba code om meerdere sheets als pdf op te opslaan. Hij slaat ze zo op (023 Bestellingen 23-01-2022). hij haalt de datum van een cel, en ik had graag dat het jaar voor de jaardag komt. bijvoorbeeld (2020-023 Bestellingen 23-01-2022). ik heb een en al gegoogled maar ik ben niet zo goed in vba. graag jullie hulp bij deze simpele vraag voor jullie maar voor mij zeer moeilijk.
Code:
Sub PRINT_TO_PDF_ALL()
Dim sName$
Dim Path$
x = ActiveSheet.Name
Sheets("SOFOR").[K1] = "XD" 'zorgt ervoor dat klanten die niet bestellen, niet zichtbaar zijn op pdf
Sheets("SOFOR").Select 'zorgt ervoor dat klanten die niet bestellen, niet zichtbaar zijn op pdf
sName = Sheets(Array("sofor", "kend", "totaal", "40-45", "productie")).Select
Path = CreateObject("WScript.Shell").specialfolders("Desktop")
yearday = Format(DateDiff("d", CDate("1/1/" & Year(ActiveSheet.Range("B2"))), CDate(ActiveSheet.Range("B2"))) + 1, "000")
On Error Resume Next
ThisWorkbook.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Path & "\" & yearday & " " & "Bestellingen" & " " & Format((ActiveSheet.Range("B2")), "dd-mm-yyyy"), _
openafterpublish:=True
If Err.Number > 0 Then MsgBox "Error saving pdf."
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.5)
.RightMargin = Application.InchesToPoints(0.5)
.TopMargin = Application.InchesToPoints(0.5)
.BottomMargin = Application.InchesToPoints(0.5)
.HeaderMargin = Application.InchesToPoints(0.2)
.FooterMargin = Application.InchesToPoints(0.1)
.PaperSize = xlPaperA4
.Orientation = xlPortrait
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
Sheets(x).Select
Sheets("SOFOR").[K1] = "" 'zorgt ervoor dat klanten die niet bestellen, niet zichtbaar zijn op pdf
End With
End Sub
21. maar als er EEN cel ingevuld is, dat ie wel wordt opgeslagen als pdf
