Makro erweiterung
31.05.2015 15:34:49
Thomas
ich benutze seid einiger Zeit das unten- stehende Makro zur Serienbrief- Erstellung.
Kann mir jemand dies so erweitern das ich mir vor jedem Druck den Drucker aussuchen kann?
Liebe Grüsse Thomas
Sub Seriendruckohnevorschau()
On Error Resume Next
Dim Serientabelle As Worksheet
Dim Datentabelle As Worksheet
Dim Datenbereich As String
Dim Dbereich As Range
Dim Sbereich As Range
Dim Anzahl As Long
Dim Quellzelle As Range, Zielzelle As Range
Dim Datenname As String
Dim Serienname As String
Application.ScreenUpdating = False
'Hier legen Sie Ihre Einstellungen fest
'Alle Variablen definieren
Datenname = "Datentabelle"
Serienname = "Serientabelle"
Datenbereich = "gelbendrucken" 'der Name druckbereich ist im namensmanager definiert bereich _
wird in zelle a1 alt angegeben.
Serienbereich = "d26,e27,i28,g29,g32,f32,b35,b39,b44,g33,f33"
'Die folgenden 4 Zeilen müssen Sie anpassen
Set Serientabelle = ActiveWorkbook.Worksheets(Serienname)
Set Datentabelle = ActiveWorkbook.Worksheets(Datenname)
Set Dbereich = Datentabelle.Range(Datenbereich)
Set Sbereich = Serientabelle.Range(Serienbereich)
'Tabellen adressieren
For Anzahl = 1 To Dbereich.Rows.Count
Spalte = 1
'Schleife starten
For Each Zielzelle In Sbereich
Set Quellzelle = Dbereich.Cells(Anzahl, Spalte)
Spalte = Spalte + 1
'Alle variablen Zellen pro Datensatz durchlaufen
Zielzelle.Formula = Quellzelle.Value
Next Zielzelle
'Daten aus Datensatz in Serientabelle übernehmen
Serientabelle.PrintOut
'Serientabelle.PrintPreview zum ansehen PrintOut zum drucken PrintPreview
Next Anzahl
'Tabelle drucken
Application.ScreenUpdating = True
A = MsgBox("Es wurden " & CStr(Anzahl - 1) & " Tabellen ausgedruckt.", vbOKOnly, "Druckbericht") _
On Error GoTo 0
End Sub