Macro exporteren als PDF

[sebas25]

Beste mensen,

Het geval is als volgt: ik heb een werkmap met ongeveer 30 tabbladen.
Ik zou graag een macro maken voor het exporteren van een selectie van een tabblad als pdf, naar een locatie op mijn computer.
Het gaat om A75:K75. Ik zou graag willen dat de bestandsnaam de tekst wordt die in F12 staat.
Het handigst zou zijn als hiervoor op elk tabblad een knop komt.
Is er iemand die mij aan een script hiervoor kan helpen?
Alvast bedankt!

Groeten,
Sebas

 

[Joske2000]

Hi Sebas,

De volgende macro doet wat je vraagt.

Sub AfdrukSheet()
    n = ActiveSheet.Range("F12").Value
    ActiveSheet.PageSetup.PrintArea = "$A$75:$K$75"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\JOSKE\Documents\" & n & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
End Sub

Gr,

Joske

 

[gast0660]

Zoiets?
(path aanpassen in module 1)

 

[edmoor]

Om achter knoppen te zetten:

[COLOR="#008000"]'Op Blad1:[/COLOR]
Sub Commandbutton1_Click()
    SaveAsPDF (ActiveSheet.Name)
End Sub

[COLOR="#008000"]'Op Blad2:[/COLOR]
Sub Commandbutton2_Click()
    SaveAsPDF (ActiveSheet.Name)
End Sub

[COLOR="#008000"]'Deze is er dus slechts eenmaal in een Module:[/COLOR]
Sub SaveAsPDF(Bladnaam As String)
    With Sheets(Bladnaam)
        .Range("$A$75:$K$75").ExportAsFixedFormat Type:=xlTypePDF, _
         Filename:="C:\Users\sebas25\Desktop\" & .Range("F12"), _
         Quality:=xlQualityStandard, IncludeDocProperties:=True
    End With
End Sub

 

[sebas25]

Hartelijk bedankt allemaal!

Ik ga ermee aan de slag en vermoed dat ik er wel uit moet komen.

Groet,
Sebas