Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 7 van 7

Onderwerp: Opslaan als PDF

  1. #1
    Vraag is niet opgelost

    Opslaan als PDF

    Hallo,

    Ik wil het excel bestand opslaan als een PDF met de Tekst DPO TK2 en 3 met daarbij de datum welke in cel B5 staat.

    Ik heb al wat geknutseld, maar ik krijg de datum er niet bij.

    Wie kan mij hierbij verder helpen.

    met vriendelijke groet,

    Gerrit


    Sjabloon DPO TK2 en 3.xlsm

  2. #2
    Giga Senior
    Verenigingslid
    robdgr's avatar
    Geregistreerd
    8 september 2001
    Locatie
    Voorthuizen
    Afstand tot server
    ±36 km
    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\gebruiker\Desktop\ " & Format([C5].Value, "dd-mm-yy") & ".pdf", Quality _
            :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
    
    Application.ScreenUpdating = True
    
    End Sub
    Groet,

    Rob

    PS: Kijk ook eens op mijn site voor natuur-, maar ook andere foto's en diverse Excel-bestanden.

  3. #3
    Hallo,

    Dat is precies wat ik bedoel.

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

    met vriendelijke groet,

    Gerrit

  4. #4
    Mega Honourable Senior Member
    Geregistreerd
    2 maart 2013
    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, c00 & "DPO TK2 en 3 " & Format(Date, "dd-mm-yyyy") & ".pdf"
        ActiveSheet.ExportAsFixedFormat 0, c01 & "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.
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  5. #5
    Wat is hier het voordeel van?

    Groet,

    Gerrit

  6. #6
    Mega Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Dat mag je geheel zelf bepalen.
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  7. #7
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Of in de map waar het Excel document zelf ook staat:
    Code:
    c02 = ThisWorkbook.Path & "\"
        ActiveSheet.ExportAsFixedFormat 0, c02 & "DPO TK2 en 3 " & Format(Date, "dd-mm-yyyy") & ".pdf"
    "Hardware: The parts of a computer system that can be kicked. "
    Op rechtstreekse vragen via email reageer ik niet. Daar is het forum voor.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren
Aanbiedingen