AW: Druckereigenschaft-Fenster
07.10.2020 13:11:29
Manuel
Hallo Ralf,
im Makro wird eine PageSetup in einer anderen Excel Datei durchgeführt (siehe Makro)
Function Refresh()
On Error GoTo Fehler_Wartungszeitplan
If Dir(ThisWorkbook.Worksheets("Eingaben").Range("CL22"), vbHidden) Empty And Dir( _
ThisWorkbook.Worksheets("Eingaben").Range("CL23"), vbHidden) Empty Then
Application_commands.DisplayAlerts_Disable
Workbooks.Open ThisWorkbook.Worksheets("Eingaben").Range("CL22")
Workbooks.Open ThisWorkbook.Worksheets("Eingaben").Range("CL23")
Unprotections.Workbook_Eingaben
Unprotections.Workbook_Eingaben_Worksheets
Workbooks("Wartungszeitplan 400Hz.xlsm").Worksheets("Wartungszeitplan " & Year(Now)).Range("A1: _
O84").Copy
Workbooks("Eingaben_400Hz.xlsm").Worksheets("Wartungszeitplan").Range("A1").PasteSpecial
Workbooks("Eingaben_400Hz.xlsm").Worksheets("Wartungszeitplan").PageSetup.LeftHeader = "&"" _
Arial,Fett""&14" & "Wartungszeitplan " & Year(Now)
Protections.Workbook_Eingaben
Protections.Workbook_Eingaben_Worksheets
Workbooks("Wartungszeitplan 400Hz.xlsm").Close False
Workbooks("Eingaben_400Hz.xlsm").Close True
If Ladebildschirm.Label17.Caption = "Start" Then
Ladebildschirm.ProgressBar1.Value = Ladebildschirm.ProgressBar1.Value + 9
Ladebildschirm.Progressbar_Value
End If
'offene Überprüfungen
Reminder_Überprüfungen.offene_Überprüfungen
If Ladebildschirm.Label17.Caption = "Start" Then
Ladebildschirm.ProgressBar1.Value = Ladebildschirm.ProgressBar1.Value + 3
Ladebildschirm.Progressbar_Value
Startbildschirm.Finish
End If
Application_commands.DisplayAlerts_Enable
End If
Exit Function
Fehler_Wartungszeitplan:
Wartungszeitplan.Refresh
End Function
BG
Manuel