恳请老师们帮忙修改一下代码

无忧鸟

     恳请老师们帮忙改一下代码，打印后数据直接保存到另一盘符文件夹的表格里，比如说我要打印后保存到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