Bevestiging vragen voor printen

[LisaAlberta]

Hoi allemaal,

ik heb een bestand met roosters waar ook een optie in zit om alle jaarroosters van iedereen te printen.
Nu wil ik heel graag dat men eerst bevestigd dat er inderdaad zoveel geprint moet worden. Of beter gezegd ik wil de mogelijkheid tot annuleren bieden. Hoe kan ik dat doen?

alvast bedankt,
Lisa

 

[edmoor]

In ThisWorkbook:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Cancel = True
    If MsgBox("Alles printen. Weet u het zeker?", vbOKCancel) = vbOK Then
        Cancel = False
    End If
End Sub

 

[LisaAlberta]

Hoi Ed,

ik heb het verzamelen van de te printen bladen in een macro staan. Hoe kan ik dit in die macro verwerken? (Sorry ik had dat er meteen bij moeten zetten).

alvast bedankt,
Lisa

Sub IedereenHelejaarPrinten()
'
' IedereenHelejaarPrinten Macro
'


Dim teller2 As Integer
teller2 = 0
Sheets("Dyn_Overz").Select
Range("A5").Select
Do Until ActiveCell.Value = ""
teller2 = teller2 + 1
ActiveCell.Offset(1, 0).Select
Rows(teller2 & ":" & teller2).Select
Loop
MsgBox "u staat op het punt " & teller2 * 7 & " pagina's te gaan printen"
'ik wil hier nog een bevestigingsknop in hebben voordat er geprint wordt

Dim teller As Integer
Dim naamtab As String
Dim aantalpag As Integer

teller = 5

Sheets("dyn_overz").Select
Range("A5").Select
Do Until ActiveCell.Value = ""
ActiveCell.Offset(1, 0).Select
Rows(teller & ":" & teller).Select
naamtab = ActiveCell.Value
Sheets(naamtab).Select
Sheets(naamtab).PrintOut , , 1
teller = teller + 1
Sheets("dyn_overz").Select
Range("a" & teller).Select

Loop
aantalpag = (teller - 5) * 7
MsgBox "de roosters van " & teller - 5 & " personen zijn naar de printer verstuurd, " & aantalpag & " pagina's"

End Sub

 

[edmoor]

Dan kun je gewoon dit stukje er bovenin je eigen sub bij plaatsen:

    If Not MsgBox("Alles printen. Weet u het zeker?", vbOKCancel) = vbOK Then
        Exit Sub
    End If

 

[LisaAlberta]

super dank je wel!