Gruppe
Druck
Bereich
Seite
Thema
Druckdaten auf Druckblatt sammeln
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