主题：生成的PDF为什么不能换页

你excel模板那里，插入分页符试试

http://jingyan.baidu.com/article/f96699bbaed8cd894e3c1b8f.html

 请上传实例测试。

 请贴出密码

1、你加入分页符了吗？

2、纵向拷贝之前，你可以用代码插入分页符

Ws1.Rows(Ws1.UsedRange.Rows.Count+1).PageBreak = MSExcel.XlPageBreak.xlPageBreakManual

Dim year As String  = e.Form.Controls("所属年").Value
Dim moth As String  = e.Form.Controls("所属月").Value
If year = "" OrElse moth = "" Then
    Messagebox.show("请选择工资报表所属的年和月,如果需要查询全年工资,请点击历史工资表选项!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
e.Form.Controls("WebBrowser1").Visible = True
Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
wbr.AddRess = Nothing
Dim r As Row = Tables("工资报表_Table1").Current
Dim tmp As String = ProjectPath & "Attachments\工资清单.xls"
Dim tmp1 As String = ProjectPath & "Attachments\银行接口报表.xls"
Dim tmp2 As String = ProjectPath & "Attachments\工资签收单.xls"
Dim rpt1 As String = "d:/工资/"+(r("所属年份")) + (r("所属月份"))   +"01.xls"
Dim rpt2 As String = "d:/工资/"+(r("所属年份")) + (r("所属月份"))   +"无卡签收表.xls"
Dim pdf As String = "d:/工资/temp/"+(r("所属年份"))+ "年" + (r("所属月份"))  +"月工资报表.pdf"
Dim rpt As String = "d:/工资/"+(r("所属年份")) + (r("所属月份"))  +"工资清单.xls"

FileSys.CreateDirectory("d:/工资/temp")
If FileSys.FileExists(rpt) = False Then
    Dim Book As New XLS.Book(tmp)
    Book.Build()
    Book.Save(rpt) '保存为XLS文件
End If
If FileSys.FileExists(rpt2) = False Then
    Dim Book1 As New XLS.Book(tmp2)
    Book1.Build()
    Book1.Save(rpt2)'保存为XLS文件
End If
Dim App1 As New MSExcel.Application
Dim App2 As New MSExcel.Application
try
    Dim Wb1 As MSExcel.WorkBook = App1.WorkBooks.Open(rpt)
    Dim Wb2 As MSExcel.WorkBook = App2.WorkBooks.Open(rpt2)
    Dim Ws1 As MSExcel.WorkSheet = Wb1.WorkSheets(1) '指定要复制的工作表
    Dim Ws2 As MSExcel.WorkSheet = Wb2.WorkSheets(1)
   
    Ws2.UsedRange.Copy
    ws1.Select
    Dim count As Integer = Ws1.UsedRange.Rows.Count+1
    Ws1.Rows(count).PageBreak = MSExcel.XlPageBreak.xlPageBreakManual
    'ws1.Cells(1,Ws1.UsedRange.Columns.Count).Select '横向拷贝
    ws1.Cells(count,1).Select '纵向拷贝
    ws1.paste
    For i As Integer = count To Ws1.UsedRange.Rows.Count
        If ws1.cells(i,1).Text.Contains("本页合计") Then
            If i < Ws1.UsedRange.Rows.Count Then
                Ws1.Rows(i+1).PageBreak = MSExcel.XlPageBreak.xlPageBreakManual
            End If
        End If
    Next
    wb1.Save
    wb2.Save
   
    wb1.ExportAsFixedFormat(MSExcel.XlFixedFormatType.xlTypePDF, pdf, MsExcel.XlFixedFormatQuality.xlQualityStandard, True, False,  System.Reflection.Missing.Value,  System.Reflection.Missing.Value, False,  System.Reflection.Missing.Value)
    'app1.visible = True
   
    app1.quit
    app2.quit
catch ex As exception
    msgbox(ex.message)
    app1.quit
    app2.quit
End try
If FileSys.FileExists(rpt1) = False Then
    Dim Book2 As New XLS.Book(tmp1)
    Book2.Build()
    Book2.Save(rpt1)'保存为XLS文件
End If
wbr.AddRess = pdf