Page 210 - Microsoft Office Excel 2003 Programming Inside Out

Part 3: The Excel Object Model
Microsoft Office Excel 2003 Programming Inside Out

& "!Print_Area" Then
ActiveSheet.Names(intCounter).Delete
intCounter = ActiveSheet.Names.count
ElseIf ActiveSheet.Names(intCounter).Name = ActiveSheet.Name _
& "!Print_Titles" Then
ActiveSheet.Names(intCounter).Delete
intCounter = ActiveSheet.Names.count
End If
intCounter = intCounter - 1
Wend

'Set print area
ActiveWorkbook.Names.Add Name:=ActiveSheet.Name & _
"!Print_Area", RefersTo:=strRange
'Set titles if needed
If vbYes Then
Chapter 8
ActiveSheet.PageSetup.PrintTitleColumns = _
ActiveSheet.Columns("B:C").Address
ActiveSheet.PageSetup.PrintTitleRows = _
ActiveSheet.Rows("5:5").Address
End If
'Print worksheet
ActiveWorkbook.PrintPreview
End Sub

184