vielen dank
Sub Drucken()
'
' Drucken Makro
' Makro am 21.07.2002 von Uwe Noack aufgezeichnet
'
Dim Name As String
Name = ActiveWorkbook.Name
Workbooks(CStr(Name)).Activate
Name = ActiveSheet.Name
Worksheets(CStr(Name)).Activate
' Bestimmen, welches Arbeitsblatt ausgewählt wurde, um die unterschiedliche
' Ausgabe der Kopfzeilen zu steuern
If Name = "Firma" Then
ActiveSheet.PageSetup.PrintTitleRows = ActiveSheet.Rows("1").Address
ActiveSheet.PageSetup.PrintTitleColumns = ActiveSheet.Columns("A:G").Address
ElseIf Name = "Ansprechpartner" Then
ActiveSheet.PageSetup.PrintTitleRows = ActiveSheet.Rows("1:2").Address
ActiveSheet.PageSetup.PrintTitleColumns = ActiveSheet.Columns("A:K").Address
End If
' markierten Druckbereich festlegen
ActiveSheet.PageSetup.PrintArea = ActiveCell.CurrentRegion.Address
' Ausdruck gewählte Kopfzeilen und markierten Bereich
Selection.PrintOut Copies:=1, Collate:=True
End Sub