Question

vb调用excel模板打印,一张打印不完,第二页第三页等还继续调用该模板.

vb调用excel模板进行打印，由于数据较多，一页打印不完，打印第二页第三页......每页都运用该模板的样式（抬头、标题等和第一页一样）
请教前辈怎么实现！~

Answer 1

看一下每页不同内容一共是多少行多少列，比如，你这个是15列，假设每页打印25个人的工资，那么定义一个数组 dim lsA(1 to 25,1 to 15) as string,每打一页，先读取25个人的信息到这个数组lsA,再给电子表格区域"A4:O28"赋值，再打印就可以了。以下代码是一个给表格赋值的例子。
Dim yEx As Excel.Application
Dim dA(1 To 3, 1 To 3) As String
dA(1, 1) = "a11"
dA(1, 2) = "a12"
dA(1, 3) = "a13"
dA(2, 1) = "a21"
dA(3, 3) = "a33"
Set yEx = New Excel.Application
yEx.Workbooks.Add
MsgBox yEx.Sheets(1).Name
yEx.Sheets("Sheet1").Range("A4:C6") = dA
yEx.Visib
Set yEx = Nothingle = True
yEx.Workbooks.Close