opslaan excel via VBA naar pdf

[exceldummy100]

Beste,

ik heb helemaal geen verstand van programmeren, maar heden sla ik mijn facturen via excel op in de map 'Facturen' via onderstaande VBA (wat trouwens prima werkt . Hierna wordt dadelijk een nieuw leeg factuur aangemaakt, worden dadelijk de variabele velden gewist en het factuurnummer aangepast (+1).

Nu zou ik graag deze facturen ipv in .xls op te slaan, deze dadelijk in PDF opslaan.

Alle tips en suggesties welkom aangezien ik een volledige leek ben. Heb al wel zelf hier en daar geprobeerd met formules te copy&pasten, doch zonder succes

Ik werk trouwens op MAC

Sub VolgFact()
Range("g4").Value = Range("g4").Value + 1
Range("g8,g10,g11,b20,a22,b23,b24,c22,g12").ClearContents
Range("g2").Value = Date
End Sub

Public Sub OpslBestand()
Dim NieuwFact As Variant
'kopiëren document als nieuwe factuur
ActiveSheet.Copy
NieuwFact = "\Users\Desktop\Facturen\" & Range("G4").Value & ".xls"
ActiveWorkbook.SaveAs Range("G4")
ActiveWorkbook.Close
VolgFact
End Sub

alvast hartelijk bedankt!! :thumb:

 

[HSV]

Hallo,

Zoek een in het zoekvenster van dit forum naar:

ExportAsFixedFormat

Er is al zoveel over geschreven, dat moet haast wel boven aan staan in het volgende venster wat je krijgt.

 

[edmoor]

Op een Mac heb je te maken met een andere pad notatie.
Een voorbeeld:

Sub SaveAsPDF() 
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="Macintosh HD:Users:Mach7:Desktop:Facturen:" & Range("G4").Value, _
    Quality:= xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _ 
    OpenAfterPublish:=True 
End Sub

 

[exceldummy100]

Beste experten, ik ga erachteraan... Alvast hartelijk dank voor jullie snelle antwoord!

 

[exceldummy100]

Beste Edmoor,

ik heb jouw formule toegepast, doch ipv op te slaan in de desbetreffende map slaat de printer aan en drukt die de excel pagina af.
Waaraan zou dit kunnen liggen?

 

[edmoor]

Met een Mac kan ik je helaas niet verder helpen. Kijk hier eens of het je helpt:
http://www.rondebruin.nl/mac/section3.htm

 

[exceldummy100]

Dit blijkt idd moeilijker te zijn dan verwacht.
Toch bedankt voor de moeite en tijd.

Misschien weet iemand anders wel de oplossing.

We keep on searching...