首页 / C# / c# – 在UWP应用程序中将XAML转换为PDF

c# – 在UWP应用程序中将XAML转换为PDF

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了c# – 在UWP应用程序中将XAML转换为PDF，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含6900字，纯文字阅读大概需要10分钟。

内容图文

我在XAML页面上有一个Canvas元素,我在UWP应用程序中用作打印根.我正在使用PrintManager.PrintTaskRequested和PrintDocument.Paginate等事件来准备我的报告并将其发送到打印机.

我需要以编程方式将报告导出为PDF文件.理想的解决方案将以某种方式利用现有的打印根(Canvas),打印到它,然后将结果转换为PDF.之后,我可以将PDF保存到文件或将其附加到电子邮件中.

我一直在寻找合适的解决方案,但在UWP中没有任何作用.例如,这篇文章提供了一个完美的解决方案,它在UWP中似乎不起作用：

How to programmatically print to PDF file without prompting for filename in C# using the Microsoft Print To PDF printer that comes with Windows 10

我将不胜感激任何帮助.

解决方法:

我很长一段时间都在努力解决这个问题 – 在UWP中自动编程XAML到PDF转换 – 最终找到了一个出色的解决方案.

有几个库可以在UWP中以编程方式创建PDF.诀窍是XAML转换.我采取了以下方法：

A)遍历XAML树并生成要转换的控件列表.就我而言,文本块和边框,但这可以扩展.

B)声明与XAML实际大小相匹配的PDF页面大小.

C)浏览列表,获取控制坐标.使用C1PDF中的相应函数在PDF中创建相同的元素.此代码还会检查任何RotateTransforms并将旋转角度应用于文本.

使用这个解决方案,我能够生成XAML UI的精确相似性 – 它本身代表一个打印文档 – 作为PDF,完全可扩展,并具有完美的打印渲染.

这里有一些代码可以帮助您使用我编写的ComponentOne PDF控件将我的XAML控件转换为PDF：

Async Function XAMLtoPDF(myXAMLcontrol As Control) As Task(Of Boolean)
    Dim pdf As C1PdfDocument
    pdf = New C1PdfDocument(PaperKind.Letter)
    Dim lTB As New List(Of Object)

    pdf.PageSize = New Size(myXAMLcontrol.ActualWidth, myXAMLcontrol.ActualHeight)

    FindTextBlocks(myXAMLcontrol, lTB)
    For x = 0 To lTB.Count - 1
        If TypeOf lTB(x) Is TextBlock Then
            Dim TB As TextBlock = lTB(x)
            Dim obj As FrameworkElement = TB
            Dim angle As Double = 0
            Do While obj IsNot Nothing
                Dim renderxform As Transform = obj.RenderTransform
                If TypeOf renderxform Is TransformGroup Then
                    Dim tg As TransformGroup = CType(renderxform, TransformGroup)
                    For Each t As Transform In tg.Children
                        If TypeOf t Is RotateTransform Then
                            angle -= CType(t, RotateTransform).Angle
                        End If
                    Next
                ElseIf TypeOf renderxform Is RotateTransform Then
                    angle -= CType(renderxform, RotateTransform).Angle
                End If
                obj = obj.Parent
            Loop

            Dim myfont As Font
            Select Case TB.FontStyle
                Case FontStyle.Normal
                    If TB.FontWeight.Weight = FontWeights.Bold.Weight Then
                        myfont = New Font(TB.FontFamily.Source, TB.FontSize, PdfFontStyle.Bold)
                    Else
                        myfont = New Font(TB.FontFamily.Source, TB.FontSize, PdfFontStyle.Regular)
                    End If
                Case Else  'FontStyle.Oblique, FontStyle.Italic             '
                    myfont = New Font(TB.FontFamily.Source, TB.FontSize, PdfFontStyle.Italic)
            End Select

            Dim ttv As GeneralTransform = TB.TransformToVisual(myXAMLcontrol)
            Dim ScreenCoords As Point = ttv.TransformPoint(New Point(0, 0))
            Dim myWidth As Double, myHeight As Double
            If TB.TextWrapping = TextWrapping.NoWrap Then
                myWidth = pdf.MeasureString(TB.Text, myfont).Width
                myHeight = pdf.MeasureString(TB.Text, myfont).Height
            Else
                myWidth = TB.ActualWidth + 10       'Admittedly, 10 is a kluge factor to make wrapping match'
                myHeight = pdf.MeasureString(TB.Text, myfont, myWidth).Height
            End If
            Dim rc As New Rect(ScreenCoords.X, ScreenCoords.Y, myWidth, myHeight)

            If angle Then
                Dim fmt As New StringFormat()
                fmt.Angle = angle
                pdf.DrawString(TB.Text, myfont, CType(TB.Foreground, SolidColorBrush).Color, rc, fmt)
            Else
                pdf.DrawString(TB.Text, myfont, CType(TB.Foreground, SolidColorBrush).Color, rc)
            End If
        ElseIf TypeOf lTB(x) Is Border Then
            Dim BDR As Border = lTB(x)
            Dim ttv As GeneralTransform = BDR.TransformToVisual(myXAMLcontrol)
            Dim ScreenCoords As Point = ttv.TransformPoint(New Point(0, 0))
            Dim pts() As Point = {
                New Point(ScreenCoords.X, ScreenCoords.Y),
                New Point(ScreenCoords.X + BDR.ActualWidth, ScreenCoords.Y),
                New Point(ScreenCoords.X + BDR.ActualWidth, ScreenCoords.Y + BDR.ActualHeight),
                New Point(ScreenCoords.X, ScreenCoords.Y + BDR.ActualHeight)}

            Dim Clr As Color = CType(BDR.BorderBrush, SolidColorBrush).Color
            If BDR.BorderThickness.Top Then pdf.DrawLine(New Pen(Clr, BDR.BorderThickness.Top), pts(0), pts(1))
            If BDR.BorderThickness.Right Then pdf.DrawLine(New Pen(Clr, BDR.BorderThickness.Right), pts(1), pts(2))
            If BDR.BorderThickness.Bottom Then pdf.DrawLine(New Pen(Clr, BDR.BorderThickness.Bottom), pts(2), pts(3))
            If BDR.BorderThickness.Left Then pdf.DrawLine(New Pen(Clr, BDR.BorderThickness.Left), pts(3), pts(0))
        ElseIf TypeOf lTB(x) Is Rectangle Then
            Dim Rect As Rectangle = lTB(x)
            Dim ttv As GeneralTransform = Rect.TransformToVisual(myXAMLcontrol)
            Dim ScreenCoords As Point = ttv.TransformPoint(New Point(0, 0))
            Dim pts() As Point = {
                New Point(ScreenCoords.X + Rect.Margin.Left, ScreenCoords.Y + Rect.Margin.Top),
                New Point(ScreenCoords.X + Rect.ActualWidth - Rect.Margin.Right, ScreenCoords.Y + Rect.Margin.Top),
                New Point(ScreenCoords.X + Rect.ActualWidth - Rect.Margin.Right, ScreenCoords.Y + Rect.ActualHeight - Rect.Margin.Bottom),
                New Point(ScreenCoords.X + Rect.Margin.Left, ScreenCoords.Y + Rect.ActualHeight - Rect.Margin.Bottom)}

            Dim MyPen1 As New Pen(CType(Rect.Stroke, SolidColorBrush).Color, Rect.StrokeThickness)
            MyPen1.DashStyle = DashStyle.Custom
            MyPen1.DashPattern = Rect.StrokeDashArray.ToArray
            Dim MyPen2 As New Pen(CType(Rect.Stroke, SolidColorBrush).Color, Rect.StrokeThickness)
            MyPen2.DashStyle = DashStyle.Custom
            MyPen2.DashPattern = Rect.StrokeDashArray.ToArray

            pdf.DrawLine(MyPen2, pts(0), pts(1))
            pdf.DrawLine(MyPen1, pts(1), pts(2))
            pdf.DrawLine(MyPen2, pts(2), pts(3))
            pdf.DrawLine(MyPen1, pts(3), pts(0))
        End If
    Next
    Dim file As StorageFile = Await ThisApp.AppStorageFolder.CreateFileAsync("Temp.PDF", Windows.Storage.CreationCollisionOption.ReplaceExisting)
    Await pdf.SaveAsync(file)
    Return True
End Function

Private Sub FindTextBlocks(uiElement As Object, foundOnes As IList(Of Object))
    If TypeOf uiElement Is TextBlock Then
        Dim uiElementAsTextBlock = DirectCast(uiElement, TextBlock)
        If uiElementAsTextBlock.Visibility = Visibility.Visible Then
            foundOnes.Add(uiElementAsTextBlock)
        End If
    ElseIf TypeOf uiElement Is Panel Then
        Dim uiElementAsCollection = DirectCast(uiElement, Panel)
        If uiElementAsCollection.Visibility = Visibility.Visible Then
            For Each element In uiElementAsCollection.Children
                FindTextBlocks(element, foundOnes)
            Next
        End If
    ElseIf TypeOf uiElement Is UserControl Then
        Dim uiElementAsUserControl = DirectCast(uiElement, UserControl)
        If uiElementAsUserControl.Visibility = Visibility.Visible Then
            FindTextBlocks(uiElementAsUserControl.Content, foundOnes)
        End If
    ElseIf TypeOf uiElement Is ContentControl Then
        Dim uiElementAsContentControl = DirectCast(uiElement, ContentControl)
        If uiElementAsContentControl.Visibility = Visibility.Visible Then
            FindTextBlocks(uiElementAsContentControl.Content, foundOnes)
        End If
    ElseIf TypeOf uiElement Is Border Then
        Dim uiElementAsBorder = DirectCast(uiElement, Border)
        If uiElementAsBorder.Visibility = Visibility.Visible Then
            foundOnes.Add(uiElementAsBorder)
            FindTextBlocks(uiElementAsBorder.Child, foundOnes)
        End If
    ElseIf TypeOf uiElement Is Rectangle Then
        Dim uiElementAsRectangle = DirectCast(uiElement, Rectangle)
        foundOnes.Add(uiElementAsRectangle)
    End If
End Sub

实际结果：

内容总结

以上是互联网集市为您收集整理的c# – 在UWP应用程序中将XAML转换为PDF全部内容，希望文章能够帮你解决c# – 在UWP应用程序中将XAML转换为PDF所遇到的程序开发问题。如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容，请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

扫描二维码推送至手机访问。

本文链接：https://qyyshop.com/info/810381.html

来源：【匿名】

【上一篇】c# – dotnet core获取依赖注入的已加载程序集列表【下一篇】assemblyinfo.csC#Assembly类访问程序集信息

更多 ►

【c# – 在UWP应用程序中将XAML转换为PDF】教程文章相关的互联网学习教程文章

c# 隐藏控制台应用程序【代码】

