各位老师大侠们，晚上好，我看了说明书，将数据导出到Excel，我想将生成Excel表后（因为表格行数固定，且行数不多），我想生成Excel后，将生成的表格在下面复制一下，这样可以一张上面打印2个表单。

下面的语句我是在说明书的示例中，加入了一些Excel copy和Paste的语句，但发现运行时出错下图错误，请老师指教！！

Dim Book As New XLS.Book(ProjectPath & "Attachments\\A单.xls")

Dim fl As String = ReportPath & "A单.xls"

Book.Build()   \'生成细节区

\'------------------

Dim Worksheet As MSExcel.WorkSheet

Worksheet= book.Sheets(0)

Dim Rg1 As MSExcel.Range = Worksheet.Range("A1:F22")

rg1.Copy

Dim Rg2 As MSExcel.Range = Worksheet.Range("A24:F45")

rg2.Select

Worksheet.paste

\'------------------

Book.Save(fl)   \'保存工作簿

Dim Proc As New Process   \'打开工作簿

Proc.File = fl

Proc.Start()

大红袍老师，收到！明白了！ 感谢！！

根据大红袍老师的指点，搞定了！耶，非常感谢！！！！