Opgelost Formule slaat 1 pagina op ipv 4 in PDF

[Gijsbert1960]

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.

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

 

[edmoor]

Ik zie nergens een selectie van je gewenste bereik.
Plaats een voorbeeld documentje.

 

[Gijsbert1960]

Hallo Edmoor

Hierbij het document daar heb ik een uitleg staan over het bereik dat geselecteerd moet worden in bepaalde gevallen

M Vr Gr
Gijs

 

[edmoor]

Een xlsx document be vat nooit VBA code.

 

[Gijsbert1960]

Hallo Edmoor

Ik heb dit gauw even gemaakt het orgineel is te groot en bevat privecy info op alle bladen maar is wel in xlsm ik kan het bestand indien nodig aanpassen naar xlsm

M Vr Gr
Gijs

 

[edmoor]

Probeer deze eens:

 

[Gijsbert1960]

Hallo Edmoor

Hij doet het alleen kon ik hem eerst niet vinden met Uw coden en heb die aangepast naar de 2e code en toen had ik hem dus Thisworkbook.Path veranderd in Filename:=saveLocation.

.Range("A1:G137").ExportAsFixedFormat 0, ThisWorkbook.Path & "\" & FacName & Format(Now, " dd-mm-yyyy") & ".pdf"

.Range("A1:AL137").ExportAsFixedFormat 0, Filename:=saveLocation & FacName & Format(Now, " dd-mm-yyyy") & ".pdf"

Hartelijk dank voor Uw hulp ik had verschillende formule's bekenen en geprobeerd maar werkte niet.

M vr gr
Gijs

 

[edmoor]

Tsja, in je voorbeeld document is Savelocation leeg, dus moest ik er wat van maken.
Die Filename:= mag je weg laten.
Dat is het verschil tussen benoemde en positionele parameters..

NB:
Het zijn geen formules maar macro's.
Formules staan in cellen op een werkblad.

 

[Gijsbert1960]

Ja maar ik ben eruit gekomen dankzij Uw hulp nogmaals Hartelijk Dank
Ik heb het op opgelost gezet