Count of No of Page to be Printed with YES or NO options

[Nasmin Saheed]

I have written a VBA script to print some details using a loop option, and this VBA script is assigned to a button. Now, I need that when I press the button to print the details, the VBA should calculate how many pages will be printed and it should display a message with two options: YES or NO. If I press YES, all the pages should print. If I press NO, then the pages should not print. Can anyone please assist with this?

 

[Peter_SSs]

Would something like this in the ThisWorkbook module help?

Private Sub Workbook_BeforePrint(Cancel As Boolean)
  Dim pp As Long
  Dim Resp As VbMsgBoxResult
 
  pp = ExecuteExcel4Macro("GET.DOCUMENT(50)")
  Resp = MsgBox(Prompt:=pp & " Pages will be printed. Continue?", Buttons:=vbYesNo)
  If Resp = vbYes Then
    Application.EnableEvents = False
    ActiveSheet.PrintOut
    Application.EnableEvents = True
  Else
    Cancel = True
  End If
End Sub