• 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.

Bij afsluiten automatisch backup opslaan als pdf

Status
Niet open voor verdere reacties.

Roy3001

Gebruiker
Lid geworden
29 jul 2011
Berichten
54
Beste leden,

Wat ik graag zou willen is dat als ik het excelbestand (*.xlsm) afsluit dat dan automatisch een 'back-up' gemaakt wordt van het werkblad als pdf., deze pdf moet dan als bestandsnaam de tekst krijgen die in cel b2 staat. Oude c.q. eerdere pdf's met dezelfde naam dienen overschreven te worden. In dit voorbeeldje moet wat nu blauw gekleurd is op de pdf komen, dit heb ik al aangegeven bij afdrukbereik.

Ik heb al een beetje geknutseld met VBA, maar krijg het niet voor elkaar.

Wie kan mij helpen?

Alvast bedankt.

Roy
 

Bijlagen

Zo:
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    FacName = ActiveSheet.Range("B2").Value
    Range("A1:X46").ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="C:\test\roy\" & FacName, _
    OpenAfterPublish:=True
End Sub
Maar dan wel in de ThisWorkbook sectie.
 
Laatst bewerkt:
Excelblad als pdf opslaan op website

Hallo Ed,

Ik zie dat jij voor een ander de goede link hebt gestuurd.
Wil je aub even naar mijn bestandje kijken, want ik krijg het bij mijn bestandje maar niet voor elkaar.

Het zou op de site knbbmiddenholland.nl geplaatst moeten worden.
Graag zou ik nadat het bestandje word afgesloten dus dat het als pdf op de site te zien is.
Wat doe ik toch verkeerd? Wil je mij aub even terzijde staan?
 

Bijlagen

Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan