打印网页

本节内容可参考示例文件"CaseStudy\WebViewer\打印网页.Table"

尽管Foxtable提供了多种报表输出工具，但是即使是专业报表和PDFCreator，在呈现方面也无法和网页相比，所以WebViewer其实也是一个新的强大无比的报表输出工具。

WebViewer提供了以下打印方法用于打印网页或输出PDF：

ShowPrintUI

显示打印对话框,语法：

ShowPrintUI(DialogKind）

DialogKind参数可选，如果省略，则调用浏览器的打印预览对话框，如果设置为CoreWebView2PrintDialogKind.System，则调用系统的打印对话框。

例如使用浏览器的打印预览窗口：

Dim wv As WebViewer = e.Form.Controls("WebViewer1").WebViewer
 wv.CoreWebView2.ShowPrintUI()

使用系统打印对话框：

Dim wv As WebViewer = e.Form.Controls("WebViewer1").WebViewer
 wv.CoreWebView2.ShowPrintUI(CoreWebView2PrintDialogKind.System)

PrintAsync

用于以异步方式打印当前网页,语法：

PrintAsync(PrintSettings)

PrintSettings参数可选，CoreWebView2PrintSettings类型，用于设置打印选项，后面会用表格列出所有打印选项。

PrintAsync方法的返回值为CoreWebView2PrintStatus，用于判断是否打印成功，以及打印失败的原因。

例如：

''' Async
Dim wv As WebViewer = e.Form.Controls("WebViewer1").WebViewer
Dim settings = wv.CoreWebView2.Environment.CreatePrintSettings() '创建打印设置
' A4 纸英寸值 (210mm = 8.27英寸, 297mm = 11.69英寸)
settings.MediaSize = CoreWebView2PrintMediaSize.Custom
settings.PageWidth = 8.27
settings.PageHeight = 11.69
settings.Orientation = CoreWebView2PrintOrientation.Portrait
settings.ShouldPrintBackgrounds = True 
Dim printStatus = Await wv.CoreWebView2.PrintAsync(settings)
Dim statusMessage As String
Select Case printStatus
    Case CoreWebView2PrintStatus.Succeeded
        statusMessage = "打印成功"
    Case CoreWebView2PrintStatus.PrinterUnavailable
        statusMessage = "打印机不可用"
    Case Else
        statusMessage = "打印失败"
End Select
MessageBoxA.Show(statusMessage)

提醒：没有纸张类型的选择，所有的纸张都要自己换算成英寸单位后设置。

PrintToPdfAsync

用于以异步方式将网页打印为PDF,语法：

PrintToPdfAsync(FilePath,PrintSettings)

FilePath：      PDF文件路径和名称
PrintSettings： CoreWebView2PrintSettings类型，用于设置打印选项，后面会用表格列出所有打印选项。

返回值为逻辑型，打印成功返回True，否则返回False。

例如：

''' Async
Dim wv As WebViewer = e.Form.Controls("WebViewer1").WebViewer
Dim settings = wv.CoreWebView2.Environment.CreatePrintSettings()
' A4 纸英寸值 (210mm = 8.27英寸, 297mm = 11.69英寸)
settings.MediaSize = CoreWebView2PrintMediaSize.Custom
settings.PageWidth = 8.27
settings.PageHeight = 11.69
settings.ScaleFactor = 1.0 ' 100% 缩放
settings.Orientation = CoreWebView2PrintOrientation.Portrait
settings.ShouldPrintBackgrounds = True
Dim pdffile As String = ProjectPath & "\test.pdf"
Dim success = Await wv.CoreWebView2.PrintToPdfAsync(pdffile, settings)
If success Then
    MessageBoxA.Show("PDF保存成功: " & pdffile)
Else
    MessageBoxA.Show("PDF保存失败")
End If

附录

CoreWebView2PrintSettings类用于设置打印选项，其属性有：