Een selectie werkbladen opslaan als pdf

[TP1]

In een werkmap heb ik meerdere werkbladen. In een werkblad heb ik een overzicht gemaakt met in kolom A de namen van de werkbladen en in een andere kolom J heb ik met JA aangegeven welke werkbladen als een geheel in een PDF-bestand moeten worden opgeslagen.
Dus
Kolom A Kolom J
naam werkblad Opslaan in PDF
A JA
B NEE
C JA
D JA
etc.

De bedoeling is dus dat de geselecteerde werkbladen A, C, D. ..... als een pdf-bestand worden opgeslagen onder de naam van de active werkmap en in de huiidge directory van deze de actieve werkmap.
.
Wie kan me helpen?
alvast bedankt


Heb deze vraag ook gesteld bij http://answers.microsoft.com/nl-nl/...-als-pdf/2fb2e4da-ee20-4ea4-acc3-84f003d31ae5

 

[danny147]

Beste TP1

Deze code plaatst Blad2 in een PDF in dezelfde PADnaam als het bestandje met als naam dat in K1 staat van Blad1.
Met wat aanpassingen kan je hiermee vooruit.

Sub Pdf_maken()

Dim Pad As String, BestandsNaam As String

Pad = ActiveWorkbook.Path + "\"
BestandsNaam = Sheets("Sheet1").Range("K1").Value
Sheets("blad2").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Pad & BestandsNaam, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub

Groetjes Danny. :thumb:

 

[TP1]

Thanx voor dit deel van het antwoord.

Om de geselecteerde werkbladen op te slaan heb ik de sub gemaakt als:

Sub Pdf_maken()

Dim Pad As String, BestandsNaam As String

Pad = ActiveWorkbook.Path + "\"
BestandsNaam = ActiveWorkbook.Name
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Pad & BestandsNaam, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub

 

[danny147]

Beste TP1

Ben je er nu uitgeraakt met mijn voorbeeld ?

Zoja, zet de vraag dan op opgelost, bovenaan je eerste vraag ajb.

Anders laat je effen iets weten wat je tekort komt.

Groetjes Danny. :thumb:

 

[TP1]

Beste Danny,

Ik ben er nog niet helemaal uit. Ik heb gisteren er aan verder gewerkt en een volledige sub bereikt om voor 95% te bereiken wat ik wil. Ik ben er alleen nog niet uit wat betreft als het PDF wordt aangemaakt om te controleren of het bestand al aanwezig is en de mogelijkheid om het onder een andere naam op te slaan als het bestand al bestaat.

 

[danny147]

Beste TP1

Dat had ik al gedacht, dat je maar ééntje kan opslaan onder de padnaam.
Daarom stelde ik ook voor om een bestandnaam in een cel te plaatsen.
Ja kan ook altijd opslaan onder de tabbladnaam.

Groetjes Danny. :thumb:

 

[TP1]

Beste TP1

Dat had ik al gedacht, dat je maar ééntje kan opslaan onder de padnaam.
Daarom stelde ik ook voor om een bestandnaam in een cel te plaatsen.
Ja kan ook altijd opslaan onder de tabbladnaam.

Groetjes Danny. :thumb:

Het werken met een locatie in een cel werkt bij mij niet echt.

 

[Warme bakkertje]

Post de code dan eens die je tot hiertoe hebt samengesteld.

 

[TP1]

Post de code dan eens die je tot hiertoe hebt samengesteld.

zie een paar opmerkingen eerder