Afdrukbereik permanent vastleggen

[OvisCantus]

Waarschijnlijk voor jullie een eenvoudige vraag, maar ik kom er niet uit;

Als de gebruiker op printen drukt moet A1 t/m F56 afgedrukt worden.
Nu kun je via "Bestand" het afdrukbereik bepalen, maar hoe zorg je er voor dat dit bereik blijft, als je het bestand opnieuw opend?

Alvast bedankt!!

Groetjes Tom!

 

[Roncancio]

Je kan ervoor kiezen om bij het openen van het bestand automatisch het afdrukbereik in te stellen.
Via:

Extra - Macro - Visual Basic Editor.

Als het goed is zie je links de projectverkenner. (zie eventueel attachment projectverkenner)

Vervolgens dubbelklik je op Workbook en ga je naar Workbook en Open.
Daar plak je de volgende code:

Worksheets(1).PageSetup.PrintArea = "$A$1:$F$56"

Ik hoop dat ik een beetje duidelijk ben geweest. Zie bijlage.

 

[OvisCantus]

Hi Roncancio!

Yep, het was zeeer duidelijk.
Bedankt voor je moeite!! :thumb:

Kan ik eventueel ook nog aangeven dat hij dit bij alle werkbladen moet doen?

Groetjes Tom!

 

[Roncancio]

Hi Roncancio!

Yep, het was zeeer duidelijk.
Bedankt voor je moeite!! :thumb:

Kan ik eventueel ook nog aangeven dat hij dit bij alle werkbladen moet doen?

Groetjes Tom!

Private Sub Workbook_Open()
Teller = Worksheets.Count
For Aantal = 1 To Teller
Worksheets(Aantal).PageSetup.PrintArea = "$A$1:$F$56"
Next
End Sub

 

[OvisCantus]

Private Sub Workbook_Open()
Teller = Worksheets.Count
For Aantal = 1 To Teller
Worksheets(Aantal).PageSetup.PrintArea = "$A$1:$F$56"
Next
End Sub

Allright,

wederom bedankt!!