Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wb As Workbook
Dim ws As Worksheet
Dim clipboard As MSForms.DataObject
Dim fPath As String
Dim fName As String
Dim fName2 As String
Dim fDatei As String
Dim i As Long
Set ws = Worksheets("Lohnblatt")
Set wb = ThisWorkbook
Set clipboard = New MSForms.DataObject
fPath = "\\Pfad für die Kopie\"
fName = Format(Date, "YYYY-MM-DD") & "-" & ActiveWorkbook.name
fName2 = ActiveWorkbook.name
fDatei = fPath & fName
Application.EnableEvents = False
Application.ScreenUpdating = False
If ActiveSheet.name = "Lohnblatt" Then
Cancel = True
End If
If wb.Saved = True Then GoTo Save1 Else GoTo Not_Save1
Not_Save1:
With ws
If wb.Saved = False Then _
If wb.Saved = False Then Application.Dialogs(xlDialogSaveAs).Show (fName2), xlOpenXMLWorkbookMacroEnabled
If wb.Saved = False Then GoTo Not_Save2 Else GoTo Save1
End With
Not_Save2:
With ws
If wb.Saved = False Then GoTo Not_Save1 Else GoTo Save1
End With
Save1:
Save2:
With ws
clipboard.SetText fPath
clipboard.PutInClipboard
Application.Dialogs(xlDialogSaveAs).Show (fName), xlOpenXMLWorkbookMacroEnabled
If wb.Saved = False Then _
If ws.Range("B5") = "Deutsch" _
If wb.Saved = False Then GoTo Save2 Else GoTo Save3
End With
Save3:
Application.EnableEvents = True
Application.ScreenUpdating = True
ws.PrintOut
MsgBox "printout wird ausgeführt"
End Sub