title image


Smiley Excel Drucken wenn
Hallo, ich habe jetzt was gefunden wie es funktioniert, und keine leeren Seiten mehr ausgedruckt werden. Bei jedem PrintOut Befehl wird erst dieses Makro ausgeführt.



Private Sub Workbook_BeforePrint(Cancel As Boolean)

If Worksheets("EUROPLUS (2)").Range("A2").Value = "" Then

'Abbrechen

Cancel = True

End If

End Sub



Dann wird dieses Makro abgearbeitet, dass dauert jetzt aber sehr lange bis das Makro alle Autofilter abgearbeitet hat. Ich habe in der ersten Field:1=, Criterial:="4"

und Field:2=, Criterial:="1" bis 90 stehen und Field1=, Criterial:="5" und Field:2=, Criterial:="1" bis 70. Kann ich das jetzt noch irgendwo etwas optimieren das es ein wenig schneller durchläuft?



Rows("1:1").Select

Selection.AutoFilter

Selection.AutoFilter Field:=1, Criteria1:="4"

Selection.AutoFilter Field:=2, Criteria1:="1"

Range("A53:I350").Select

Selection.Copy

Sheets("EUROPLUS (2)").Select

Range("A2").Select

Sheets("EUROPLUS").Select

Selection.Copy

Sheets("EUROPLUS (2)").Select

ActiveSheet.Paste

Application.CutCopyMode = False

ActiveSheet.PageSetup.PrintArea = "$A$1:$L$20"

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Sheets("EUROPLUS").Select

Selection.AutoFilter Field:=2, Criteria1:="2"

Selection.Copy

Sheets("EUROPLUS (2)").Select

Range("A2").Select

ActiveSheet.Paste

Application.CutCopyMode = False

ActiveSheet.PageSetup.PrintArea = "$A$1:$L$20"

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True



Gruß

Joachim

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: