Macro opslaan als pdf

[berry71]

Beste allemaal,

Ik heb een probleempje met het opslaan van een PDF bestand via een macro.
Alles werkt als ik zou willen alleen is de PDF niet geschikt voor een PDF reader.

Hopelijk kan iemand mij helpen in Jip en Janneke taal.

Groeten BerryBekijk bijlage Factuur HELPMIJ.xlsm

 

[HSV]

Ik zie nergens een code dat van een Excel-bestand een PDF maakt.

 

[berry71]

Harry, ik heb mn bijlage aangepast

 

[abevleeming]

Nog steeds geen opslaan als pdf te vinden in je macro. Wel een "Openxml" bestand.
Probeer

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Range("A1").Value _
    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=True

Eens waarbij A1 de titel is van je bestand. Eventueel locatie voor opslaan kan je aangeven door onderstaande te gebruiken

Filename:="C:/Test/" & Range("A1").Value

Let wel, je slaat het nu op als pdf, mocht je het willen afdrukken als pdf komt er weer heel wat anders bij kijken

 

[HSV]

Filename-path is in Windows met een"\" ipv. "/".

 

[berry71]

VBA foutje

Help,

Nu kan ik hem opslaan als PDF, maar nu print hij en slaat het PDF Bestand op in de verkeerde kleuren??

Bekijk bijlage Factuur HELPMIJ.xlsmBekijk bijlage Factuur HELPMIJ.xlsm