Sub save_print_screen()
Dim fs, SourceFile, DestFile, Zeit, hr, min, sek, ZeitNeu, name
' Variabeln definieren
Zeit = Time
hr = Left(Zeit, 2)
min = Mid(Zeit, 4, 2)
sek = Right(Zeit, 2)
ZeitNeu = hr & "-" & min & "-" & sek
SourceFile = "\Storage Card SD\temp_0001.pdf"
DestFile = SmartTags("Recipe_Actual_value_Folder_Name") & "\PrintScreen_" & Date & "_" & ZeitNeu & ".pdf"
'Check the free memory
MediaCheckCE
'Create object - Objekt erstellen
Set fs = CreateObject("FileCtl.FileSystem")
If Err.Number <> 0 Then
ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description
Err.Clear
Exit Sub
End If
fs.FileCopy SourceFile, DestFile
If Err.Number <> 0 Then
ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description
Err.Clear
SmartTags("Recipe_Actual_value_Create_Report_successful") = False
Exit Sub
End If
fs.kill SourceFile
ShowSystemAlarm "Report wurde erfolgreich erstellt"
'Verwendeten Speicher wieder freigeben
'Free used storage
Set fs = Nothing
End Sub