Opgelost PDF maken met macro

[Marco9999]

Ik heb een Excel-bestand met 25 bladen en maak hier via een macro een PDF van.
Ik gebruik nu deze code:

ActiveWorkbook.ExportAsFixedFormat 0, ActiveWorkbook.Path & "\" & Worksheets("Blad1").Range("B2").Value, , 1, 0, , , 1

Werkt allemaal prima, alleen wordt het PDF bestand zo'n 18 Mb. Veel te groot.

Weet iemand een code, wellicht in een lagere afdrukkwaliteit ofzo, om hier een kleiner PDF-bestand van te maken?

(In het voorbeeldbestandje heb ik de macro gezet. Als je het met dit bestandje gebruikt wordt het niet zo debiel groot.)

Alvast dank!

 

[alphamax]

ActiveWorkbook.ExportAsFixedFormat 0, ActiveWorkbook.Path & "\" & Worksheets("Blad1").Range("B2").Value, 1, 1, 0, , , 1

De 1 als derde parameter staat voor minimale kwaliteit.
Bron: https://learn.microsoft.com/en-us/office/vba/api/excel.workbook.exportasfixedformat

 

[SjonR]

je kan de kwaliteit aanpassen naar xlQualityMinimum

ActiveWorkbook.ExportAsFixedFormat 0, ActiveWorkbook.Path & "\" & Worksheets("Blad1").Range("B2").Value, 1, 1, 0, , , 1

 

[Marco9999]

Top, dank jullie wel

 

[SjonR]

op hoeveel MB kom je dan uit?

 

[jverkerk]

Dit werkt voor mij goed.

Sub PDF()
Dim FacName As String
FacName = ActiveSheet.Range("M1").Value
If Dir("Hier moet je het padnaam invullen\" & FacName & ".pdf") <> "" Then
MsgBox "Het bestand: " & FacName & ".pdf bestaat reeds"
Exit Sub
Else
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="Hier moet je het padnaam invullen\" & FacName & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=True
End If
End Sub