|
'***************************************************************
If hPages >= 1000 Then
Max = Max + 1
End If
If Left(Sheet5.Cells(I + 1, 1), 18) <> P And I + 1 <= c Then
p2 = Right(Sheet5.Cells(I, 1), 3)
Sheet2.Cells(2, 5) = "档案号:" & P & "(" & p1 & "-" & p2 & ")"
'Sheet2.PrintOut From:=1, To:=1
Sheet2.[A1].Resize(28, 6).Copy Sheets(Max).Cells(k, 1)
Sheets(Max).Cells(k, 1).RowHeight = 60.75
Sheets(Max).Cells(k + 1, 1).RowHeight = 20.25
Sheets(Max).Cells(k + 2, 25).RowHeight = 24
k = k + 28
Sheets(Max).Cells(k, 1).PageBreak = xlPageBreakManual
cs = 0
co = 1
P = Left(Sheet5.Cells(I + 1, 1), 18)
p1 = Right(Sheet5.Cells(I + 1, 1), 3)
Sheet2.Cells(4, 2).Resize(28, 6).ClearContents
End If
|
|