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

Excel automatisch op laten slaan als PDF lukt maar PDF is niet te openen

Status
Niet open voor verdere reacties.

jelmero

Nieuwe gebruiker
Lid geworden
10 dec 2012
Berichten
2
Dag.

Ik ben bezig met het automatiseren van facturen middels Excel 2007, nu heb ik veel hier op het forum rondgekeken en uitgeprobeerd. Nu lukt het mij uiteindelijk om het bestand op te slaan als PDF. ik dacht dat ik het goed had gedaan maar nu krijg ik steeds een foutmelding in PDF.

de Macro code die ik heb gebruikt is:

Public Sub opslaanpdf()
ActiveWorkbook.SaveAs "G:\facturen\opgeslagen facturen\factuur" & Range("A2").Value & ".pdf"
End Sub

de foutmelding die ik krijg in Adobe reader is:

factuur........BV.pdf kan niet worden geopend omdat dit bestandstype niet wordt ondersteund of omdat het bestand is beschadigd (Omdat het bijvoorbeeld als e-mailbijlage is verzonden en niet correct is gedecodeerd)

Daarnaast wanneer ik deze op bovengenoemde manier opsla geeft hij aan dat het bestand 97kb is. wanneer ik het handmatig via excel opsla is deze ca 400kb.

Iemand een idee wat ik fout doe? alvast bedankt
 
De reden dat je hem niet kunt openen omdat het niet werkt wat je doet. Je kunt niet opslaan als en dan gewoon de extensie veranderen.
Oftewel het opslaan als PDF lukt al niet


Neem de macro eens op terwijl je een PDF handmatig maakt dan komt er het volgende in de macro te staan.


Code:
Sub Macro2()

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "G:\00000_helpmij\Map2.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
End Sub

Niels
 
Laatst bewerkt:
Dan wordt het
Code:
Sub opslaanpdf()
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="G:\facturen\opgeslagen facturen\factuur" & Range("A2").Value & ".pdf", _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=False
End Sub
 
Heel erg bedankt voor de antwoorden, ik ben twee dagen vrij geweest dus heb het net aangepast en het werkt.

scheelt me weer veel tijd.

groeten

Jelmer
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan