Excel中预览按钮怎么设置？如何实现预览功能？

Excel中预览按钮的设置与预览功能实现

在Excel中，预览按钮是一个非常有用的功能，它允许用户在打印或导出之前查看文档的外观。通过设置预览按钮，用户可以快速地检查格式、布局和内容，从而提高工作效率。以下是如何在Excel中设置预览按钮以及如何实现预览功能的具体步骤。

一、设置预览按钮

1. 打开Excel文件：

首先，打开你想要设置预览按钮的Excel文件。

2. 添加预览按钮：

在Excel的“开发工具”选项卡中（如果未显示，请先通过“文件”>“选项”>“自定义功能区”来勾选“开发工具”）。

点击“控件”组中的“按钮”（ActiveX控件）。

在工作表上拖动鼠标以创建一个按钮。

3. 设置按钮属性：

右键点击刚创建的按钮，选择“属性”。

在“属性”窗口中，找到“Caption”属性，并将其值设置为“预览”或你想要的任何文本。

确认设置后，关闭“属性”窗口。

二、实现预览功能

1. 编写宏代码：

在“开发工具”选项卡中，点击“Visual Basic”以打开VBA编辑器。

在VBA编辑器中，插入一个新的模块（右键点击VBAProject，选择“插入”>“模块”）。

在新模块中，输入以下宏代码：

