Beste,
Ik ben een macro'tje aan het opnemen om een afdrukbereik te bepalen in de breedte.
Ik gebruik een Spreadsheet waar het afdrukbereik (bij tabblad "pagina indeling) als volgt is ingesteld:
- Breedte= 1pagina
- Hoogte= automatisch
Het is nu zo dat ik een print wil maken van een gedeelte van deze spreadsheet.
Om telkens het afdrukbereik te moeten aanpassen zou ik het hiervoor graag een macro'tje willen gebruiken.
Dus ik begin een macro op te nemen en krijg volgend resultaat:
ActiveSheet.PageSetup.PrintArea = "$A$1:$R$140"
Nu is het zo dat ik gewoon van kolom A tot R wil selecteren, in de hoogte wil ik er afblijven omdat het aantal rijen voor andere documenten telkens verschilt.
Weet iemand hoe ik dat op een correcte manier doe?
Ik heb hetvolgende als eens geprobeerd:
ActiveSheet.PageSetup.PrintArea = "$A:$R"
En dit werkt op zich wel denk ik, maar ik zie dat Excel hier in een soort loop blijft hangen.
Ik zie dat omdat ik een Macro-button heb staan op de spreadsheet (om nog een andere macro te starten) en deze begint te flikkeren als ik de PrintArea-macro uitvoer.
Kan iemand mij helpen?
Alvast bedankt.
Wocky
Nog een belangrijk detail.
Het zou best zijn dat excel herkend wat de laatst gevulde rij is van alle geselecteerde kolommen.
Het kan voorkomen dat kolom R niet helemaal gevuld is tot de laatste rij, maar bvb kolom C wel (en een andere keer weer kolom D, enz...)
Ik ben een macro'tje aan het opnemen om een afdrukbereik te bepalen in de breedte.
Ik gebruik een Spreadsheet waar het afdrukbereik (bij tabblad "pagina indeling) als volgt is ingesteld:
- Breedte= 1pagina
- Hoogte= automatisch
Het is nu zo dat ik een print wil maken van een gedeelte van deze spreadsheet.
Om telkens het afdrukbereik te moeten aanpassen zou ik het hiervoor graag een macro'tje willen gebruiken.
Dus ik begin een macro op te nemen en krijg volgend resultaat:
ActiveSheet.PageSetup.PrintArea = "$A$1:$R$140"
Nu is het zo dat ik gewoon van kolom A tot R wil selecteren, in de hoogte wil ik er afblijven omdat het aantal rijen voor andere documenten telkens verschilt.
Weet iemand hoe ik dat op een correcte manier doe?
Ik heb hetvolgende als eens geprobeerd:
ActiveSheet.PageSetup.PrintArea = "$A:$R"
En dit werkt op zich wel denk ik, maar ik zie dat Excel hier in een soort loop blijft hangen.
Ik zie dat omdat ik een Macro-button heb staan op de spreadsheet (om nog een andere macro te starten) en deze begint te flikkeren als ik de PrintArea-macro uitvoer.
Kan iemand mij helpen?
Alvast bedankt.
Wocky
Nog een belangrijk detail.
Het zou best zijn dat excel herkend wat de laatst gevulde rij is van alle geselecteerde kolommen.
Het kan voorkomen dat kolom R niet helemaal gevuld is tot de laatste rij, maar bvb kolom C wel (en een andere keer weer kolom D, enz...)
Laatst bewerkt: