主题：[求助]窗口打印问题

[求助]窗口打印问题

 

问题1：上图列名称居中，打印出来后与窗口显示不一致，如何设置

 

此主题相关图片如下：qq截图20150612161009.jpg

 

此主题相关图片如下：qq截图20150612160941.jpg

 

问题2：窗口报表很美观，可以打印到pdf吗？如果可以，如何实现。

 

在此言谢！

可以，参考：
http://www.foxtable.com/help/topics/2450.htm

 
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Dim fl As String = "c:\data\test.pdf"
doc.SavePDF(fl) '保存为PDF文件
 

1、用代码处理一下

 

Dim doc As PrintDoc = e.Form.GernatePrintDoc()

For Each c As object In Doc.Body.Children
    If c.Gettype.Name Like "*Table*" Then
        Dim t As prt.RenderTable = c
        t.Rows(0).Height = 30
        t.Rows(0).Style.BackColor = Color.Red
        t.Rows(0).Style.Font = New Font("宋体", 12, FontStyle.Bold) '设置字体
        For i As Integer = 0 To t.Cols.Count - 1
            t.Cells(0,i).Style.TextAlignHorz = prt.AlignHorzEnum.Center
        Next
    End If
Next

doc.Preview

 

2、可以参考

 

Dim fl As String = "c:\data\test.pdf"
doc.SavePDF(fl) '保存为PDF文件
Dim Proc As New Process '打开PDF文件
Proc.File = fl
Proc.Start()

谢谢！

转pdf后，出现乱码，什么原因，如何处理？

 

此主题相关图片如下：qq截图20150612174855.jpg

 

宋体, 10.5pt, style=Bold   乱码，楷体正常