Makro: Zellenwert ändern und dann Drucken

[RPP63]

Da sich unser TE mit den vielen Smilies nicht mehr meldet, will ich für die Mitlesenden zumindest mal eine mögliche Lösung vorstellen.
Filial-Nr. in Tabelle2!A2:An (unbekannte Anzahl, lückenlos ab A2)
Verweiszelle (auf die die übrigen Kundendaten per SVERWEIS zugreifen) in Tabelle1!B3

Code:

Sub Ausdruck()
Dim i&
Dim Filialnr As Range
Set Filialnr = Range(Tabelle2.Range("A2"), Tabelle2.Range("A2").End(xlDown))
For i = 1 To Filialnr.Count
  With Tabelle1
    .Range("B3").Value = Filialnr.Cells(i)
    .PrintPreview 'zum testen
    '.PrintOut 'zum tatsächlichen Ausdruck
  End With
Next
End Sub