Factuur exporteren naar pdf (macro en VBA)

Status
Niet open voor verdere reacties.
R

Ryki

Nieuwe gebruiker
Lid geworden
6 apr 2020
Berichten
2
Goedemiddag,

Momenteel ben ik bezig om een administratiedocument te maken. En nu ben ik op het punt gekomen om de facturen te gaan maken. Alleen ben ik diverse tutorials aan het volgen geweest en geen een van de code werkt op een of andere manier. Nu heeft een vriend van mij geprobeerd om een kleine basis te maken van het document maar op een of andere manier exporteert hij nog niet naar pdf. De bedoeling is om een macro te maken en wanneer ik op die knop druk dan moet mijn selectie (vooraf ingesteld worden)(A1 : D47) geëxporteerd worden naar pdf in een desbetreffende map: /user/dropbox/naambedrijf/administratie. Zelf werk ik op een mac of is er een mogelijkheid om het universeel te gebruiken mac en windows?

Code: 
Sub Factuur_naar_PDF()
'
' Factuur_naar_PDF Macro
' Maakt van deze factuur door te klikken op de knop: Print naar PDF.
'
' Sneltoets: Ctrl+f
'
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    Application.PrintCommunication = True
    ActiveSheet.PageSetup.PrintArea = "$A$1:$E$47"
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.7)
        .RightMargin = Application.InchesToPoints(0.7)
        .TopMargin = Application.InchesToPoints(0.75)
        .BottomMargin = Application.InchesToPoints(0.75)
        .HeaderMargin = Application.InchesToPoints(0.3)
        .FooterMargin = Application.InchesToPoints(0.3)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = True
        .CenterVertically = True
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
        .EvenPage.LeftHeader.Text = ""
        .EvenPage.CenterHeader.Text = ""
        .EvenPage.RightHeader.Text = ""
        .EvenPage.LeftFooter.Text = ""
        .EvenPage.CenterFooter.Text = ""
        .EvenPage.RightFooter.Text = ""
        .FirstPage.LeftHeader.Text = ""
        .FirstPage.CenterHeader.Text = ""
        .FirstPage.RightHeader.Text = ""
        .FirstPage.LeftFooter.Text = ""
        .FirstPage.CenterFooter.Text = ""
        .FirstPage.RightFooter.Text = ""
    End With
    Application.PrintCommunication = True
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
End Sub

Hoop dat jullie mijn kunnen helpen?
 
Voorbeeldje. Je moet uiteraard alle gegevens aanpassen...

Code: 
Private Sub CommandButton25_Click()

    Range("A1:G41").Select
    ChDir "C:\Users\Maarten\Desktop\Bestanden"
    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\Maarten\Desktop\Mappen\PDF\" & Range("C13") & " " & Range("I14") & " " & Range("C10") & ".pdf", Quality:=xlQualityStandard _
        , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True

End Sub
 
mvdvlist zei:
Voorbeeldje. Je moet uiteraard alle gegevens aanpassen...

Code: 
Private Sub CommandButton25_Click()

    Range("A1:G41").Select
    ChDir "C:\Users\Maarten\Desktop\Bestanden"
    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\Maarten\Desktop\Mappen\PDF\" & Range("C13") & " " & Range("I14") & " " & Range("C10") & ".pdf", Quality:=xlQualityStandard _
        , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True

End Sub
Klik om te vergroten...

Dit is gebaseerd op een windows maar hoe zit het dan met de code voor mac? zo'n code heb ik ook al een keer geprobeerd maar dit werkte ook nog niet helemaal
 
Laatst bewerkt:
Ik dacht dat dit universeel was, maar daar vergis ik mij dus in. Ik heb nog nooit in een Mac verdiept. Sorry.
 
Het scheidingsteken op een Mac is een slash, en voor de rest weet ik niets van een Mac.

Als al die mappen bestaan.
Code: 
Private Sub CommandButton25_Click()
    Range("A1:D47").ExportAsFixedFormat 0,[COLOR=#ff0000] [/COLOR]"C:/u[COLOR=#ff0000][/COLOR][COLOR=#3E3E3E]ser/dropbox/naambedrijf/administrat[/COLOR]ie/" & Range("C13") & " " & Range("I14") & " " & Range("C10") & ".pdf", , , , , ,true
End Sub
 
Om het universeel te maken kan je iets met application.PathSeparator doen.

Nb. Het quoten van volledige berichten is niet echt nodig.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan