Zeilen ausblenden für Druck
Willi
ich habe eine Mappe erstellt, mit der man Gutscheine Drucken kann. Auf jeder einzelnen Seite sind 2 Gutscheine. Über eine Maske auf einer Seite, soll man den jeweiligen Gutschein aufrufen können für die Druckvorschau /Druck. Wenn nun nur ein Gutschein der Seite gedruckt werden soll, weil im zweiten keine Daten stehen, so möchte ich per Makro die Zeilen des leeren Gutscheins ausblenden und somit nur den ausgefüllten drucken. Für das einfache Makro reichte mein Wissen noch, was muss ich aber einfügen, damit es wie gewünscht funktioniert? Eine Zelle um abzufragen, ob ein Gutschein mit Daten gefüllt ist oder nicht wäre zB L7.
Sub druck_Gutsch2()
' Druck_Gutsch2 Makro
Sheets("Gutschein2").Select
ActiveWindow.SelectedSheets.PrintPreview
Sheets("Berechnung").Select
End Sub
Anzeige