Te printen pagina aantallen bepalen met macro hoe?

[kaan]

Beste,

Ik zit met de volgende probleem, ik heb lege sheet wat uit 10 pagina bestaat maar ik het niet altijd 10 pagina nodig.
Vaak print ik maar 3 of 4 pagina ervan. Wat ik aan het proberen ben is het volgende, als voorbeeld ik wil op K3 aangeven 4 daarna wil ik met een button K1 laten lezen en dat er 4 pagina worden uitgeprint.

Dus waarde K1 4 dan 4 pagina printen.

Ik heb de hele forum afgezocht maar kom er zelf niet uit wie kan mij helpen?

Alvast bedankt

 

[Maglor]

Dit doet het normaal gezien.

Ik heb 7 pagina's met 'dummy' data. In K3 vul je een getal in (bvb 4) en dan print hij de eerste 4 pagina's af.

Enneuh, waarom ga je eigenlijk niet gewoon naar 'Bestand - Afdrukken' en kies je daar het aantal pagina's dat je wenst af te drukken?

 

[kaan]

Dat doe ik ook normaal maar wat ik wil is en het is nu mogelijk dank zijn jou code hier onder aangapaste versie.

Option Explicit



Private Sub cmdPrint_Click()
Dim intPagina As Integer

intPagina = ActiveSheet.Range("K1").Value

ActiveSheet.PrintOut 1, intPagina
Sheets("Sheet1").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("Sheet2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("Sheet3").Select
End Sub

=COUNT(B9;B55;B101;B147;B193;B239;B285;B331;B377;B423)

Hier boven Wordt gekeken of de eerste regel van pagina wel of geen waarde heeft, als er wel waarde is wordt het op K1 opgeteld.
Zo weet ik zonder te kijken hoeveel pagina’s ik moet uitprinten.

Dus het is nu 1 klik op de knop en het is geregeld.

Mijn dank voor je reactie.