Public a As String, b As String, c As String, d As String, e As String, f As String, g As String '定义公共变量
Public
h
As
String
, i
As
String
, j
As
String
, k
As
String
, l
As
String
, m
As
String
, LastRow
As
Integer
Sub
按钮1_Click()
Sheets(
"sheet1"
).
Select
'选择Sheet1工作表
LastRow = Cells(Rows.Count, 1).
End
(xlUp).Row
'求出表格内容的最后一行行号
For
x = 2
To
LastRow
'从第二行的内容开始 到最后一行
a = Cells(x, 1)
'合同编号客户名称 将对应行的内容读入变量中
b = Cells(x, 2)
'合同编号 Cells(x,2)的意思是第x行第2列的单元格内容
c = Cells(x, 3)
'客户名称 a~m是变量，存放x行中各单元格的资料
d = Cells(x, 4)
'区域经理
e = Cells(x, 5)
'代理商
f = Cells(x, 6)
'函件单号
g = Cells(x, 7)
'是否回函
h = Cells(x, 8)
'合同总价
i = Cells(x, 9)
'到款金额
j = Cells(x, 10)
'合同余款
k = Cells(x, 11)
'截止开票金额
l = Cells(x, 12)
'开票金额
m = Cells(x, 13)
'求和项
Sheets(
"打印"
).
Select
'
Cells(1, 1).
Select
'
[J6] = a
'合同编号客户名称 将变量内容填入对应单元格的中
[J2] = b
'方括号中内容就是单元格名称，如[J2]就是J2单元格
[K2] = c ’这里仅作示范，请你根据变量的内容要填入打印表格中的什么地方你自行修改
[E3] = d
[C5] = e
[E5] = f
[F5] = g
[H5] = h
[J5] = i
[D7] = j
[E7] = k
[F7] = l
[G7] = m
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=
True
, IgnorePrintAreas:=
False
'打印指定范围内容，打印一份
Next
'处理下一行
End
Sub