Dim WithEvents ExportStatus As Variable


Private Sub fvProject_StartupComplete()

    Set ExportStatus = Variables("dataexport_trigger")
    ExportStatus.EnableEvents = True

End Sub

Private Sub ExportStatus_ValueChange()

Dim Y_report As String
Dim Y_pdf As String


    If ExportStatus.Value = 0 Then

        
        
        Dim xlbook As Excel.Workbook
        Y_report = ThisProject.Path & "\DataExports\Export01.xlsx"
        Set xlbook = Workbooks.Open(Y_report, True, False, , , , True)
        xlbook.ActiveSheet.Unprotect
        xlbook.Application.DisplayAlerts = False
        
        ActiveWorkbook.Sheets("TrendPage01").Select
        Y_pdf = ThisProject.Path & "\Dataexports\Export01_Trends_" & Format(Now, "hhmmss") & ".pdf"
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=Y_pdf, Quality:=xlQualityStandard
        
        ActiveWorkbook.Sheets("ALARM").Select
        Y_pdf = ThisProject.Path & "\Dataexports\Export01_Alarms_" & Format(Now, "hhmmss") & ".pdf"
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=Y_pdf, Quality:=xlQualityStandard
        
        ActiveWorkbook.Sheets("Logpage01").Select
        Y_pdf = ThisProject.Path & "\Dataexports\Export01_Logs_" & Format(Now, "hhmmss") & ".pdf"
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=Y_pdf, Quality:=xlQualityStandard
         
        xlbook.Close
        Set xlbook = Nothing

    End If

End Sub