Beste mensen,
Ik wil doormiddel van twee knoppen verschillende onderdelen op verschillende tabbladen afdrukken als PDF in een nieuw te creeren map.
De knop om het gehele werkboek als PDF op te slaan is geen probleem echter de knop om een bepaald onderdeel van elk werkblad als één PDF op te slaan krijg ik niet werkend.
Zie onderstaande teksten.
Deze voor het gehele werkboek werkt perfect
Private Sub PDF_maken()
Dim pad As String
Dim naam As String
Dim foldername As String
foldername = Sheets("voorblad").Range("a25").Value & "weekrapporten LAUDY"
pad = foldername + "\"
naam = "weekrapport LAUDY " & Sheets("voorblad").Range("y8").Value & " WK-" & Sheets("voorblad").Range("y10").Value & Format$(Now, " yyyy-mm-dd ")
On Error Resume Next
If Dir(foldername) = "" Then MkDir (foldername)
Sheets("Voorblad").Select
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pad & naam, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
Worksheets("maandag").Select
End Sub
Deze voor bepaalde onderdelen werkt niet
Private Sub PDF_rapport_maken()
Dim pad As String
Dim naam As String
Dim foldername As String
Dim sh As Worksheet
foldername = Sheets("voorblad").Range("a25").Value & "weekrapporten BOUWDIREKTIE"
pad = foldername + "\"
naam = "weekrapport BOUWDIREKTIE " & Sheets("voorblad").Range("y8").Value & " WK-" & Sheets("voorblad").Range("y10").Value & Format$(Now, " yyyy-mm-dd ")
On Error Resume Next
If Dir(foldername) = "" Then MkDir (foldername)
Set sh = Worksheets("voorblad")
sh.PageSetup.PrintArea = "$a$1:$ac$58"
Set sh = Worksheets("maandag")
sh.PageSetup.PrintArea = "$A$1:$ad$125"
Set sh = Worksheets("dinsdag")
sh.PageSetup.PrintArea = "$a$1:$ad$125"
Set sh = Worksheets("woensdag")
sh.PageSetup.PrintArea = "$a$1:$ad$125"
Set sh = Worksheets("donderdag")
sh.PageSetup.PrintArea = "$a$1:$ad$125"
Set sh = Worksheets("vrijdag")
sh.PageSetup.PrintArea = "$a$1:$ad$125"
Set sh = Worksheets("zaterag")
sh.PageSetup.PrintArea = "$a$1:$ad$125"
Sheets(Array("voorblad", "maandag", "dinsdag", "woensdag", "donderdag", "vrijdag", "zaterdag")).ExportAsFixedFormat Type:=xlTypePDF, Filename:=pad & naam, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
Worksheets("maandag").Select
End Sub
Hoe krijg ik de onderste werkend ?
Bij voorbaat bedankt,
Gr peter