Macro: waarin gevraagd wordt hoeveel kopieën ik wil printen

[Bert2010]

Beste hulpverleners,
wie kan mij helpen: macro waarin gevraagd wordt hoeveel kopieën ik wil printen.
Ik moet dit nu steeds in de macro wijzigen. Wat moet ik wijzigen en waar moet een code ingevoegd worden?

Sub Leeg_formulier_printen()
'
' Leeg_formulier_printen Macro
'

'
Range("A4:AL10").Select
Selection.Copy
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub

 

[Haaren101]

ipv wijzigen in de macro kan je ook een naar een cel refereren en hierin het aantal kopieen zetten.

Of met deze

aantal = InputBox("Geef aantal")

Ron

 

[edmoor]

Om Haaren101 te completeren:

Sub Leeg_formulier_printen()
'
' Leeg_formulier_printen Macro
'
    Dim aantal As Integer

    aantal = InputBox("Aantal afdrukken: ")

    Range("A4:AL10").Select
    Selection.Copy
    Application.CutCopyMode = False
    ActiveWindow.SelectedSheets.PrintOut Copies:=aantal, Collate:=True, _
    IgnorePrintAreas:=False
End Sub

Of je zet inderdaad het aantal in een cel, bijvoorbeeld in A1:

Sub Leeg_formulier_printen()
'
' Leeg_formulier_printen Macro
'
    Range("A4:AL10").Select
    Selection.Copy
    Application.CutCopyMode = False
    ActiveWindow.SelectedSheets.PrintOut Copies:=Range("A1").value, Collate:=True, _
    IgnorePrintAreas:=False
End Sub

Dan moet je er echter wel iedere keer aan denken om het juiste aantal in die cel te zetten voordat je de macro gaat uitvoeren.