关于自定义页面大小的问题

收藏

我想输出一个自定义大小的图片
      Dim rpt As New myReport
      Dim rptPage As New DataDynamics.ActiveReports.PageSettings
      rptPage.PaperKind = Drawing.Printing.PaperKind.Custom
      rptPage.PaperHeight = 3
      rptPage.PaperWidth = 3
      rptPage.Margins.Left = 0
      rptPage.Margins.Right = 0
      rptPage.Margins.Top = 0
      rptPage.Margins.Bottom = 0
      rpt.PageSettings = rptPage
      rpt.Run()

      Dim tifExporter As New DataDynamics.ActiveReports.Export.Tiff.TiffExport
      tifExporter.Export(rpt.Document, “test.tif”)

我这样还是打印出一个A4纸大小的图片，请问我哪里设定的不对。

jessie · jessie

dof,在吗？help

ZenosZeng · ZenosZeng

你好，我正在看这个问题，哈哈

jessie · jessie

谢谢，拜托了:rose

ZenosZeng · ZenosZeng

你好，使用TiffExport导出为Tiff文件时会忽略用户自定义纸张，进行PDF导出时可以使用用户自定义纸张。

jessie · jessie

我把这两句

Dim tifExporter As New DataDynamics.ActiveReports.Export.Tiff.TiffExport
      tifExporter.Export(rpt.Document, “test.tif”)

改成

Dim pdfExporter As New DataDynamics.ActiveReports.Export.Pdf.PdfExport
         pdfExporter.Export(rpt.Document, "d\small2.tif")

可是，执行到Dim pdfExporter As New DataDynamics.ActiveReports.Export.Pdf.PdfExport这个的时候又报错说没有license。。。。。。
不知道怎么回事啊，同一个工程我什么都没改，就改了这两句。

ZenosZeng · ZenosZeng

你好，

PDF导出打代码需要修改以下，然后查看licenses.licx文件中是否有PdfExport相关的信息

Dim pdfExport As New DataDynamics.ActiveReports.Export.Pdf.PdfExport
pdfExport.Export(rpt.Document, "test.pdf")

复制代码

jessie · jessie

license.licx文件只有1行，DataDynamics.ActiveReports.ActiveReport, ActiveReports6,

文件里同样没有tiffExport的信息，tiffExport怎么可以正常运行呢。

ZenosZeng · ZenosZeng

我这边使用以上代码可以正常导出PDF文件，如果你从VS工具箱中拖拽一个PdfExport控件到窗体上还会报这个错吗，你可以尝试一下

		自动登录	找回密码
密码			立即注册

关于自定义页面大小的问题

8 个回复

活字格认证

圣诞拼拼乐

微信认证勋章

讲师达人

元老葡萄

悬赏达人