factuur als pdf-bestand wegschrijven

[hazesoft]

Goede middag,

Ik ben bezig met een factureringsprogrammaatje voor mijn zoon.
Na de nodige macro's loopt het al aardig.

Wanneer een factuur klaar is, wordt hij weggeschreven bv. in map .....\2015 als 10342.xls
Het wordt dan een leeg bestand met de factuur ingeplakt als afbeelding.
Ik zou graag willen dat hij wordt weggeschreven als 10342.pdf.

Wie zou mij daar mee kunnen/willen helpen, ik zal dan natuurlijk het factureringsbestand als bijlage mailen.

Bijvoorbaat dank,
Hans Zeelenberg

 

[edmoor]

Voor Office 2003 kan je daar een PDF printer voor gebruiken. Bijvoorbeeld deze:
http://www.bullzip.com/products/pdf/info.php


Voor Office 2007 en hoger het volgende in een macro:

    ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:="10342.pdf", _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False

 

[Gerard1783]

Zou ik een kopie van het factureerprogramma mogen hebben.
Ik heb er wel een maar die nummert niet automatisch door.
En ik moet telkens de 6% en de 21% BTW wijzigen.

 

[hazesoft]

Bedankt Edmoor

Bedankt voor deze macro.
Kan het ook zo aangepast worden dat de filename automatisch de waarde krijgt uit cel D13 (is het factuurnummer)?
Dan zet ik de macro onder een knop.

Groeten,
Hans Zeelenberg

 

[edmoor]

Hallo Hans,

Ja, dat kan.
Wijzig dit:
Filename:="10342.pdf"

dan in dit:
Filename:=Range("D13")

Maar je moet ook nog een pad en de extensie opgeven als D13 alleen het factuurnummer bevat.
Bijvoorbeeld:
Filename:="C:\Mapnaam\" & Range("D13") & ".pdf"

 

[hazesoft]

pdf-naam

Edmoor heel erg bedankt,

Ik ga dit morgen uitproberen en je hoort nog van mij.
Een prettige dag verder.

Grtz.,
Hans

 

[hazesoft]

Gelukt

Goedemorgen Edmoor,

Het is gelukt; super. :thumb: Het werkt perfect na jouw laatste wijziging c.q. aanvulling.
Bedankt voor de moeite.

Groet,
Hans