Bepaalde pagina's afdrukken met makro

[SVENeRGy]

hoi,

ik zou graag een makro willen maken waarin ik bepaalde pagina's kan afdrukken.

Als ik bijvoorbeeld in A1 de pagina zet waar hij moet beginnen af te drukken en in A2 de pagina zet waar hij moet stoppen met afdrukken. In A3 zou ik graag zetten hoeveel keer ik dit wil afdrukken. daarnaast zet ik een knop printen.

Dus als ik bijvoorbeeld in A1 het getal 3 zet, in A2 het getal 5 en in A3 het getal 6, en ik dan op de knop printen druk dan wil ik dat mijn printer automatisch pagina 3 tot en met 5, 6 keer afdrukt.

Een knop maken en daar een makro aan toewijzen lukt me, maar de rest niet.

Kan iemand mij hiermee helpen?


mvg
Sven

 

[Wigi]

Kijk eens bij PrintOut in de helpfiles.

Parameters zoals begin en eindpagina, aantal keer drukken, enz. kan je daarbij allemaal opgeven.

 

[Roncancio]

Bij deze:

Private Sub CommandButton1_Click()
Dim iVanaf As Integer
Dim iTot As Integer
Dim iAantal As Integer
    iVanaf = Worksheets(1).Range("A1")
    iTot = Worksheets(1).Range("A2")
    iAantal = Worksheets(1).Range("A3")
   
    ActiveWorkbook.PrintOut from:=iVanaf, To:=iTot, Copies:=iAantal, Collate:=True
End Sub

Met vriendelijke groet,


Roncancio

 

[SVENeRGy]

ok tnx
werkt perfect