Cant set pagebreaks in access 2003

[vba317]

I am trying to set pagebreaks in access to create an excel spreadsheet I keep on getting a error 438. Help would be appreciated.

With goXL.ActiveSheet.PageSetup
        .LeftMargin = goXL.Application.InchesToPoints(0.25)
        .RightMargin = goXL.Application.InchesToPoints(0.25)
        .TopMargin = goXL.Application.InchesToPoints(0.5)
        .BottomMargin = goXL.Application.InchesToPoints(0.5)
        .HeaderMargin = goXL.Application.InchesToPoints(0.25)
        .FooterMargin = goXL.Application.InchesToPoints(0.25)
        .LeftHeader = "Anesthetic Solutions, P.C."
        .LeftFooter = Format(dtmDate, "dddd, mmmm dd, yyyy")
        .RightFooter = "Pages " & "&P"
        .Orientation = xlLandscape
        .FitToPagesWide = 1
        .PrintTitleRows = ("A1" & ":" & "A2")
        .PrintArea = "A1:P" & iEndRow
            For iPageBreak = 27 To iEndRow
          [Red] PageBreak = goXL.Application.ActiveSheet = iPageBreak[/Red]
                iPageBreak = iPageBreak + 27
            Next iPageBreak
    End With

 

[SkipVought]

Hi,

PageBreak is an Excel object and needs an appropriate reference in your code to an Excel sheet and range.

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}