Problem mit Drucken bzw. Vorschau
17.11.2016 09:53:07
Peter
habe wieder einmal ein Problem mit Pagesetup.
Nachdem die Einrichtung mit Header und Footer extrem lange dauert habe ich mir überlegt, ob es möglich ist eine bestimmte Zeile zusätzlich in den Ausdruck ein-
zufügen - wiederholend auf jeder Seite.
Mein Makro lautet:
Sub Drucken_Vorschau()
Dim iRowL As Integer, iRow As Integer
Sheets("Name sortiert").Select
Call Zusagenliste_bestimmte_Spalten_ausblenden
iRowL = Cells(Rows.Count, 13).End(xlUp).Row 'vorher 5
For iRow = 1 To iRowL
If IsEmpty(Cells(iRow, 13)) Or Cells(iRow, 13).Value = 0 Then 'vorher 5
Rows(iRow).Hidden = True
End If
Next iRow
With ActiveSheet.PageSetup
.Zoom = 50
End With
ActiveSheet.PrintPreview
Rows.Hidden = False
Call Zusagenliste_alle_Spalten_einblenden
End Sub
Wo kann ich eine Zeile zusätzlich einfügen damit eine Wert von einer Zeile auf jeder Seite angezeigt wird?
Die anzuzeigende Zeile ist 503 der aktuellen Tabelle.
Besten Dank für Eure Hilfe.
Gruss Peter