[已解决]数据自动导入明细表里边

园丁

如何设置只要点打印后数据自动导入到开票明细里面或则设置一个打印按钮，点击此按钮后即打印票据又能自动把数据导入到开票明细里面。

最佳答案

月排行榜 / 总排行榜

excel助手

2016-1-9 19:20

Sub 资金往来票据_Button2_Click()
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Dim c
With Sheet2
For i = 6 To 8
If Sheet1.Cells(i, 1) <> "" Then
c = .Cells(65536, 1).End(xlUp).Row + 1
.Cells(c, 1) = Sheet1.Range("c10")
.Cells(c, 2) = Sheet1.Range("k4") & "-" & Sheet1.Range("m4") & "-" & Sheet1.Range("o4")
.Cells(c, 4) = Sheet1.Cells(i, 1)
.Cells(c, 5) = Sheet1.Cells(i, 6)
.Cells(c, 6) = Sheet1.Cells(i, 10)
.Cells(c, 8) = Sheet1.Range("g10")
.Cells(c, 9) = Sheet1.Range("l10")
End If
Next i
End With
End Sub

跳转到最佳答案楼层

excel助手

Sub 资金往来票据_Button2_Click()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
Dim c
With Sheet2
For i = 6 To 8
If Sheet1.Cells(i, 1) <> "" Then
c = .Cells(65536, 1).End(xlUp).Row + 1
.Cells(c, 1) = Sheet1.Range("c10")
.Cells(c, 2) = Sheet1.Range("k4") & "-" & Sheet1.Range("m4") & "-" & Sheet1.Range("o4")
.Cells(c, 4) = Sheet1.Cells(i, 1)
.Cells(c, 5) = Sheet1.Cells(i, 6)
.Cells(c, 6) = Sheet1.Cells(i, 10)
.Cells(c, 8) = Sheet1.Range("g10")
.Cells(c, 9) = Sheet1.Range("l10")
End If
Next i
End With
End Sub 湖北省行政事业单位资金往来结算票据.zip (16.14 KB, 下载次数: 13)

2016-1-8 14:02 上传

点击文件名下载附件

园丁

excel助手 发表于 2016-1-8 14:02
Sub 资金往来票据_Button2_Click()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
...

显示错误提示：IgnorePrintAreas:蓝色显示不知道什么意思？

excel助手

Sub 资金往来票据_Button2_Click()
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Dim c
With Sheet2
For i = 6 To 8
If Sheet1.Cells(i, 1) <> "" Then
c = .Cells(65536, 1).End(xlUp).Row + 1
.Cells(c, 1) = Sheet1.Range("c10")
.Cells(c, 2) = Sheet1.Range("k4") & "-" & Sheet1.Range("m4") & "-" & Sheet1.Range("o4")
.Cells(c, 4) = Sheet1.Cells(i, 1)
.Cells(c, 5) = Sheet1.Cells(i, 6)
.Cells(c, 6) = Sheet1.Cells(i, 10)
.Cells(c, 8) = Sheet1.Range("g10")
.Cells(c, 9) = Sheet1.Range("l10")
End If
Next i
End With
End Sub