Exporteren van pagina's naar aparte PDF's - Benaming klopt niet

[GlenVR]

Goede middag iedereen,

Voor het wat vlotter laten verlopen van onze dossiers, ben ik momenteel bezig met de opmetingsdocumenten te optimaliseren.

Concreet is het de bedoeling dat er via het opmaken van een macro per toegevoegd pagina-einde een aparte PDF wordt gegenereerd, met specifieke benaming van de aparte PDF's.

De export doet (deels) wat ik vraag, maar ik stuit op volgende problemen:

• Er worden 6 PDF bestanden gegenereerd in plaats van de gevraagde 3. Voor zover ik kan opmaken, lijkt er per pagina nog een extra lege pagina aan de rechterzijde gegenereerd te worden zonder dat daar gegevens aanwezig zijn of deze binnen het afdrukbereik vallen.
• Bij het benoemen van de pagina's loopt het mis: De eerste pagina krijgt de correcte benaming "VPV_MV" en de correcte inhoud, maar de tweede "VPV_RTO" lijkt het lege blad aan de rechterzijde van de eerste pagina te zijn en de derde pagina "VPV_DO" krijgt de gegevens van "VPV_RTO"

Wie kan me hier in de juiste richting wijzen van mijn fout? In bijlage het betreffende Excel bestand ter verduidelijking, het betreft blad "VPV_C"

Alvast bedankt,

GlenVR

 

[AHulpje]

Voorbeeld?

 

[GlenVR]

Voorbeeld?

Hieronder een voorbeeld van de geëxporteerde bestanden, de bovenste drie zijn "extras" hoewel er in één van deze de gegevens worden geëxporteerd die aanwezig zouden moeten zijn in de "VPV_DO" Pdf.

 

[AHulpje]

Misschien zie ik het te simpel, maar dit werkt bij mij prima:

Sub exportPages()
    pageNames = Array("VPV_MV", "VPV_RTO", "VPV_DO")
    With Worksheets("VPV_C")
        For p = 1 To .HPageBreaks.Count + 1
            .ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\"& pageNames(p - 1), Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=p, To:=p, OpenAfterPublish:=False
        Next
    End With
End Sub

 

[snb]

of

Blad19.printout 1,1,1,,true,,"G:\OF\print1.pdf"

Met de standaardprinter Excel to PDF.

 

[GlenVR]

Misschien zie ik het te simpel, maar dit werkt bij mij prima:

Sub exportPages()
    pageNames = Array("VPV_MV", "VPV_RTO", "VPV_DO")
    With Worksheets("VPV_C")
        For p = 1 To .HPageBreaks.Count + 1
            .ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\"& pageNames(p - 1), Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=p, To:=p, OpenAfterPublish:=False
        Next
    End With
End Sub

In dit geval is simpel nog het beste lijkt mij, werkt perfect!

In alle eerlijkheid ben ik hier maar een enorme beginner in (was waarschijnlijk wel duidelijk) en heb ik hulp moeten inroepen van AI om de code te schrijven die ik nodig had. Blijkbaar heeft AI ook nog wat problemen om de juiste code te genereren (of geef ik de juiste inputniet)

In ieder geval, enorm bedankt voor de hulp!