• 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 files uit een folder printen met VBA

Status
Niet open voor verdere reacties.
R

Rietv

Gebruiker
Lid geworden
22 nov 2020
Berichten
49
Hallo,

Na lang zoeken en niet kunnen vinden. Nu dan maar weer de hulptroepen aanspreken.
Dus help, want ik ben op zoek naar een VBA scriptje dat het volgende doet.

1. Zoekt in een map op de PC naar de *.pdf files.
( de map wordt gevonden door een variabele die in cel A1 staat)
(dus daar staat bijvoorbeeld D:Testlocatie\muziek\jaren80\ )
2. Toont alle pdf files die in die map staan in een userbox / multibox o.i.d
3. Die kan je vervolgens selecteren (meerdere indien gewenst) en vervolgens deze printen via printview.

Dat is het eigenlijk. Hopelijk kunnen jullie mij hier weer mee helpen.
Groetjes Cor
 
Ik heb ergens op een ander forum die vraag zien voorbijkomen, volgens mij is dit dubbelposten.
 
Beste Pagadder,

Zou kunnen natuurlijk. Alleen niet via mij.
Dus als je weet welk forum en wie het gepost heeft.
Dan hoor ik dat graag.
Ik wil heel graag wat leren namelijk en ben op zoek naar een dergelijke oplossing.
Wellicht wel net zo netjes om eerst even te kijken wie wat gepost heeft voor je wat begint te roepen.
Ik ben namelijk heel tevreden over de hulp die op dit forum wordt gegeven.
Misschien is het beter en veel vriendelijker om eerst even te vragen of deze vraag al eerder is gepost op een ander forum of zoiets.
Want dan kan je er altijd nog een mening over geven.
En kan je de vraagsteller doorverwijzen naar dat bepaalde forum met oplossing.
Want daar gaat het tenslotte toch om, elkaar helpen?
In ieder geval, dat zou bij mij heel wat vriendelijker overkomen zeg maar.
Dus als iemand een oplossing heeft voor mijn "probleem"?
Ik hoor het heel graag.

Met vriendelijke groet Cor
 
ik vond de opmerking van pagadder neutraal/vriendelijk en dat is meestal een sein, voor ons helpers, om de handrem aan te trekken.
De reactie van jou lijkt meer op het neersabelen van pagadder.

Dus vraag 1, dat is max 4 programmaregels, halve minuut werk.
De andere vragen, daar kruipt iets meer tijd in, daar is een andere attitude voor nodig.
 
Beste Cor,

Code voor je eerste vraag:

Code: 
Sub GetPDFFileNames()
    Dim FileName As String
    FileName = Dir(Sheets("Blad1").Range("A1").Value)
    
    Do While FileName <> ""
        If FileName Like "*.pdf" Then
            MsgBox FileName
        End If
        FileName = Dir()
    Loop
End Sub
Kijk maar hoe je er verder mee raakt. Mogelijk bezorg ik je straks ook nog de andere code (als ik wat tijd heb).

groetjes,

Luc
 
Hoi Luc,

Thanks voor je input. Top ben ik al blij mee.
Hopelijk heb je dan ook tijd voor de andere code.

Groeten Cor



T.o.v de opmerking over dubbel posten..... juist omdat mensen dan de handrem aantrekken mijn reactie. (meer niet)
 
Voila... een voorbeeld.
succes ermee
 

Bijlagen

  • PDF Files printen.xlsm
    21,3 KB · Weergaven: 22
Hoi Luc,

Ziet er al top uit.
En mijn dank is werkelijk groot.
Alleen..... de printview werkt niet.
En helaas heb ik er (nog) te weinig kijk op om dat te verhelpen.
Mocht je dus nog even tijd hebben om daar naar te kijken, zou dat heel fijn zijn natuurlijk.
Ik hoor graag van je,


Gr Cor
 
@luc, ongeldige bijlage ?
 
Tja... ongeldige bijlage.
Ik ben echt aan het sukkelen met het toevoegen van bijlages :(.
Deze keer had ik een bijlage proberen uploaden met dezelfde naam als er al in stond, en dat lukte niet. Dus bericht gewist.
 
Hoi Luc,

Ik weet niet wat ik fout doe.
Maar hij geeft geen printpreview.
Er gebeurt wel wat op de achtergrond als je op een file klikt, maar verder niets.
Hmmm, enig idee waar dit aan zou kunnen liggen.
Moet er ergens geen regel tussen met .......PrintPreview?

Groetjes Cor
 
Ha die Luc,

Gevonden hoor, werkt helemaal goed.
(ik moest alleen nog acrobat reader installeren (foutje))
Dus..... dikke duim en nogmaals bedankt.

Groetjes Cor
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan