• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

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

Status
Niet open voor verdere reacties.

Bert2010

Gebruiker
Lid geworden
18 aug 2010
Berichten
61
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
 
Laatst bewerkt:
ipv wijzigen in de macro kan je ook een naar een cel refereren en hierin het aantal kopieen zetten.

Of met deze
Code:
aantal = InputBox("Geef aantal")

Ron
 
Laatst bewerkt:
Om Haaren101 te completeren:

Code:
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:

Code:
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.
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan