关于EXCEL奇偶页打印的问题，会多出一行！

服务部

Sub DoPrint() '定义需要打印的工作表 Dim PrintSheet As Worksheet '确定每页行数 Dim iEveryPageRows As Integer '确定尾行与首行之间的差值 Dim RowDiff As Integer Dim i As Integer '定义打印区域字符串变量 Dim strAreaAddress As String Set PrintSheet = Worksheets(1) If PrintSheet.HPageBreaks.Count = 0 Then MsgBox "该文档不需分页打印或没有可以打印的内容" Exit Sub End If iEveryPageRows = Range(PrintSheet.HPageBreaks(1).Location.Address).Row - 1 RowDiff = iEveryPageRows - 1 MsgBox "现在打印奇数页，请将纸张准备好！" '指定奇数页打印区域 For i = 1 To PrintSheet.HPageBreaks.Count Step 2 strAreaAddress = CStr(i * iEveryPageRows - RowDiff) & ":" & CStr(i * iEveryPageRows) With PrintSheet.PageSetup .PrintArea = strAreaAddress .RightFooter = CStr(i) End With MsgBox "现在正在打印第" & i & "页" PrintSheet.PrintOut ' Debug.Print PrintSheet.PageSetup.PrintArea Next i MsgBox "现在打印偶数页，请将纸张准备好！" PrintSheet.PageSetup.PrintArea = "" '指定偶数页打印区域 For i = 2 To PrintSheet.HPageBreaks.Count + 1 Step 2 strAreaAddress = CStr(i * iEveryPageRows - RowDiff) & ":" & CStr(i * iEveryPageRows) With PrintSheet.PageSetup .PrintArea = strAreaAddress .RightFooter = CStr(i) End With MsgBox "现在正在打印第" & i & "页" PrintSheet.PrintOut ' Debug.Print PrintSheet.PageSetup.PrintArea Next i With PrintSheet.PageSetup .PrintArea = "" .RightFooter = "" End With End Sub 我用这个代码来打印，固定了顶端标题行，打印出来的每页都会多出一行，用另一张纸找印，是什么原因？？？高手帮下忙，很急。

ghwhk

贴子已过多年，无人接贴，今日偶见，拙笔一下
修改如下：
iEveryPageRows = Range(PrintSheet.HPageBreaks(1).Location.Address).Row - 2
strAreaAddress = CStr(i * iEveryPageRows + 1 - RowDiff) & ":" & CStr(i * iEveryPageRows + 1)