Gruppe
Druck
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.
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