Free Trial

Safari Books Online is a digital library providing on-demand subscription access to thousands of learning resources.

Share this Page URL
Help

9 Mustervorlagen und »intelligente« Form... > 9.4 Grenzen »intelligenter« Formular... - Pg. 555

Grenzen »intelligenter« Formulare ' Abrechnungsformular ausdrucken Sub btnPrint_Click() Application.ScreenUpdating = False ' Datum kopieren und als Wert einfügen Range("G9").Select Selection.Copy Selection.PasteSpecial Paste:=xlValues Application.CutCopyMode = False ' ganzes Tabellenblatt kopieren Sheets("Tabelle1").Select Sheets("Tabelle1").Copy ActiveWorkbook.Sheets(1) With Sheets(1) ' im neuen Arbeitsblatt gelbe Hintergrundmarkierung löschen .Cells.Interior.ColorIndex = xlNone ' ausdrucken .PrintOut preview:=True End With ' neues Tabellenblatt wieder löschen Application.DisplayAlerts = False ActiveWindow.ActiveSheet.Delete Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub