excel中打印后如何自动保存 有没有快捷键之类的？

Question

有没有什么快捷键或者软件能够在excel中打印后自动保存起来……我想在打印发票后内容能够自动保存，方便以后查询谢谢啦……

Answer 1

需在excel中添加一个键“打印并保存”，并编制宏代码。每次打印时按“打印并保存”键（不用菜单中的打印图标），会将指定 的内容保存到另一个工作表中。 必须要做一个代码才能实现，代码如下：Option Explicit

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim dtmSHRQ As Date
Dim myFolder As String
Dim curFolder As String
Dim curName As String
Dim strFullName As String
myFolder = "D:\"
dtmSHRQ = ActiveSheet.Range("H7").Value
curFolder = myFolder & Format$(dtmSHRQ, "YYYYMMDD")
If Len(Dir(curFolder, vbDirectory)) = 0 Then
MkDir curFolder
End If
curName = Me.Name
strFullName = curFolder & "\" & curName
If Len(Dir(strFullName, vbDirectory)) > 0 Then
If MsgBox("文件" & Chr$(34) & strFullName & Chr$(34) & "已经存在,是否替换?", vbQuestion + vbYesNo + vbDefaultButton2, "Rousoft Office") = vbYes Then
Application.DisplayAlerts = False
Me.SaveAs strFullName
Application.DisplayAlerts = True
End If
Else
Me.SaveAs strFullName
End If
End Sub这样定义后就会产生一个宏键（打印并保存），不过这需要一定的编程基础，

Answer 2

Excel快捷键之用于预览和打印文档
显示“打印”对话框：CTRL+P
在打印预览中时：
当放大显示时，在文档中移动：箭头键
当缩小显示时，在文档中每次滚动一页：PAGE UP
当缩小显示时，滚动到第一页：CTRL+上箭头键
当缩小显示时，滚动到最后一页：CTRL+下箭头键

页面设置--工作表。设置“打印区域”****设置“打印标题”：“顶端标题行”和“左端标题列”。这3个设置联合起来巧妙设置，不知能不能得到你需要的效果。

Answer 3

可以自己做个打印按钮，该按钮引用以下程序，它可以实现打印，并自动保存文件：
Sub Prt()
Set c= ActiveWorkbook '设定c为本文件
ActiveWindow.SelectedSheets.PrintOut Copies:=1 '打印本文件1份
c.Save '保存本文件
End Sub