Deel werkblad naar pdf

[Koos66]

Met Excel 2010 probeer ik een deel (dit bereik heeft de naam BRIEF) van 1 vd werkbladen ve project op te slaan als pdf mbv een macro. Omdat er meerdere projecten zijn (elk in een eigen directory), moet het opslaan geschieden in dezelfde directory als waar het project staat. Daarnaast dient een stuk vd filenaam vd pdf te komen uit een cel op het actieve werkblad.
(Dus elk project heeft een eigen Excelfile en directory)

Ik zat te denken in deze richting (samengesteld uit div hints op helpmij):

ActiveSheet.Name"BRIEF" SaveCopyAs ActiveWorkBook.Path &  Range("B4") & ".pdf"

Kan een ervaren VBA'er aangeven wat de goede code moet zijn ?? bvd

 

[Rooie Darp]

Hier staat een uitgebreide uitleg hoe PDF's te maken mbv een macro
Succes

 

[Koos66]

@RooieDarp:
Nee, dat gaat over printen naar PDF. Excel2010 heeft de mogelijkheid om een selectie op te slaan als PDF en die wil/moet ik gebruiken. Het gaat er vooral om hoe ik een "ge-named" bereik vd actieve sheet kan opslaan in de actieve directory met een filenaam incl een variabele.

 

[Koos66]

Ik heb em zelf al een heel stuk op gang gekregen:

Sub ProjectOverzichtOpslaanAlsPDF3()
'
' ProjectOverzichtOpslaanAlsPDF3 Macro
'

'
Range("a1").Select
Application.Goto Reference:="PROJECTOVERZICHT_SEIZOEN_2012"
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ActiveWorkbook.Path & "/ProjectOverzicht_" & Range("B10") & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Range("a1").Select
End Sub

Het enige is dat ik nu nog Range("B10") moet zien te vervangen door een named-bereik.....
(Er plegen nl wel eens regels te worden gedeleted)

 

[Warme bakkertje]

Vervang B10 gewoon door de naam van je benoemd bereik.

 

[Koos66]

Ok, het werkt!!