[已解决]看看这该怎样做附件上有说明

grf1973

如果有保护的问题，可以先去掉保护，运行完再加上。

1. Sub 打印()
   
2.     Sheet1.Unprotect
   
3.     arr = Range("b1:b" & [b65536].End(3).Row)
   
4.     Range("b1:b" & [b65536].End(3).Row).ClearContents  '清空内容
   
5.     ActiveSheet.PrintPreview
   
6.     [b1].Resize(UBound(arr), 1) = arr       '恢复内容
   
7.     With Sheet2
   
8.         r = .[a65536].End(3).Row + 1
   
9.         For i = 1 To 7
   
10.             .Cells(r, i) = Me.Shapes(i).TextFrame.Characters.Text
    
11.             If i > 1 Then
    
12.                 Me.Shapes(i).TextFrame.Characters.Text = ""
    
13.             Else
    
14.                 Me.Shapes(i).TextFrame.Characters.Text = Val(Me.Shapes(i).TextFrame.Characters.Text) + 1
    
15.             End If
    
16.         Next
    
17.     End With
    
18.     Sheet1.Protect
    
19. End Sub

复制代码