Wiederholungszeilen auf einige Seiten beschränken

Mit diesem Makro können Wiederholungszeilen auf einige Seiten beschränkt werden. Standardmäßig werden bei Aktivierung dieser Funktion die Wiederholungszeilen auf allen vorhandenen Seiten ausgegeben.

 

Die Wiederholungszeilen die für  die Zeilen 1 und 2 festgelegt wurden, werden mit dem nachfolgenden Makro nur auf die Seite 1 und 2 gedruckt. Sollen andere Seiten mit Wiederholungszeilen gedruckt werden, so ist der Code entsprechend anzupassen. Ändern sie dazu die For-Next-Schleife entsprechend ab. 

 

Sub Wiederholungs_bedingt()
'** Wiederholungszeilen auf einige Seiten beschränken

Dim a%, b%
b = ExecuteExcel4Macro("Get.Document(50)")
 
If b = 1 Then Exit Sub
 
ActiveSheet.PageSetup.Order = xlDownThenOver
ActiveSheet.PageSetup.PrintTitleRows = "$1:$2"
 
For a = 1 To b
 
  If a > 3 Then
    ActiveSheet.PageSetup.PrintTitleRows = ""
  End If

  ActiveWindow.SelectedSheets.PrintOut _
  From:=a, To:=a, Copies:=1, Collate:=True
 
Next
 
End Sub

   

Excel-Inside auf FacebookExcel-Live News blogExcel-Inside RSS-FeedMail an Excel-InsideTwitter Account für Excel-InsideMail an Excel-Inside

Office Programmierung

Excel Auftragsprogrammierung

Access Auftragsprogrammierung

Word Auftragsprogrammierung

Outlook Auftragsprogrammierung

 

 

 

 




   
Office Schulungen VBA, Excel, Access
E-Book Formeln und Funktionen Excel 2013
Excel-Inside Newsletter abonnieren
   

Backlink  

ERROR: PAGE_URL belons not to given domain: 573001800