XLS bestand automatisch op slaan naar PDF.

[Robert09]

Hallo,

Ik ben bezig met het maken van een formulier t.b.v. garantie aanvraag binnen het bedrijf.
Nu zit ik met het volgende probleem dat ik graag wil dat het automatisch moet worden opgeslagen als PDF bestand.

Tot nu toe heb ik deze code.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim cl As Range
For Each cl In Sheets(1).Range("B5,D3,B14,G6,G7,G8,G9,G10,G11,G14,G18,B27,C27,F27,H27,I33,I34,I35,I36,G38,G40")
If cl.Value = Empty Then
MsgBox "Cel " & cl.Address(False, False) & " is niet gevuld.", vbCritical, "Printen afgebroken"
Cancel = True 'Deze regel zorgt voor het daadwerkelijk afbreken van het printen
Exit For
End If
Next
Sheets("Blad1").Range("D3") = Sheets("Blad1").Range("D3") + 1
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim cl As Range
For Each cl In Sheets(1).Range("B5,D3,B14,G6,G7,G8,G9,G10,G11,G14,G18,B27,C27,F27,H27,I33,I34,I35,I36,G38,G40")
If cl.Value = Empty Then
MsgBox "Cel " & cl.Address(False, False) & " is niet gevuld.", vbCritical, "Opslaan afgebroken"
Cancel = True 'Deze regel zorgt voor het daadwerkelijk afbreken van het opslaan
Exit For
End If
Next
ThisWorkbook.SaveAs "P:\Aanvraag garantie\ " & Range("D3") & ".xls"

End Sub

Weet iemand misschien hoe ik dit het beste kan aanpakken?

 

[Robert09]

Heb dit deels op gelost door de code :

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="P:\Aanvraag garantie\ " & Range("D3") & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False