Gruppe
Druck
Problem
Wie kann ich in XL8 Bereiche aus mehreren Arbeitsblättern auf eine Druckseite zusammenfassen?
StandardModule: basMain
Sub Foto()
Dim iWks As Integer, iRow As Integer
iRow = 1
For iWks = 3 To 5
Worksheets(iWks).Range("A1:D7").CopyPicture _
Appearance:=xlScreen, _
Format:=xlBitmap
Worksheets("Sammelblatt").Paste _
Destination:=Worksheets("Sammelblatt").Cells(iRow, 1)
ActiveSheet.Shapes(iWks - 1).Select
Selection.Formula = Worksheets(iWks).Name & "!A1:D7"
iRow = iRow + 8
Next iWks
Range("A1").Select
ActiveSheet.PrintPreview
End Sub