Automatish Afdrukken van facturen in PDF

[BricksetforYou]

Goedemiddag allen,

Voor ons bijberoep moet ik helaas facturen maken. haha.

We hebben met al onze gegeven een excel opgebouwd. Ook de facturen zijn opgemaakt.

Het enige wat ik al enige tijd aan het proberen ben is de facturen automatisch te laten afdrukken als PDF met VBA.

Wat zoeken wij precies?

We zoeken een VBA die voor ons het volgende doet. Kort gezegd al de facturen automatisch afdrukt.

De vba drukt de pdf af en gebruikt als bestandnaam de waarde van cel C4 van tab factuur.
Als deze is afgedrukt doet hij automatisch de CEL C4 + 1. Drukt deze af in pdf met bestandsnaam C4.

enz..

We hebben zo een groot aantal pdf's af te drukken.

Wie kan ons helpen???

In bijlage een klein bstandje van ons voorbeeld.

 

[snb]

Wat is je budget ?

 

[AD1957]

Wat wil je nou ?
Waarschijnlijk opslaan als PDF (in de map waar je bestand staat)

Sub opslaanalsPDF()
Sheets("Factuur").Range("A1:H43").ExportAsFixedFormat 0, ThisWorkbook.Path & "\" & Range("C4"), , , , , OpenAfterPublish:=False
End Sub

maak van het factuurnummer 20210001 ipv. F2021-0001

Sub ophogenFacNummer()
Range("C4") = Range("C4") + 1
End Sub

 

[BricksetforYou]

Goedeavond Albert,

Dit is idd al een groot deel van mijn vraag.

Nu zoek ik nog hoe is via een msgbox het aantal kan invullen dat hij deze actie moet herhalen.

Weet jij hoe dit moet?

 

[AD1957]

Waarschijnlijk bedoel je dit, anders moet je het maar eens duidelijker uitleggen.

Sub MaakPdf()
i = Sheets("Samenvatting").Range("B" & Rows.Count).End(xlUp).Row
nr = InputBox("Vanaf welk factuurnr. wil je PDF's maken ?", "AANMAKEN PDF's")

Set c = Sheets("Samenvatting").Range("B:B").Find(nr, lookat:=xlWhole)

If Not c Is Nothing Then
    For j = c.Row To i
        With Sheets("Factuur")
            .Range("C4") = Sheets("Samenvatting").Range("B" & j)
            .Range("A1:H43").ExportAsFixedFormat 0, ThisWorkbook.Path & "\" & Range("C4"), , , , , OpenAfterPublish:=False
        End With
    Next
Else
    MsgBox "dit factuurnummer bestaat niet ! "
End If
End Sub