主题：控件打印问题

遇到了两个问题

Dim wb As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
wb.Address=Vars("路径")

1、窗口中的 pdf不能显示，提示 文件保存

2、打印问题

 

在webbrpwser 控件上面 加了个 Label 控件，想把 这两个控件的内容 打在一起

 

使用 Dim doc As PrintDoc = e.Form.GernatePrintDoc()
        doc.Preview()

  只能看到 web中的内容 没有 label的内容

 

 

 

pdf文件的生成

Dim reader As New iTextSharp.text.pdf.PdfReader("c:\test.pdf")
Dim document As New iTextSharp.text.Document(reader.GetPageSizeWithRotation(1))
Dim n As Integer = reader.NumberOfPages
Dim baos As New IO.FileStream("c:\123.pdf", IO.FileMode.Create, IO.FileAccess.Write)
Dim copy As New iTextSharp.text.pdf.PdfCopy(document, baos)

Dim ownerPassword = Encoding.default.GetBytes("12345")
copy.setEncryption(Nothing, ownerPassword, iTextSharp.text.pdf.PdfWriter.ALLOW_SCREENREADERS,False)
copy.setEncryption(Nothing, ownerPassword, iTextSharp.text.pdf.PdfWriter.ALLOW_DEGRADED_PRINTING,False)
copy.setEncryption(Nothing, ownerPassword, iTextSharp.text.pdf.PdfWriter.ALLOW_MODIFY_ANNOTATIONS,False)
copy.setEncryption(Nothing, ownerPassword, iTextSharp.text.pdf.PdfWriter.ALLOW_FILL_IN,False)
copy.setEncryption(Nothing, ownerPassword, iTextSharp.text.pdf.PdfWriter.ALLOW_ASSEMBLY,False)
copy.setEncryption(Nothing, ownerPassword, iTextSharp.text.pdf.PdfWriter.ALLOW_COPY,False)
copy.setEncryption(Nothing, ownerPassword, iTextSharp.text.pdf.PdfWriter.ALLOW_MODIFY_CONTENTS,False)
copy.setEncryption(Nothing, ownerPassword, iTextSharp.text.pdf.PdfWriter.ALLOW_PRINTING,False)
copy.ViewerPreferences = iTextSharp.text.pdf.PdfWriter.HideToolbar Or iTextSharp.text.pdf.PdfWriter.HideMenubar Or iTextSharp.text.pdf.PdfWriter.HideWindowUI
'往pdf中写入内容
document.Open()
For i9 As Integer = 1 To n
Dim page As iTextSharp.text.pdf.PdfImportedPage = copy.GetImportedPage(reader, i9)
copy.AddPage(page)
Next
document.Close()
reader.Close()

 

我测试没问题，做一个实例发上来测试。（pdf文件）也要加进来才能测试。

 

 

pdf不能通过web打开 可能与我电脑有关系，但没找到解决办法。担心其他电脑也出现这样的问题 我就换了个思路才处理了

 

将pdf转图片 在打印 ，使用了下面的语句

 Dim p As WinForm.Panel = e.Form. Controls("Panel1")
'Dim p As WinForm.PictureBox = e.Form.Controls("PictureBox1")
e.form.Page.PaperKind = 9 '纸张类型改为A4

e.form.Page.LeftMargin = 0 '设置左边距
e.Form. Page.RightMargin = 1 '设置右边距
e.Form. Page.TopMargin = 0 '设置上边距
e.Form. Page.BottomMargin = 20 '设置下边距

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

'Doc.SavePDF("c:\111.pdf")
doc.Preview()
        MessageBox.Show("打印完成")
可是打印处理的效果并不理想，如图

 

此主题相关图片如下：qq图片20181224095053.png

 

好像 上面的边距控制 不起作用

 

不应该有问题，具体实例发上来测试。

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目3.rar

引用

 

谢谢，已上传

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:pdfview.rar

改成

 

        Dim p As WinForm.Panel = e.Form. Controls("Panel1")
        Dim doc As PrintDoc = e.Form. GernatePrintDoc(p)
        For Each c As object In Doc.Body.Children
            If Typeof c Is prt.RenderImage Then
                c.x = 0
                c.y = 0
                c.Width = "Parent.Width" '宽度等于页面宽度
                c.Height = "Auto" '高度由图片大小自动决定
                c.Style.ImageAlign.StretchHorz = False '禁止图片水平拉伸
                c.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center '居中显示
            End If
        Next
        doc.Preview()

 

或者 http://www.foxtable.com/webhelp/scr/1182.htm

 

谢谢 我试试