• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Opslaan als PDF

Status
Niet open voor verdere reacties.
Gerrit,

Probeer eens, maar vul eerst de naam van de gebruiker in, of een volledige andere plaats waar het bestand opgeslagen moet worden.
Code: 
Sub Opslaan_pdf()

Application.ScreenUpdating = False

'Opslaan bestand en als pdf op het voorblad

    ActiveWorkbook.Save
    
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\[B][COLOR="#FF0000"]gebruiker[/COLOR][/B]\Desktop\ " & Format([C5].Value, "dd-mm-yy") & ".pdf", Quality _
        :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False

Application.ScreenUpdating = True

End Sub
 
Hallo,

Dat is precies wat ik bedoel.

Ik kan nu weer verder.
Hartelijk bedankt voor de hulp.

met vriendelijke groet,

Gerrit
 
Een beetje onduidelijk waarom dit is opgelost.

Voor het opslaan op het bureaublad kan je beter de standaard map van windows opvragen. In dit geval in de variabele c00 gezet. Als je het in een bepaalde map wilt zetten dan kan je dat ook aangeven. In dit geval even in c01 gezet.
Code: 
Sub VenA()
c00 = CreateObject("WScript.Shell").specialfolders("Desktop") & "\"
c01 = "F:\DPO\DPO 2017\"
    ActiveSheet.ExportAsFixedFormat 0, [COLOR="#FF0000"]c00[/COLOR] & "DPO TK2 en 3 " & Format(Date, "dd-mm-yyyy") & ".pdf"
    ActiveSheet.ExportAsFixedFormat 0, [COLOR="#FF0000"]c01[/COLOR] & "DPO TK2 en 3 " & Format(Date, "dd-mm-yyyy") & ".pdf"
End Sub

Mag je zelf kiezen wat je weg laat.

Nb. Gebruik geen samengevoegde cellen.
 
Of in de map waar het Excel document zelf ook staat:
Code: 
c02 = ThisWorkbook.Path & "\"
    ActiveSheet.ExportAsFixedFormat 0, [COLOR="#FF0000"]c02[/COLOR] & "DPO TK2 en 3 " & Format(Date, "dd-mm-yyyy") & ".pdf"
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan