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?
Hoop dat jullie mijn kunnen helpen?
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?