• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

PDF's maken

Status
Niet open voor verdere reacties.

SUVERMO

Gebruiker
Lid geworden
22 dec 2019
Berichten
478
Hallo,

weer een vraag
kan iemand een macro voor mij maken om een aantal PDF's te maken
in deze excel zijn het er 28, maar dat is steeds verschillend
om te testen worden de PDF's opgeslagen in de map C:\Nieuwe map, maar dat is ook steeds verschillend en wordt bepaald door een formule
 

Bijlagen

  • lijsten PDF MAKEN.xlsm
    88,1 KB · Weergaven: 26
Het maken van een PDF is geen enkel probleem en een aantal regels doorlopen waar informatie moet worden gelezen ook niet.
Maar wat je nu in die PDF's wilt hebben is mij totaal onduidelijk.

Overigens is het maken van een PDF vanuit Excel VBA hier al zo vaak besproken dat je geen enkele moeite zou moeten hebben daar informatie over te vinden.
 
ik ga het opzoeken, wat er geprint moest worden was te zien via ctrl+p
 
Dat Ctrl+P zegt nog helemaal niet over het werkblad en het bereik dat in de PDF moet komen.
Tevens had je dat er niet bij verteld.
 
Laatst bewerkt:
ben aan het zoeken geweest maar ...
kunt u mij vertellen waar of hoe ik deze beste informatie kan vinden
 
Ik begrijp nog steeds je uitleg niet, maar dit is een voorbeeld voor het maken van een PDF etc:
Code:
Sub MaakPDF()
    Dim BEWAARNAAM_PDF As String
    Dim BEWAARMAP_PDF As String
    
    With Sheets("LIJST")
        BEWAARNAAM_PDF = .Range("AY7") & ".pdf"
        BEWAARMAP_PDF = .Range("AY8")
        If Dir(BEWAARMAP_PDF, vbDirectory) = "" Then MkDir BEWAARMAP_PDF
        .Range("AQ3:AV35").ExportAsFixedFormat Type:=xlTypePDF, Filename:=BEWAARMAP_PDF & "\" & BEWAARNAAM_PDF
    End With
End Sub
 
Probeer eerst formules te begrijpen voordat je overstapt naar VBA

Code:
=TEXT(TODAY();"dd")&" "&TEXT(TODAY();"mmmm")&" "&TEXT(TODAY();"jjjj")

Code:
=TEXT(TODAY();"dd mmmm jjjj")

De code in het bestand en de formules zijn onleesbaar of niet aanwezig. Kortom geen voorbeeldbestand en geen fatsoenlijke uitleg wat het nu moet worden.

Om te zoeken binnen dit forum kan je geavanceerd zoeken gebruiken.

Knipsel.PNG
 
bedankt voor de informatie en tips
deze code is het geworden, en werkt prima

Code:
Sub PDFmaken()
'
' PDFmaken Macro
'

'
    Range("AANTAL_PDF_TELLER") = 1
    x = Range("AANTAL_PDF").Value
    For i = 1 To x
    AANTAL_PDF_TELLER = i
    Range("AANTAL_PDF_TELLER") = i
    INZENDERSCODE = Range("INZENDERSCODE_INVOEREN").Value
    Range("INZENDERSCODE") = INZENDERSCODE
    Dim BEWAARNAAM_PDF As String
    Dim BEWAARMAP_PDF As String
    BEWAARNAAM_PDF = Range("BEWAARNAAM_PDF").Value
    BEWAARMAP_PDF = Range("BEWAARMAP_PDF").Value
    If Dir(BEWAARMAP_PDF, vbDirectory) = "" Then MkDir BEWAARMAP_PDF
    Range("PRINTGEDEELTE").ExportAsFixedFormat Type:=xlTypePDF, Filename:=BEWAARMAP_PDF & "\" & BEWAARNAAM_PDF
    Next i
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan