beim drücken des Buttons "Drucken" oder nach Auswahl von Datei - Drucken möchte ich, daß ein Skript startet.
Wie mache ich daß ?
Danke und Gruß
Jochen
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Mein Makro
End Sub
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim strUnlocked As String
strUnlocked = "H22,C3:I3,D5:H5,D7:I54,B19:B21,B28:B30,B35:B37,B44:B46,B52:B54"
With ActiveSheet
.Unprotect
.Range(strUnlocked).Interior.ColorIndex = xlNone
.PrintOut
.Range(strUnlocked).Interior.ColorIndex = 19
.Protect
End With
End Sub
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim strUnlocked As String
Application.EnableEvents = False 'Ereignis AUS
strUnlocked = "H22,C3:I3,D5:H5,D7:I54,B19:B21,B28:B30,B35:B37,B44:B46,B52:B54"
With ActiveSheet
.Unprotect
.Range(strUnlocked).Interior.ColorIndex = xlNone
.PrintOut
.Range(strUnlocked).Interior.ColorIndex = 19
.Protect
End With
Application.EnableEvents = True 'Ereignis EIN
Cancel = True
End Sub
Sub Drucken()
Dim strUnlocked As String
strUnlocked = "H22,C3:I3,D5:H5,D7:I54,B19:B21,B28:B30,B35:B37,B44:B46,B52:B54"
With ActiveSheet
.Unprotect
.Range(strUnlocked).Interior.ColorIndex = xlNone
.PrintOut
.Range(strUnlocked).Interior.ColorIndex = 3
.Protect
End With
End Sub
Sub Drucker_einstellen()
SendKeys "%"
SendKeys "{down 13}" & "{enter}" & "{tab 5}" & "{down 1}"
End Sub
Sub drucken()
Dim strUnlocked As String
strUnlocked = "H22,C3:I3,D5:H5,D7:I54,B19:B21,B28:B30,B35:B37,B44:B46,B52:B54"
With ActiveSheet.Unprotect
ActiveSheet.Range(strUnlocked).Interior.ColorIndex = xlNone
SendKeys "%"
SendKeys "{down 13}" & "{enter}" & "{tab 5}" & "{down 1}"
ActiveSheet.Range(strUnlocked).Interior.ColorIndex = 19
ActiveSheet.Protect
End With
End Sub
Sub drucken()
Dim strUnlocked As String
strUnlocked = "H22,C3:I3,D5:H5,D7:I54,B19:B21,B28:B30,B35:B37,B44:B46,B52:B54"
With ActiveSheet.Unprotect
ActiveSheet.Range(strUnlocked).Interior.ColorIndex = xlNone
drucker_einstellen
ActiveSheet.Range(strUnlocked).Interior.ColorIndex = 19
ActiveSheet.Protect
End With
End Sub
Sub drucker_einstellen()
SendKeys "^p" & "{tab 5}" & "{down 1}"
End Sub
Sub drucken()
Dim strUnlocked As String
strUnlocked = "H22,C3:I3,D5:H5,D7:I54,B19:B21,B28:B30,B35:B37,B44:B46,B52:B54"
With ActiveSheet.Unprotect
ActiveSheet.Range(strUnlocked).Interior.ColorIndex = xlNone
ActiveSheet.Range(strUnlocked).Interior.ColorIndex = 19
ActiveSheet.Protect
End With
End Sub
Sub drucker_einstellen()
SendKeys "^p" & "{tab 5}" & "{down 1}"
End Sub