HERBERS Excel-Forum - die Beispiele

Thema: Druckdaten auf Druckblatt sammeln

Home

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.

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

PDF Drucken VBA Generierung von Tabs per VBA + Sammeldruck
Akt. Datum und Uhrzeit am gedruckten Dokument UserForm im Querformat drucken
zoom auf Druckbereichsbreite anpassen Bilder in Registerblatt drucken
Regex für Filterung von Daten in html-seiten PDF eventuell Ausdruck sperren?
Druchbereiche auf eine Seite Seitenumbuch
Druckprobleme.... Text aus Zelle in Internet Seite
Skript funktioniert nur auf einer seite?!?! Tabellenblätter Ausdruck gruppieren
Drucken mit VBA Bestimmte Zeilen/ Spalten nicht mitdrucken
Diagramme DIN A3 drucken Automatischen Andruck auf Standartdrucker erzeugen
Seitennummerierung in Fußzeile Grösse Textbox vom Seitenrand abhängig machen
Druckerauswahl Excel links auf seite
Blätter autom. ein-/ausblenden + drucken Kann bestimmten Drucker nicht auswählen
Drucker nicht vorhanden, dann Meldung Arbeitsmappendruck
Button für Seite einrichten Abfrage ob Druckbereich zu groß für Seitenbreite
Druck PDF-Datei Fehler 1004 beim Druck einer PDF - mit Screenshot
Druckeinstellungen für mehrere Drucke übernehmen Grafik drucken
Mit Change() o. Calculate() Filtern und Drucken Druckparameter an neue Datei
Button zum Ausdrucken Druckparameter an Datei mitgeben
Makro für ereignisabh. Druck verschiedener Seiten Excel Seriendruck im PDF-Format
Per VBA drucken - Adobe PDF on ne0x Drucken, nur wenn Bedingung erfüllt ist!
Probleme beim Einfügen man. Seitenumbrüche (VBA) variablen Druckbereich definieren
Automatischer Seitenumbruch Mit Makro Virtuelle Drucker (PDF) ansteuern
Standarddrucker festsetzen?? Wann zuletzt ausgedruckt
Excel druckt keine Bilder! Datenfelden in Excel auf Seite schreiben.
sql Ausdruck like Excel Druckmakro - VBA Experten gesucht