aantal printen

[ppms]

Hallo,

Ik heb diversen macro’s gemaakt om bepaalde delen van een werkblad te printen. Is het mogelijk als ik zo macro gebruik dat er eerst een schermpje komt met de vraag hoeveel kopieën printen.

Groet PPMS

 

[Warme bakkertje]

Zo bijvoorbeeld

Sub Aantal_Afdrukken()
ActiveSheet.PrintOut , , InputBox("Geef het aantal exemplaren op", "Aantal exemplaren")
End Sub

Of je kan in een cel een aantal zetten en ipv de inputbox verwijzen naar deze cel

 

[ppms]

Hallo Warme bakkertje,

Perfect en ik ben er erg blij mee, heel vriendelijk bedankt.

Zet dit bericht gelijk op opgelost

Groet PPMS

 

[ppms]

Hallo,

Kwam er wat later achter, als ik bij aantal afdrukken annuleer dan krijg ik een foutmelding.

Sub Aantal_Afdrukken()
ActiveSheet.PrintOut , , InputBox("Geef het aantal exemplaren op", "Aantal exemplaren")
End Sub

Groet PPMS

 

[MauriceSmit]

deze werkt bij mij wel :/ raar

Sub Printstuff()
    Dim NrOfCopies As Integer
    On Error GoTo ErrHandler
    
    NrOfCopies = InputBox("Aantal exemplaren", , 1)
    'expression.PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName, IgnorePrintAreas)
    ActiveSheet.PrintOut , , NrOfCopies

ErrHandler:
    If Err.Number = 13 Then
        MsgBox "Geen geldig getal ingevoerd"
    End If
End Sub

 

[ppms]

Hallo,

Inderdaad deze werkt wel, iedereen vriendelijk bedankt voor de hulp.

Groet PPMS