|
- Sub 打印()
- With Sheet2
- r = .[a65536].End(3).Row + 1
- For i = 1 To 7
- .Cells(r, i) = Me.Shapes(i).TextFrame.Characters.Text
- If i > 1 Then
- Me.Shapes(i).TextFrame.Characters.Text = ""
- Else
- Me.Shapes(i).TextFrame.Characters.Text = Val(Me.Shapes(i).TextFrame.Characters.Text) + 1
- End If
- Next
- End With
- arr = Range("b1:b" & [b65536].End(3).Row)
- Range("b1:b" & [b65536].End(3).Row).ClearContents '清空内容
- ActiveSheet.PrintPreview
- [b1].Resize(UBound(arr), 1) = arr '恢复内容
- End Sub
- Sub 重新打印()
- Dim xrng As Range
- djh = InputBox("请输入要打印的单据号", , "20151130")
- With Sheet2
- Set xrng = .Range("a:a").Find(djh, lookat:=xlWhole)
- If xrng Is Nothing Then MsgBox "该单据号不存在": Exit Sub
- r = xrng.Row
- For i = 1 To 7
- Me.Shapes(i).TextFrame.Characters.Text = .Cells(r, i)
- Next
- End With
- arr = Range("b1:b" & [b65536].End(3).Row)
- Range("b1:b" & [b65536].End(3).Row).ClearContents
- ActiveSheet.PrintPreview
- [b1].Resize(UBound(arr), 1) = arr
- End Sub
复制代码 |
|