nochmals Drucken
Werner
Wenn ich in meiner Datei einen Bereich markiere und gehe dann auf Drucken werden die Daten sofort zum Drucker gesendet und innerhalb ein paar se. wird auch schon gedruckt.
Wenn ich folgendes Makro auf einer Schaltfläche hinterlege.....
Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Rows("11:36").EntireRow.Hidden = True ' Abteilung 1 Ausblenden
Range("A234:AG258").PrintOut Copies:=1, Collate:=True ' Abteilung 2 Drucken
Rows("11:36").EntireRow.Hidden = False ' Abteilung 1 Einblenden
Application.ScreenUpdating = True
End Sub
Gruß Werner
Anzeige