恳请老师们帮忙修改一下代码，急用，在线等

无忧鸟

恳请老师们帮忙改一下代码，打印后数据直接保存到另一盘符文件夹的表格里，比如说我要打印后保存到F盘的资料文件夹的记录.sxl表格里，谢谢啦！
Private Sub CommandButton1_Click()
'打印票据
Sheets("票据打印").Select
ActiveWindow.SelectedSheets.PrintOut '
'保存数据
With Sheets("记录")
X = .Range("a65536").End(xlUp).Row + 1 '
For i = 0 To 0 '
.Cells(X + i, 32) = [i16] '
.Cells(X + i, 33) = [i17] '
.Cells(X + i, 34) = [i18] '
.Cells(X + i, 35) = [i19] '
.Cells(X + i, 36) = [i20] '
.Cells(X + i, 37) = [b23] '
'最后让票据的号码自动加1
s = Range("i5") '收据上的当前序号在I4单元格
Range("i5") = Left(s, 4) & Right("000000" & Right(s, 4) + 1, 4) '
Next
End With

liulang0808

建议楼主上传附件吧
Sheets("票据打印").copy会生成新的文件，然后可以直接另存到指定位置，供参考

wj2368

Private Sub CommandButton1_Click()
'打印票据
Sheets("票据打印").Select
ActiveWindow.SelectedSheets.PrintOut '
'保存数据
With Sheets("记录")
X = .Range("a65536").End(xlUp).Row + 1 '
.Cells(X + i, 32) = [i16] '
.Cells(X + i, 33) = [i17] '
.Cells(X + i, 34) = [i18] '
.Cells(X + i, 35) = [i19] '
.Cells(X + i, 36) = [i20] '
.Cells(X + i, 37) = [b23] '
'最后让票据的号码自动加1
s = Range("i5") '收据上的当前序号在I4单元格
Range("i5") = Left(s, 4) & Right("000000" & Right(s, 4) + 1, 4) '
End With
循环干吗呢？

无忧鸟

wj2368 发表于 2019-12-24 18:56
Private Sub CommandButton1_Click()
'打印票据
Sheets("票据打印").Select

没有循环啊，打印后不断增加数据的，打印后保存在同一个工作薄里的，现在想把它直接打印后保存到其它盘符里，需要加一段代码，望能相助，谢谢