HERBERS Excel-Forum - die Beispiele

Thema: Textreihe auf mehrere Spalten mit fester Seitenlänge verteilen

Home

Gruppe

Druck

Problem

Wie kann ich eine feste Anzahl von Zeilen in einer Spalte auf mehrere Spalten mit einer festgelegten Seitenlänge verteilen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain

Sub TextInSpalten()
   Dim rng As Range
   Dim iRow As Integer, iCountR As Integer, iCol As Integer
   Application.ScreenUpdating = False
   Set rng = Range("A1").CurrentRegion
   iCountR = 55
   Workbooks.Add
   For iRow = 1 To rng.Rows.Count Step iCountR
      iCol = iCol + 1
      rng.Range(rng.Cells(iRow), _
         rng.Cells(iRow + iCountR - 1)).Copy Cells(1, iCol)
   Next iRow
   ActiveSheet.PrintPreview
   ActiveWorkbook.Close savechanges:=False
   Application.ScreenUpdating = True
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