Sub export()

 Dim boDocument As busobj.Document
 Dim boReps As Reports
 Dim Dir, RepName As String
 Dim numrep As Integer
  
 Set boDocument = ThisDocument
 Set boReps = boDocument.Reports
 'Set dir = "\\bebrums06\d$\BO_SCHEDULING\Vlaamse\"
 Dir = "c:\temp\"
 
 'Export report with all tabs
 RepName = "Frontoffice Performantie Scorecard maand-tot-dag-Full.pdf"
 boDocument.ExportAsPDF (Dir & RepName)
 
 'Calculate number of reports
 numrep = boDocument.Reports.Count
 
 'Delete the tabs execpt the first 3
 Do While numrep > 3
      boDocument.Reports(numrep).Delete
      numrep = numrep - 1
 Loop
 
 'Calculate number of reports
 numrep = boDocument.Reports.Count
 
 'Export report with all 3 remaining tabs
 RepName = "Frontoffice Performantie Scorecard maand-tot-dag.pdf"
 boDocument.ExportAsPDF (Dir & RepName)
 
 'Close the document without saving
 boDocument.Close (2)

End Sub