opslaan als pdf

[wjk51]

Hallo
ik ben bezig om een sheet op te slaan als pdf en dat gaat top
hij maakt automatisch een pdf aan met het nummer dat ik invul in C4 bv 12345
maar nu moet ik zelf de naam nog aanpassen met een text
de pdf wordt in het systeem gezet '' 12345-in_in
dus het zou lekker zijn dat -in_in wordt meegenomen
dit is de code die ik gebruik

Sub pdf_Nederlands_Klikken()

    Dim Pad As String
    Dim BestandsNaam As String
        Pad = ActiveWorkbook.Path + ""
        BestandsNaam = Sheets("Nederlands").Range("C4").Value
            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Pad + BestandsNaam, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub

 

[VenA]

Ik zou geen + maar & gebruiken Wie of wat is in_in? Harde tekst of een paar variabelen uit het blad? Waarom een spatie voor 12345-in_in?

Met welk systeem werk je? Pad = ActiveWorkbook.Path + "" heeft niet zo heel veel nut

 

[wjk51]

pdf opslaan

Hoi
het is een harde text'' -in_in'' dit heeft te maken als ik de pdf zo opsla dan komt hij bij ons uit het systeem
de pdf moet dus 12345-in_in zijn



Met welk systeem werk je? Pad = ActiveWorkbook.Path + "" heeft niet zo heel veel nut
ik werk met mijn pc onder windows ( als je dit bedoeld )

 

[VenA]

Een beetje halve antwoorden en omschrijvingen. Hoe kan iets uit een systeem komen als je het bestand opslaat als .pdf?

Ik denk dat dit voldoende is.

Sub VenA()
  ActiveSheet.ExportAsFixedFormat 0, ThisWorkbook.Path & "\" & Sheets("Nederlands").Range("C4") & "-in_in.pdf", , , , , , True
End Sub

 

[wjk51]

pdf opslaan

Hallo VenA
ondanks halve antwoorden en omschrijvingen heb jij mij heel goed geholpen
hier was ik naar op zoek
bedankt echt top