Microsoft Excel

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

    

Beiträge aus dem Excel-Forum zu den Themen Druck und Seite