Keuze maken voor PDF

Status
Niet open voor verdere reacties.
R

Roma

Gebruiker
Lid geworden
7 sep 2013
Berichten
515
Beste,
Ik ben bezig om een rooster te maken en daar moeten PDF files verstuurd worden.
Het standaard PDF file maken,opslaan en mailen is me goed gelukt.
Maar nu wil ik graag een PDF file maken uit een keuze van maanden en dat lukt me niet.
Bijv. Als in cel G13 de maand september staat dan moet daar een PDF van gemaakt worden.
Wie weet de oplossing?
 

Bijlagen

  • kwartalen.xlsm
    96,4 KB · Weergaven: 32
Zie bijlage.
 

Bijlagen

  • kwartalen.xlsm
    91,9 KB · Weergaven: 34
harry bedankt voor je reactie.
Ik weet niet wat ik fout doe maar er gebeurt niets.
Ron
 
De .pdf bestanden komen in dezelfde map als je Excel bestand.
 
Daar had ik naar gekeken maar geen PDF bestand.
Bestaat er ook de mogelijkheid om zelf te bepalen waar het bestand komt te staan?
Ron
 
Vreemd Ron,

Sla dat bestand van mij eens op in je desktop, en laat dan de code eens lopen.
 
Tja, dan kan ik er verder ook niets mee, het werkt hier perfect namelijk.
 
Kijk eens naar deze. Bevat ook een knopje voor het maken van de PDF en het aangeven waar de PDF moet komen. Wel nog even van de overige maanden de posities invullen op het blad Plan. Tevens is de code gedocumenteerd. Deze staat in de module PDF.

Bekijk bijlage kwartalen-edmoor.zip
 
Harry,
Bedankt voor je inzet.
Ron

Edmoor,
Deze versie werkt perfect.
Bedankt
Ron
 
Edmoor,
Bestaat er ook de mogelijkheid dat de gebruiker zelf kan bepalen waar de maand(en) moeten staan.
Het bestand staat op een groot netwerk met vele schijven.
Het andere PDF bestaat wat ik heb gemaakt roept automatisch outlook aan (Ron de Bruin versie) en daar moet deze aan toegevoegd worden.
 
Edmoor,
Nog een vraagje. Bestaat er ook de mogenlijkheid om het PDF bestand op te slaan ALS....
Ik heb al een PDF namen van de maand.
 
Ik gebruikte deze code :
Code: 
'Naam en plaats voor de PDF
    ''PDF = Sheets("Plan").Range("F8") & "\" & strMaand & ".pdf"
    FileFormatstr = "PDF Files (*.pdf), *.pdf"
            Fname = Application.GetSaveAsFilename("", filefilter:=FileFormatstr, _
                                                  Title:="Create PDF")
 
Er zijn meerdere wegen die naar Rome leiden. Heb je daarin ook netjes afgevangen wat er moet gebeuren als de gebruiker op Annuleren klikt?
 
Dat is het probleem. Het wordt opgeslagen als: kwartalen-edmoor.
 
Dat is wat anders dan de vraag die ik stelde. Maar bij de code die je in #15 hebt geplaatst kan de gebruiker zelf opgeven met welke naam de PDF moet worden opgeslagen.
 
Dat is hetgene wat ik heb geprobeerd. maar dat gebeurt juist niet. Dan wordt het:kwartalen-edmoor.pdf
 
Je kunt het zelf ingeven in het scherm dat door die opdracht wordt geopend:

wmhys1.jpg


Maar dan moet je in de code wel PDF gebruiken waar nu Fname staat.


Of je gebruikt dit, dan staat er alvast de maandnaam in:
Code: 
    'Naam en plaats voor de PDF
    pdf = Application.GetSaveAsFilename(strMaand, _
          filefilter:="PDF Files (*.pdf), *.pdf", _
          Title:="Opslaan PDF")
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan