Abfangen Ausdruck bzw. Vorschau
26.07.2006 20:26:01
Adi
ich fange mittels "Workbook_BeforePrint" den Excel-Ausdruck bzw. die Vorschau ab, um meinen eigene Code mittels "ReAusdruckUserForm.Show" einzuleiten.
Schnipp ------------------------------------------------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
'Cancel = True 'Druckprozedur wird von eigenem Code übernohmen!
'löst bei zugehörigem KR- und PR-Blatt beim Druck- oder Vorachau-Befehl automatisch Autofilter aus
If Left(ActiveSheet.Name, 2) = "KK" _
Or Left(ActiveSheet.Name, 2) = "V " _
Or Left(ActiveSheet.Name, 2) = "XI" _
Or Left(ActiveSheet.Name, 2) = "PK" _
Or Left(ActiveSheet.Name, 2) = "PR" _
Or Left(ActiveSheet.Name, 2) = "SR" Then
DruckModus_standard = True
On Error Resume Next 'falls Blattname manuell abgeändert wurde, wird Blatt übergangen!
Sheets("V " + Right(ActiveSheet.Name, Len(ActiveSheet.Name) - 2)).Cells(1, 1).AutoFilter Field:=1, Criteria1:=">0"
Sheets("XI" + Right(ActiveSheet.Name, Len(ActiveSheet.Name) - 2)).Cells(1, 1).AutoFilter Field:=1, Criteria1:=">0"
Sheets("PR" + Right(ActiveSheet.Name, Len(ActiveSheet.Name) - 2)).Cells(1, 1).AutoFilter Field:=1, Criteria1:=">0"
Sheets("SR" + Right(ActiveSheet.Name, Len(ActiveSheet.Name) - 2)).Cells(1, 1).AutoFilter Field:=1, Criteria1:=">0"
On Error GoTo 0
Else
'anderer Tabellenblatt-Typ:
DruckModus_standard = False
End If
Cancel = DruckModus_standard
If DruckModus_standard = True Then ReAusdruckUserForm.Show
End Sub
Schnapp ------------------------------------------------------------------
Leider greift die Workbook_BeforePrint-Prozedur genau _ein_ einziges Mal nach dem Öffnen der Datei korrekt, dann kommt wieder Standard-Ausruck bzw. Standard-Vorschau. Nach dem Neu-Offnen klappt's dann wieder ein Mal.
Woran liegt's?
Kann mir jemand da draußen einen Tipp geben?
Bin für jeden Hinweis dankbar.
Gruß
Adi