Using excel PrintTitleRows not being saved

[John Wilhelm]

I'm using VB.net writing out to an Excel file. every thing works fine BUT
the following code does not saved the "PrintTitleRows " or
"PrintTitleColumns " information
to the file when the worksheet is display. I can set the fields when the
sheet is displayed in excel but I can't set the data in VB. Any Help??

Thank John
With excelWorksheet.PageSetup

..PrintTitleRows = "$1:$4"

..PrintTitleColumns = "$A:$Q"

End With

excelWorksheet.PageSetup.PrintArea = ""

With excelWorksheet.PageSetup

..LeftHeader = ""

..CenterHeader = ""

..RightHeader = ""

..LeftFooter = ""

..CenterFooter = ""

..RightFooter = ""

..LeftMargin = excelWorksheet.Application.InchesToPoints(0.003472 22222222222)

..RightMargin =
excelWorksheet.Application.InchesToPoints(0.003472 22222222222)

..TopMargin = excelWorksheet.Application.InchesToPoints(0.003472 22222222222)

..BottomMargin =
excelWorksheet.Application.InchesToPoints(0.006944 44444444444)

..HeaderMargin = excelWorksheet.Application.InchesToPoints(0.5)

..FooterMargin = excelWorksheet.Application.InchesToPoints(0.5)

..PrintHeadings = False

..PrintGridlines = False

..PrintComments = Excel.XlPrintLocation.xlPrintNoComments

..PrintQuality = 600

..CenterHorizontally = False

..CenterVertically = False

..Orientation = Excel.XlPageOrientation.xlLandscape

..Draft = False

..PaperSize = Excel.XlPaperSize.xlPaperLetter

'.FirstPageNumber = xlAutomatic

..Order = Excel.XlOrder.xlDownThenOver

..BlackAndWhite = False

..Zoom = 100

..PrintErrors = Excel.XlPrintErrors.xlPrintErrorsDisplayed

End With