In diesem Beispiel wird festgelegt, dass die dritte Zeile als Titelzeile und die ersten drei Spalten als Titelspalten gedruckt werden.
Worksheets("Sheet1").Activate ActiveSheet.PageSetup.PrintTitleRows = ActiveSheet.Rows(3).Address ActiveSheet.PageSetup.PrintTitleColumns = _ ActiveSheet.Columns("A:C").Address