klantgegevens printen naar PDF

[Diez]

Ik heb een database met klantgegevens, hierachter hangt een formulier waar ik samengevat alle info krijg. Deze informatie nemen wij mee als we klantbezoeken uitvoeren, echter als we aanpassingen maken aan het formulier dan moeten we handmatig alle klantgegevens opnieuw uitprinten in pdf van alle klanten die in de database zitten. Aangezien dit nogal tijdrovend is weten jullie een manier dat je kunt selecteren bijvoorbeeld klant 1 t/m 100 daarvan moet het formulier geprint worden naar pdf.

Het bijgevoegde voorbeeldbestand is natuurlijk behoorlijk beperkt ten opzichte van de originele database.

 

[edmoor]

Selecteer op het blad Data een klant, of meerdere door de Ctrl toets ingerukt te houden en voer dan dit uit:

Sub PDF()
    If Not Selection Is Nothing Then
        For Each cl In Selection
            Sheets("formulier").Range("C3") = cl.Value
            Sheets("formulier").Range("C1:E6").ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=ThisWorkbook.Path & "\" & Sheets("formulier").Range("C3").Value
        Next cl
    End If
End Sub

In de map waar je document staat wordt dan per geselecteerde klant een PDF gemaakt van de gegevens in het blad formulier.
Andere manieren van selecteren zijn uiteraard mogelijk.

 

[Diez]

Hoe makkelijk het kan zijn, dank voor de hulp :thumb:


Topic kan gesloten worden