主题：[求助]打印后左上角有一个点？

此主题相关图片如下：1605169690(1).png

 
此主题相关图片如下：1605169672(1).png

With Tables(e.Form.name & "_table1")
    If .Count > 0 Then
        Dim i As Integer
        Dim ii As Integer
        Dim i1 As Integer = .TopRow                                    '最上行位置
        Dim i2 As Integer = .BottomRow                                 '最末行位置
        Dim s As Integer
        s = i2 - i1 +1   '选择的行数
        '定义报表
        Dim doc As New PrintDoc '定义一个报表
        doc.PageSetting.PaperKind = 11 '纸张类型改为A4
        doc.PageSetting.Landscape = True '横向打印
        Doc.PageSetting.LeftMargin = 57 '设置左边距
        Doc.PageSetting.RightMargin = 10 '设置右边距
        Doc.PageSetting.TopMargin = 10 '设置上边距
        Doc.PageSetting.BottomMargin = 3 '设置下边距
        Dim ra As prt.RenderEmpty '定一个空对象
        Dim drs As List(Of DataRow)
        drs = .DataTable.Select("[选] = True")
        For Each dr As DataRow In drs
            ra = new prt.RenderEmpty '定义一个新的空对象
            ra.BreakBefore = prt.BreakEnum.Page '打印前换页
            doc.Body.Children.Add(ra) '加入到报表中
            '表格
            Dim rt As New prt.RenderTable() '定义一个表格对象
            rt = New prt.RenderTable() '定义一个表格对象
            rt.Rows.Count = 1 '设置行数
            rt.Cols.Count = 1 '设置列数
            rt.Style.GridLines.All = New prt.Linedef(Color.Transparent) '将表格的颜色设为无色Transparent,red,
            rt.Width = 140
            'rt.Height = 150
            Dim h As Integer
            h = Round2(140 * dr("高长比例"),1)    '第一行高度
            rt.rows(0).Height = h
            rt.Style.Padding.Bottom = 1 '左边距5毫米
            
            doc.Body.Children.Add(rt) '将表格对象加入到报表中
            '图片
            Dim rm As New prt.RenderImage() '定义一个图片对象
            rm = New prt.RenderImage() '定义一个图片对象
            Dim txt As String
            txt = dr("路径")
            rm.Image = GetImage(txt) '请改为实际的图标名称和路径
            rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center '图片水平居中
            rm.Style.ImageAlign.AlignVert = prt.ImageAlignVertEnum.Top '图片垂直居下
            rm.Style.ImageAlign.StretchHorz = True '禁止水平方向扩展图片
            rm.Style.ImageAlign.StretchVert = True '禁止垂直方向扩展图片
            rt.Cells(0,0).RenderObject = rm '将单元格内容设置为图片对象rm
            '题名
            Dim rx As New prt.RenderText '创建一个文本
            rx.Text = dr("题名") '设置文本对象的内容
            rx.Text = dr("档案号") & ". " & dr("题名") '设置文本对象的内容
            rx.Width = 140
            rx.Style.Font = New Font("宋体", 11, FontStyle.Bold) '设置字体如果不设置字体,会出现导出PDF乱码
            rx.Style.LineSpacing = 120 '1.3倍行距
            rx.Style.TextAlignHorz = prt.AlignHorzEnum.Left '水平居左
            rx.Style.TextAlignVert = prt.AlignVertEnum.Top '垂直居上
            doc.Body.Children.Add(rx) '将文本对象加入到报表
            
            rx = New prt.RenderText '创建一个文本
            rx.text = "- " & dr("页码") & " -"
            rx.Style.Font = New Font("宋体", 11, FontStyle.Bold) '设置字体如果不设置字体,会出现导出PDF乱码
            rx.x = 65
            rx.Y = 137
            doc.Body.Children.Add(rx) '将文本对象加入到报表
        Next
        'Doc.Preview() '预览报表
        Dim dlg As New FolderBrowserDialog  '保存目录
        If dlg.ShowDialog = DialogResult.Ok Then
            Dim t As Integer
            For t = 1 To 1000
                If FileSys.FileExists(dlg.SelectedPath & "\手绘西安" & t & ".pdf") Then
                    Continue For
                Else
                    Dim fl As String = dlg.SelectedPath & "\手绘西安" & t & ".pdf"
                    doc.SavePDF(fl) '保存为PDF文件
                    Dim Proc As New Process '打开PDF文件
                    Proc.File = fl
                    Proc.Start()
                    Exit For
                End If
            Next
        End If
    End If
End With