Gijsbert1960
Gebruiker
- Lid geworden
- 5 jul 2017
- Berichten
- 140
Hallo Allemaal
Ik heb een werkblad en de grote is 4 pagina's maar met de formule slaat hij alleen het bereik A1:AF43 op en hij moet het bereik A1:F137 als 4 pagina's in 1 PDF bestand opslaan. Ik weet niet waarom of wat er fout is aan de formule. Ik gebruik de onderstaande formule.
M Vr Gr
Gijs
Ik heb een werkblad en de grote is 4 pagina's maar met de formule slaat hij alleen het bereik A1:AF43 op en hij moet het bereik A1:F137 als 4 pagina's in 1 PDF bestand opslaan. Ik weet niet waarom of wat er fout is aan de formule. Ik gebruik de onderstaande formule.
Code:
With Sheets("Afwijkrap")
ActiveSheet.Unprotect Password:="ike"
Dim FacName As String
Dim saveLocation As String
saveLocation = ActiveSheet.Range("AN1").Value
FacName = ActiveSheet.Range("AO1").Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=saveLocation & FacName & Format(Now, " dd-mm-yyyy") & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False
.Range("AO2") = .Range("AO3").Value
ActiveSheet.Protect Password:="ike"
End With
M Vr Gr
Gijs