```vba

Sub PreviewButton_Click()

With ActiveSheet.PageSetup

.PrintArea = ""

.PrintTitleRows = ""

.PrintTitleColumns = ""

.LeftMargin = Application inchesToPoints(0.25)

.RightMargin = Application inchesToPoints(0.25)

.TopMargin = Application inchesToPoints(0.25)

.BottomMargin = Application inchesToPoints(0.25)

.Header = ""

.Footer = ""

.PrintHeadings = xlYes

.PrintGridlines = xlYes

.PrintQuality = 600

.CenterHorizontally = xlYes

.CenterVertically = xlYes

.BlackAndWhite = xlYes

.DraftQuality = xlYes

.Zoom = 100

.Order = xlDownThenOver

.Orientation = xlPortrait

.PaperSize = xlPaperLetter

.FirstPageNumber = xlAutomatic

.EndPageNumber = xlAutomatic

.NumberPages = xlAutomatic

.IncludeChangeLog = False

.IncludeDraftPrintAreas = False

.IncludePageMargins = True

.IncludeCenterHeader = False

.IncludeCenterFooter = False

.IncludeSheetTabs = True

.IncludeSheetProtection = False

.IncludeObjects = xlPrintObjects

.IncludeObjectsWithHidden = True

.ShowPageBreaks = False

.PrintWhat = xlPrintActiveSheet

.EvenPagesOnly = False

.OddPagesOnly = False

.PrintAreas = ""

.PrintRange = ""

.FromTo = Array(1, 1)

.To = Array(1, 1)

.PageBreaks = False

.PrintDate = False

.PrintComments = xlPrintNoComments

.ValidPrinterInfo = True

.PrintFileName = ""

.PageOrder = xlPortrait

.PrintHeadings = xlYes

.PrintGridlines = xlYes

.PrintErrors = xlPrintErrorsAsErrors

.PrintRange = ""

.From = Array(1, 1)

.To = Array(1, 1)

.IncludeLabels = True

.DontShowPageBreakPreview = False

.CenterHorizontally = xlYes

.CenterVertically = xlYes

.PrintInfo = xlPrintAll

.LeftMargin = Application inchesToPoints(0.25)

.RightMargin = Application inchesToPoints(0.25)

.TopMargin = Application inchesToPoints(0.25)

.BottomMargin = Application inchesToPoints(0.25)

.Header = ""

.Footer = ""

.PrintTitleRows = ""

.PrintTitleColumns = ""

.PrintArea = ""

.PrintRange = ""

.From = Array(1, 1)

.To = Array(1, 1)

.PrintWhat = xlPrintActiveSheet

.EvenPagesOnly = False

.OddPagesOnly = False

.PrintAreas = ""

.DontShowPageBreakPreview = False

.PrintComments = xlPrintNoComments

.ValidPrinterInfo = True

.PrintFileName = ""

.PageOrder = xlPortrait

.PrintHeadings = xlYes

.PrintGridlines = xlYes

.PrintErrors = xlPrintErrorsAsErrors

.PrintRange = ""

.From = Array(1, 1)

.To = Array(1, 1)

.IncludeLabels = True

.DontShowPageBreakPreview = False

.CenterHorizontally = xlYes

.CenterVertically = xlYes

.PrintInfo = xlPrintAll

.LeftMargin = Application inchesToPoints(0.25)

.RightMargin = Application inchesToPoints(0.25)

.TopMargin = Application inchesToPoints(0.25)

.BottomMargin = Application inchesToPoints(0.25)

.Header = ""

.Footer = ""

.PrintTitleRows = ""

.PrintTitleColumns = ""

.PrintArea = ""

.PrintRange = ""

.From = Array(1, 1)

.To = Array(1, 1)

.PrintWhat = xlPrintActiveSheet

.EvenPagesOnly = False

.OddPagesOnly = False

.PrintAreas = ""

.DontShowPageBreakPreview = False

.PrintComments = xlPrintNoComments

.ValidPrinterInfo = True

.PrintFileName = ""

.PageOrder = xlPortrait

.PrintHeadings = xlYes

.PrintGridlines = xlYes

.PrintErrors = xlPrintErrorsAsErrors

.PrintRange = ""

.From = Array(1, 1)

.To = Array(1, 1)

.IncludeLabels = True

.DontShowPageBreakPreview = False

.CenterHorizontally = xlYes

.CenterVertically = xlYes

.PrintInfo = xlPrintAll

.LeftMargin = Application inchesToPoints(0.25)

.RightMargin = Application inchesToPoints(0.25)

.TopMargin = Application inchesToPoints(0.25)

.BottomMargin = Application inchesToPoints(0.25)

.Header = ""

.Footer = ""

.PrintTitleRows = ""

.PrintTitleColumns = ""

.PrintArea = ""

.PrintRange = ""

.From = Array(1, 1)

.To = Array(1, 1)

.PrintWhat = xlPrintActiveSheet

.EvenPagesOnly = False

.OddPagesOnly = False

.PrintAreas = ""

.DontShowPageBreakPreview = False

.PrintComments = xlPrintNoComments

.ValidPrinterInfo = True

.PrintFileName = ""

.PageOrder = xlPortrait

.PrintHeadings = xlYes

.PrintGridlines = xlYes

.PrintErrors = xlPrintErrorsAsErrors

.PrintRange = ""

.From = Array(1, 1)

.To = Array(1, 1)

.IncludeLabels = True

.DontShowPageBreakPreview = False

.CenterHorizontally = xlYes

.CenterVertically = xlYes

.PrintInfo = xlPrintAll

.LeftMargin = Application inchesToPoints(0.25)

.RightMargin = Application inchesToPoints(0.25)

.TopMargin = Application inchesToPoints(0.25)

.BottomMargin = Application inchesToPoints(0.25)

.Header = ""

.Footer = ""

.PrintTitleRows = ""

.PrintTitleColumns = ""

.PrintArea = ""

.PrintRange = ""

.From = Array(1, 1)

.To = Array(1, 1)

.PrintWhat = xlPrintActiveSheet

.EvenPagesOnly = False

.OddPagesOnly = False

.PrintAreas = ""

.DontShowPageBreakPreview = False

.PrintComments = xlPrintNoComments

.ValidPrinterInfo = True

.PrintFileName = ""

.PageOrder = xlPortrait

.PrintHeadings = xlYes

.PrintGridlines = xlYes

.PrintErrors = xlPrintErrorsAsErrors

.PrintRange = ""

.From = Array(1, 1)

.To = Array(1, 1)

.IncludeLabels = True

.DontShowPageBreakPreview = False

.CenterHorizontally = xlYes

.CenterVertically = xlYes

.PrintInfo = xlPrintAll

.LeftMargin = Application inchesToPoints(0.25)

.RightMargin = Application inchesToPoints(0.25)

.TopMargin = Application inchesToPoints(0.25)

.BottomMargin = Application inchesToPoints(0.25)

.Header = ""

.Footer = ""

.PrintTitleRows = ""

.PrintTitleColumns = ""

.PrintArea = ""

.PrintRange = ""

.From = Array(1, 1)

.To = Array(1, 1)

.PrintWhat = xlPrintActiveSheet

.EvenPagesOnly = False

.OddPagesOnly = False

.PrintAreas = ""

.DontShowPageBreakPreview = False

.PrintComments = xlPrintNoComments

.ValidPrinterInfo = True

.PrintFileName = ""

.PageOrder = xlPortrait

.PrintHeadings = xlYes

.PrintGridlines = xlYes

.PrintErrors = xlPrintErrorsAsErrors

.PrintRange = ""

.From = Array(1, 1)

.To = Array(1, 1)

.IncludeLabels = True

.DontShowPageBreakPreview = False

.CenterHorizontally = xlYes

.CenterVertically = xlYes

.PrintInfo = xlPrintAll

.LeftMargin = Application inchesToPoints(0.25)

.RightMargin = Application inchesToPoints(0.25)

.TopMargin = Application inchesToPoints(0.25)

.BottomMargin = Application inchesToPoints(0.25)

.Header = ""

.Footer = ""

.PrintTitleRows = ""

.PrintTitleColumns = ""

.PrintArea = ""

.PrintRange = ""

.From = Array(1, 1)

.To = Array(1, 1)

.PrintWhat = xlPrintActiveSheet

.EvenPagesOnly = False

.OddPagesOnly = False

.PrintAreas = ""

.DontShowPageBreakPreview = False

.PrintComments = xlPrintNoComments

.ValidPrinterInfo = True

.PrintFileName = ""

.PageOrder = xlPortrait

.PrintHeadings = xlYes

.PrintGridlines = xlYes

.PrintErrors = xlPrintErrorsAsErrors

.PrintRange = ""

.From = Array(1, 1)

.To = Array(1, 1)

.IncludeLabels = True

.DontShowPageBreakPreview = False

.CenterHorizontally = xlYes

.CenterVertically = xlYes

.PrintInfo = xlPrintAll

.LeftMargin = Application inchesToPoints(0.25)

.RightMargin = Application inchesToPoints(0.25)

.TopMargin = Application inchesToPoints(0.25)

.BottomMargin = Application inchesToPoints(0.25)

.Header = ""

.Footer = ""

.PrintTitleRows = ""

.PrintTitleColumns = ""

.PrintArea = ""

.PrintRange = ""

.From = Array(1, 1)

.To = Array(1, 1)

.PrintWhat = xlPrintActiveSheet

.EvenPagesOnly = False

.OddPagesOnly = False

.PrintAreas = ""

.DontShowPageBreakPreview = False

.PrintComments = xlPrintNoComments

.ValidPrinterInfo = True

.PrintFileName = ""

.PageOrder = xlPortrait

.PrintHeadings = xlYes

.PrintGridlines = xlYes

.PrintErrors = xlPrintErrorsAsErrors

.PrintRange = ""

.From = Array(1, 1)

.To = Array(1, 1)

.IncludeLabels = True

.DontShowPageBreakPreview = False

.CenterHorizontally = xlYes

.CenterVertically = xlYes

.PrintInfo = xlPrintAll

.LeftMargin = Application inchesToPoints(0.25)

.RightMargin = Application inchesToPoints(0.25)

.TopMargin = Application inchesToPoints(0.25)

.BottomMargin = Application inchesToPoints(0.25)

.Header = ""

.Footer = ""

.PrintTitleRows = ""

.PrintTitleColumns = ""

.PrintArea = ""

.PrintRange = ""

.From = Array(1, 1)

.To = Array(1, 1)

.PrintWhat = xlPrintActiveSheet

.EvenPagesOnly = False

.OddPagesOnly = False

.PrintAreas = ""

.DontShowPageBreakPreview = False

.PrintComments = xlPrintNoComments

.ValidPrinterInfo = True

.PrintFileName = ""

.PageOrder = xlPortrait

.PrintHeadings = xlYes

.PrintGridlines = xlYes

.PrintErrors = xlPrintErrorsAsErrors

.PrintRange = ""

.From = Array(1, 1)

.To = Array(1, 1)

.IncludeLabels = True

.DontShowPageBreakPreview = False

.CenterHorizontally = xlYes

.CenterVertically = xlYes

.PrintInfo = xlPrintAll

.LeftMargin = Application inchesToPoints(0.25)

.RightMargin = Application inchesToPoints(0.25)

.TopMargin = Application inchesToPoints(0.25)

.BottomMargin = Application inchesToPoints(0.25)

.Header = ""

.Footer = ""

.PrintTitleRows = ""

.PrintTitleColumns = ""

.PrintArea = ""

.PrintRange = ""

.From = Array(1, 1)

.To = Array(1, 1)

.PrintWhat = xlPrintActiveSheet

.EvenPagesOnly = False

.OddPagesOnly = False

.PrintAreas = ""

.DontShowPageBreakPreview = False

.PrintComments = xlPrintNoComments

.ValidPrinterInfo = True

.PrintFileName = ""

.PageOrder = xlPortrait

.PrintHeadings = xlYes

.PrintGridlines = xlYes

.PrintErrors = xlPrintErrorsAsErrors

.PrintRange = ""

.From = Array(1, 1)

.To = Array(1, 1)

.IncludeLabels = True

.DontShowPageBreakPreview = False

.CenterHorizontally = xlYes

.CenterVertically = xlYes

.PrintInfo = xlPrintAll

.LeftMargin = Application inchesToPoints(0.25)

.RightMargin = Application inchesToPoints(0.25)

.TopMargin = Application inchesToPoints(0.25)

.BottomMargin = Application inchesToPoints(0.25)

.Header = ""

.Footer = ""

.PrintTitleRows = ""

.PrintTitleColumns = ""

.PrintArea = ""

.PrintRange = ""

.From = Array(1, 1)

.To = Array(1, 1)

.PrintWhat = xlPrintActiveSheet

.EvenPagesOnly = False

.OddPagesOnly = False

.PrintAreas = ""

.DontShowPageBreakPreview = False

.PrintComments = xlPrintNoComments

.ValidPrinterInfo = True

.PrintFileName = ""

.PageOrder = xlPortrait

.PrintHeadings = xlYes

.PrintGridlines = xlYes

.PrintErrors = xlPrintErrorsAsErrors

.PrintRange = ""

.From = Array(1, 1)

.To = Array(1, 1)

.IncludeLabels = True

.DontShowPageBreakPreview = False

.CenterHorizontally = xlYes

.CenterVertically = xlYes

.PrintInfo = xlPrintAll

.LeftMargin = Application inchesToPoints(0.25)

.RightMargin = Application inchesToPoints(0.25)

.TopMargin = Application inchesToPoints(0.25)

.BottomMargin = Application inchesToPoints(0.25)

.Header = ""

.Footer = ""

.PrintTitleRows = ""

.PrintTitleColumns = ""

.PrintArea = ""

.PrintRange = ""

.From = Array(1, 1)

.To = Array(1, 1)

.PrintWhat = xlPrintActiveSheet

.EvenPagesOnly = False

.OddPagesOnly = False

.PrintAreas = ""

.DontShowPageBreakPreview = False

.PrintComments = xlPrintNoComments

.ValidPrinterInfo = True

.PrintFileName = ""

.PageOrder = xlPortrait

.PrintHeadings = xlYes

.PrintGridlines = xlYes

.PrintErrors = xlPrintErrorsAsErrors

.PrintRange = ""

.From = Array(1, 1)

.To =