Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Druckdaten auf Druckblatt sammeln
Gruppe
Seite
Problem
Daten aus dem Quellblatt sollen so in das als Druckvorlage dienende Sammelblatt übernommen werden, dass auf jeder Druckseite der Bereich C7:D37 als Kopfzeile und danach Gruppen von Spalten gesammelt werden.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain Sub Foto() Dim wks As Worksheet Set wks = ActiveSheet With Worksheets("Quellblatt") .Range("C7:D37").CopyPicture Appearance:=xlScreen, Format:=xlBitmap ActiveSheet.Paste Destination:=Worksheets("Sammelblatt").Range("A1") .Range("E7:L37").CopyPicture Appearance:=xlScreen, Format:=xlBitmap wks.Paste Destination:=Range("A32") wks.PrintPreview wks.Shapes(wks.Shapes.Count).Delete .Range("O7:Y37").CopyPicture Appearance:=xlScreen, Format:=xlBitmap wks.Paste Destination:=Range("A32") wks.PrintPreview wks.Shapes(wks.Shapes.Count).Delete .Range("AB7:AB37").CopyPicture Appearance:=xlScreen, Format:=xlBitmap wks.Paste Destination:=Range("A32") wks.PrintPreview End With wks.Shapes(wks.Shapes.Count).Delete wks.Shapes(wks.Shapes.Count).Delete End Sub