Ik heb een macro waarmee een pdf gemaakt wordt van een werkblad. Door middel van afdrukbereik wordt niet alles wat op het werkblad staat in het pdf bestand opgeslagen.
Alleen wil het wel eens gebeuren dat het af te drukken bereik op meerdere pagina's komt te staan in plaats van 1 pagina. De oorzaak bleek te liggen aan de instellingen van het afdrukken.
Wanneer deze op 'blad passend maken voor 1 pagina' staat komt alles op 1 bladzijde, maar bij 'niet aanpassen' wordt alles over 4 pagina's verdeeld.
Dit heb ik kunnen oplossen door de volgende code voor 'ActiveSheet.ExportAsFixedFormat' in het macro te zetten.
Alleen was het wel nodig om 'Zoom = false' toe te voegen voor de juiste werking. Weet iemand waarom het alleen werkt wanneer de regel 'Zoom = false' erin staat?
Ik zie niet in wat deze regel toevoegt voor deze functie.
Alleen wil het wel eens gebeuren dat het af te drukken bereik op meerdere pagina's komt te staan in plaats van 1 pagina. De oorzaak bleek te liggen aan de instellingen van het afdrukken.
Wanneer deze op 'blad passend maken voor 1 pagina' staat komt alles op 1 bladzijde, maar bij 'niet aanpassen' wordt alles over 4 pagina's verdeeld.
Dit heb ik kunnen oplossen door de volgende code voor 'ActiveSheet.ExportAsFixedFormat' in het macro te zetten.
Code:
With ActiveSheet.PageSetup
.PrintArea = "A1:AE82"
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Alleen was het wel nodig om 'Zoom = false' toe te voegen voor de juiste werking. Weet iemand waarom het alleen werkt wanneer de regel 'Zoom = false' erin staat?
Ik zie niet in wat deze regel toevoegt voor deze functie.