Thema: Seriendruck

Home

Gruppe

Druck

Problem

Wie kann ich einen Seriendruck mit Adressdaten aus einer Adressdatei per VBA ablaufen lassen?

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub SerienDruck()
   Dim wks As Worksheet
   Dim iRow As Integer
   Set wks = Worksheets("Datenbank")
   iRow = 1
   Do Until IsEmpty(wks.Cells(iRow, 1))
      Range("Adresse").ClearContents
      Range("Firma1") = wks.Cells(iRow, 2)
      Range("Firma2") = wks.Cells(iRow, 3)
      Range("Partner") = wks.Cells(iRow, 4)
      Range("Strasse") = wks.Cells(iRow, 5)
      Range("Ort") = wks.Cells(iRow, 6) & " " & _
         wks.Cells(iRow, 7)
      ActiveSheet.PrintPreview
      iRow = iRow + 1
   Loop
End Sub

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

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
PDF eventuell Ausdruck sperren?	Druckprobleme....
SeriesCollection(1).Values Fehler 1004	Serienmail
Tabellenblätter Ausdruck gruppieren	Drucken mit VBA
Bestimmte Zeilen/ Spalten nicht mitdrucken	Diagramme DIN A3 drucken
Automatischen Andruck auf Standartdrucker erzeugen	ActiveChart.SeriesCollection
Druckerauswahl	Blätter autom. ein-/ausblenden + drucken
Kann bestimmten Drucker nicht auswählen	Drucker nicht vorhanden, dann Meldung
Arbeitsmappendruck	Abfrage ob Druckbereich zu groß für Seitenbreite
Druck PDF-Datei	Serien Zählen, kurz auswerten
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!	variablen Druckbereich definieren
Mit Makro Virtuelle Drucker (PDF) ansteuern	Standarddrucker festsetzen??
Wann zuletzt ausgedruckt	Excel druckt keine Bilder!
sql Ausdruck like	Excel Druckmakro - VBA Experten gesucht
CommandButton nicht mit ausdrucken	SeriesCollection.Name macht Probleme
Druckvorschau	Druckerdialog
mehrere Sheets farbig ausdrucken, weshalb ...	Chart SeriesCollection per VBA dynamisch ändern
Laufzeitfehler Nr. 9 bei Druckerauswahl	Tabelle drucken