using System; using System.Collections.Generic; using System.Linq; using System.Text; using System.Diagnostics; using System.Runtime.InteropServices;namespace HideConsole {class Program{staticvoid Main(string[] args){Console.Title = "HideConsole";IntPtr hwnd = FindWindow(null, Console.Title);if (hwnd != IntPtr.Zero)ShowWindow(hwnd, CmdShow.SW_HIDE);//Process p = new Process();/////cmd 名称//p.Star...

C# WinForm应用程序降低系统内存占用方法总结【代码】

这篇文章主要介绍了C# WinForm应用程序降低系统内存占用方法总结,本文总结了9个方法,同时给出了一个定期清理执行垃圾回收代码,需要的朋友可以参考下背景：微软的 .NET FRAMEWORK 现在可谓如火如荼了。但是，.NET 一直所为人诟病的就是“胃口太大”，狂吃内存，虽然微软声称 GC 的功能和智能化都很高，但是内存的回收问题，一直存在困扰，尤其是 winform 程序，其主要原因是因为.NET程序在启动时，是需要由JIT动态编译并加载的，这...

C#通过窗体应用程序操作数据库（增删改查）【代码】【图】

为了体现面向对象的思想，我们把“增删改查”这些函数封装到一个数据库操作类里；为了便于窗体程序与数据库之间进行数据交互，我们建一个具有数据库行数据的类，通过它方便的在窗体程序与数据库之间传输数据；我们新建一个文件夹，把这两个类放在这个文件夹（App）里，以后，把命名空间写上就可以使用这两个类了。为了便于窗体程序与数据库之间进行数据交互，我们建一个具有数据库行数据的类，通过它方便的在窗体程序与数据库之间传...

应用程序使用统计信息 – .NET CORE(C#) WPF界面设计【代码】

原文:应用程序使用统计信息 – .NET CORE(C#) WPF界面设计应用程序使用统计信息 - .NET CORE(C#) WPF界面设计首发文章地址：https://dotnet9.com/10546.html关键功能点抽屉式菜单圆形进度条Demo演示：1. 新建项目使用 VS 2019 的 .NET Core 3.1 WPF 项目模板，创建名为 “MobileAppUsageDashboardCore” 的项目，NuGet 引入 MaterialDesign 的两个库 MaterialDesignThemes 和 MaterialDesignColors，整个项目工程文件如下：<Projec...

C# 控制台应用程序从外部传参运行和调试【代码】【图】

参考:/*十有三博客*/新建一个用于演示的控制台应用程序项目,然后在Program.cs的入口Main方法里编写如下代码foreach (var arg in args) {Console.WriteLine(arg); } Console.ReadKey();staticvoid Main(string[] args) {foreach (var arg in args){Console.WriteLine(arg);}Console.ReadKey(); }这段代码最后会输出所有传入控制台的参数，调试和运行的方法有两种，一种是设置Visual Studio项目在启动调试时的命令行参数，另外一种是...

【自动化GUI自动化】C#Windows应用程序识别计算器【代码】

一、代码如下#include <stdio.h> #include <stdlib.h> #include <windows.h>int main(int argc, char *argv[]) {//printf("成功");//printf("成功");//printf("成功");HWND windowHandle, controlHandle;char result[10];windowHandle= FindWindow(NULL, "Calculator");//printf(windowHandle);while(windowHandle == NULL) {printf("未找到计算器，请先启动........\n");Sleep(2000);windowHandle= FindWindow(NULL, "Calculator"...

C#获取当前应用程序所在路径及环境变量

一、获取当前文件的路径string str1=Process.GetCurrentProcess().MainModule.FileName;//可获得当前执行的exe的文件名。 string str2=Environment.CurrentDirectory;//获取和设置当前目录（即该进程从中启动的目录）的完全限定路径。(备注:按照定义，如果该进程在本地或网络驱动器的根目录中启动，则此属性的值为驱动器名称后跟一个尾部反斜杠（如“C:\”）。如果该进程在子目录中启动，则此属性的值为不带尾部反斜杠的驱动器和子...

C# MVC中按照业务创建多模块web应用程序（DAL、BLL、UI按照业务模块拆分）【图】

C# MVC中按照业务创建多模块web应用程序（DAL、BLL、UI按照业务模块拆分）如果想要UI层根据业务进行模块划分，UI层发布的时候能达到UI层根据业务单独打包成dll文件，可以在解决方案中将DataObj、DAL、BLL、UI均放在解决方案文件夹下：1、DataObj根据业务按照模块建立对应的类库，发布的时候各个业务模块的DataObj.dll分开，以减低耦合度；注意生成文件的位置置于UI层（含页面的UI类库）下的bin目录下；2、DAL根据业务按照模块...

应用程序在状态栏展示时间（C#）

private DispatcherTimer _timer; private void SetTimeElaspInStatusBar() { try { _timer = new DispatcherTimer(); _timer.Tick += (sender, e) => { DateTime dtNow = DateTime.Now; TimeSpan interval = dtNow - _enterSystemTime; this.barElapsedTime.C...

C#取得控制台应用程序的根目录方法判断文件夹是否存在，不存在就创建【图】

取得控制台应用程序的根目录方法1：Environment.CurrentDirectory 取得或设置当前工作目录的完整限定路径2：AppDomain.CurrentDomain.BaseDirectory 获取基目录，它由程序集冲突解决程序用来探测程序集取得WinForm应用程序的根目录方法1：Environment.CurrentDirectory.ToString();//获取或设置当前工作目录的完全限定路径2：Application.StartupPath.ToString();//获取启动了应用程序的可执行文件的路径，不包括可执行文件的名称...

C#-Redis与应用程序内缓存

使用Redis缓存诸如userId-UserName对,NewsId-NewsDomainName之类的数据有什么好处和缺点？为什么我不应该在creatinf Dictionatries中将这些数据缓存在应用程序内存中？我认为它必须比使用Redis快得多？谢谢！解决方法:根据工作负载的样子,您可能需要一个或另一个,或者同时使用两种缓存策略.为什么？ >进程内缓存速度更快(有利于延迟),更重要的是,它不会产生任何网络流量而受到打击(有利于可扩展性)；>远程缓存(Redis或类似方法)可让...

c#-在WCF和ASP .NET应用程序(.NET 3.5)中都可用的缓存

我需要可以同时从WCF和ASP .NET应用程序中使用的缓存工具.我见过： > System.Web.Caching.Cache不能从WCF使用(据我了解,仅当服务托管在IIS中时才可用,但并非总是如此)> System.Runtime.Caching均可在两者中使用,但仅可从.NET 4获得,但我们的.NET版本为3.5. 有什么建议么？解决方法:您绝对可以在IIS之外使用System.Web.Caching.Cache.只需添加对System.Web的引用就可以了-绝对不是IIS的功能. .NET 1.0和1.1中存在问题,但显然不在2.0...

c# – RabbitMQ CreateConneciton问题 – 在一个应用程序中运行,但在另一个应用程序中运行【代码】

所以这是连接代码.var factory = new ConnectionFactory {HostName = "myserver",UserName = "testuser",Password = "testuserpassword" };using (var connection = factory.CreateConnection())using (var channel = connection.CreateModel()){channel.QueueDeclare(queue: "LOG",durable: false,exclusive: false,autoDelete: false,arguments: null);string message = "Hello World!";var body = Encoding.UTF8.GetBytes(messa...

c#-如何在“应用程序和服务日志”内部指定事件？【代码】

记录事件后,以下代码片段将触发事件.示例代码可以正常运行,但我要监视的日志实际上是“应用程序和服务日志> Microsoft> Windows>任务计划程序>操作的”. 我要在代码示例中代替“应用程序”插入什么？... EventLog myNewLog = new EventLog("Application", ".", "testEventLogEvent"); myNewLog.EntryWritten += new EntryWrittenEventHandler(MyOnEntryWritten); myNewLog.EnableRaisingEvents = true; ...解决方法...

c#-如何在Azure上查看应用程序日志【代码】

我有一个运行在azure上的aspnetcore 2.1应用程序. 现在,我想查看日志记录信息以调试仅在Azure上发生的问题. 在该应用中,ILogger<>被注入到类中并使用： this._logger.LogInformation(“ constructor ********************************************** ****“); 如果我在VS中运行该应用程序,则可以在调试输出窗口和asp.net核心Web服务器输出窗口中看到输出. 然后,我发布并继续使用Azure并启用日志流并对其进行查看.我确实看到信息出...

C# - 技术教程分类

C# 教程 C# 简介 C# 环境 C# 程序结构 C# 基本语法 C# 数据类型 C# 类型转换 C# 变量 C# 常量 C# 运算符 C# 判断 C# 循环 C# 封装 C# 方法 C# 可空类型 C# 数组（Array） C# 字符串（String） C# 结构体（Struct） C# 枚举（Enum） C# 类（Class） C# 继承 C# 多态性 C# 运算符重载 C# 接口（Interface） C# 命名空间（Namespace） C# 预处理器指令 C# 异常处理 C# 特性（Attribute） C# 反射（Reflection） C# 属性（Property） C# 索引器（Indexer） C# 委托（Delegate） C# 事件（Event） C# 集合（Collection） C# 泛型（Generic） C# 匿名方法 C# 不安全代码 C# 多线程 c# 全部

C# - 最热教程

c#编程连接oracle数据库无法加载DLL(oc...一个适合新手C#程序员编写练习的小项目...C# 异步UDP发送接收数据 C#程序执行时间长和慢查询解决：线程并...c# aspose操作word文档 C#继承讲解以及对象的创建 jquery+ajax+C#实现无刷新操作数据库数...C#精髓 GridView72大绝技学习gridview...c# static的全部用法收集整理 js模拟实现类似c#下的hashtable的简单功...

首页 / C# / c# – 在UWP应用程序中将XAML转换为PDF

c# – 在UWP应用程序中将XAML转换为PDF

内容导读

内容图文

内容总结

内容备注

内容手机端

【c# – 在UWP应用程序中将XAML转换为PDF】教程文章相关的互联网学习教程文章

c# 隐藏控制台应用程序【代码】

C# WinForm应用程序降低系统内存占用方法总结【代码】

C#通过窗体应用程序操作数据库（增删改查）【代码】【图】

应用程序使用统计信息 – .NET CORE(C#) WPF界面设计【代码】

C# 控制台应用程序从外部传参运行和调试【代码】【图】

【自动化GUI自动化】C#Windows应用程序识别计算器【代码】

C#获取当前应用程序所在路径及环境变量

C# MVC中按照业务创建多模块web应用程序（DAL、BLL、UI按照业务模块拆分）【图】

应用程序在状态栏展示时间（C#）

C#取得控制台应用程序的根目录方法判断文件夹是否存在，不存在就创建【图】

C#-Redis与应用程序内缓存

c#-在WCF和ASP .NET应用程序(.NET 3.5)中都可用的缓存

c# – RabbitMQ CreateConneciton问题 – 在一个应用程序中运行,但在另一个应用程序中运行【代码】

c#-如何在“应用程序和服务日志”内部指定事件？【代码】

c#-如何在Azure上查看应用程序日志【代码】

应用程序 - 相关标签

C# - 技术教程分类

C# - 最新教程

C# - 最热教程