返回

Excel 2010也能实现Excel 2007打印预览效果

Excel技巧

各位Excel达人，大家好！

今天，我将开启一段精彩的探索之旅，揭秘如何让Excel 2010重现Excel 2007的打印预览效果。对于那些怀念旧版打印预览界面的小伙伴们来说，这个秘诀绝对会让你们欣喜若狂。

BackStage视图的秘密

Office 2010的打印预览功能被巧妙地整合到了BackStage视图的打印标签中。而令人惊喜的是，我们仍然可以通过VBA和用户表单，唤醒沉睡的Excel 2007风格打印预览。

VBA代码

以下是实现这一目标的VBA代码：

Sub Excel2007PrintPreview()
    Dim dlg As Office.FileDialog
    Dim filePath As String

    Set dlg = Application.FileDialog(msoFileDialogFilePicker)
    dlg.Title = "选择Excel 2007打印预览模板"
    dlg.Filters.Add "Excel 2007打印预览模板 (*.xltx)", "*.xltx"

    If dlg.Show = -1 Then
        filePath = dlg.SelectedItems(1)
        ThisWorkbook.AddIns.Add FileName:=filePath
        ActiveWorkbook.PrintPreview
    End If
End Sub

用户表单

接下来，我们需要创建一个用户表单，以便在BackStage视图中显示一个按钮，用于触发打印预览。

在用户表单编辑器中，添加一个命令按钮，并为其添加以下代码：

Private Sub CommandButton1_Click()
    Call Excel2007PrintPreview
End Sub

整合

最后，将用户表单添加到BackStage视图的打印标签中：

  1. 右键单击BackStage视图的打印标签。
  2. 选择"自定义功能区..."。
  3. 在"选择命令"下拉列表中选择"所有命令"。
  4. 找到"PrintPreviewEx"命令并将其添加到右窗格。
  5. 点击"保存"。

现在，当您在Excel 2010中打开打印标签时，您将看到一个"Excel 2007打印预览"按钮。点击它即可享受熟悉的Excel 2007风格打印预览体验。

各位，现在你们就可以让Excel 2010焕发Excel 2007的打印预览魅力。试一试吧，让怀旧之情在指尖流淌！