VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Druckdaten auf Druckblatt sammeln

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

    


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