Sub 打印()
'打印票据
Sheets("票据打印").Select
ActiveWindow.SelectedSheets.PrintOut '调用打印命令打印当前页
'保存数据
With Sheets("记录")
x = .Range("a1048576").End(xlUp).Row + 1 '取得“记录”表中最后一个空行的行号（即写入位置）
For i = 0 To 3 '商品信息分四行，为了简化代码，使用循环语句
.Cells(x + i, 1) = [b3] '客户
.Cells(x + i, 2) = [f3] '日期
.Cells(x + i, 3) = [i3] '单据编号
.Cells(x + i, 4) = Cells(i + 5, 1) '产品型号
.Cells(x + i, 5) = Cells(i + 5, 2) '物料名称
.Cells(x + i, 6) = Cells(i + 5, 3) '订单编号
.Cells(x + i, 7) = Cells(i + 5, 4) '单位
.Cells(x + i, 8) = Cells(i + 5, 5) '单重
.Cells(x + i, 9) = Cells(i + 5, 6) '净重
.Cells(x + i, 10) = Cells(i + 5, 7) '入库数量
.Cells(x + i, 11) = Cells(i + 5, 8) '颜色
.Cells(x + i, 12) = Cells(i + 5, 9) '备注
Next
End With
'清除数据（单据编号I3格与有公式的单元格不用清除）
'最后让票据的号码自动加1
s = Range("i3") '收据上的当前序号在i3单元格
Range("i3") = Left(s, 3) & Right("0000" & Right(s, 4) + 1, 4) '打印完毕后让序号加一（编号的左两位是字符，右四位是数字）
MsgBox "打印并保存完毕", , "提示"
End Sub

我要做的是将所打印的数据保存在另一个表格中，请大神指点

Sheets("打印").Select

不完全理解你的意思，打印数据不调用数据，没有看到你调用数据的连接，好像是调用 Excel 中的数据，但没有将 Excel 加载，怎么调用数据。
第二个图片是你保存的 Excel 吗？如果是很多列（就称列吧），第一个图片中没有。如果不是而是调用的  Excel ，那么没有数据，无法打印有数据的界面了。
请将工程打包发到这里，大家可以帮你解决。